diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prettification

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-03 01:17:39 +00:00
parent 7a24d3015e
commit 09106b9a6e
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
C/amasm.c
View File

@ -3907,19 +3907,21 @@ Yap_assemble(int mode, Term t, PredEntry *ap, int is_fact, struct intermediates
} }
Yap_inform_profiler_of_clause(cip->code_addr, (char *)(cip->code_addr)+size, ap, ( mode == ASSEMBLING_INDEX ? GPROF_INDEX : GPROF_CLAUSE )); Yap_inform_profiler_of_clause(cip->code_addr, (char *)(cip->code_addr)+size, ap, ( mode == ASSEMBLING_INDEX ? GPROF_INDEX : GPROF_CLAUSE ));
if (mode == ASSEMBLING_CLAUSE) { if (mode == ASSEMBLING_CLAUSE) {
if (ap->PredFlags & LogUpdatePredFlag) { if (ap->PredFlags & LogUpdatePredFlag) {
((LogUpdClause *)(cip->code_addr))->ClSize = size; ((LogUpdClause *)(cip->code_addr))->ClSize = size;
Yap_LUClauseSpace += size; Yap_LUClauseSpace += size;
} else { } else {
((StaticClause *)(cip->code_addr))->ClSize = size; StaticClause *cl = ((StaticClause *)(cip->code_addr));
((StaticClause *)(cip->code_addr))->ClFlags = 0; cl->usc.ClSource = NULL;
Yap_ClauseSpace += size; cl->ClSize = size;
cl->ClFlags = 0;
Yap_ClauseSpace += size;
} }
} else { } else {
if (ap->PredFlags & LogUpdatePredFlag) { if (ap->PredFlags & LogUpdatePredFlag) {
Yap_LUIndexSpace_Tree += size; Yap_LUIndexSpace_Tree += size;
} else } else
Yap_IndexSpace_Tree += size; Yap_IndexSpace_Tree += size;
} }
} }
do_pass(1, &entry_code, mode, &clause_has_blobs, &clause_has_dbterm, cip, size PASS_REGS); do_pass(1, &entry_code, mode, &clause_has_blobs, &clause_has_dbterm, cip, size PASS_REGS);