fix int/Int in save; add debugging (obs from Gong Su

This commit is contained in:
Vítor Santos Costa
2014-09-16 04:00:31 -05:00
parent 91946626b0
commit 3168b2cfc8
6 changed files with 195 additions and 104 deletions

View File

@@ -1390,7 +1390,7 @@ CleanCode(PredEntry *pp USES_REGS)
return;
}
#ifdef DEBUG_RESTORE2
fprintf(stderr, "at %ux Correcting clauses from %p to %p\n", *(OPCODE *) FirstC, FirstC, LastC);
fprintf(stderr, "at %lx Correcting clauses from %p to %p\n", *(OPCODE *) FirstC, FirstC, LastC);
#endif
CleanClauses(FirstC, LastC, pp PASS_REGS);
if (flag & IndexedPredFlag) {
@@ -1632,9 +1632,9 @@ RestoreAtom(AtomEntry *at USES_REGS)
at->PropsOfAE = PropAdjust(at->PropsOfAE);
#if DEBUG_RESTORE2 /* useful during debug */
if (IsWideAtom(AbsAtom(at)))
fprintf(errout, "Restoring %S\n", at->WStrOfAE);
fprintf(stderr, "Restoring %S\n", at->WStrOfAE);
else
fprintf(errout, "Restoring %s\n", at->StrOfAE);
fprintf(stderr, "Restoring %s\n", at->StrOfAE);
#endif
RestoreEntries(RepProp(at->PropsOfAE), FALSE PASS_REGS);
/* cannot use AtomAdjust without breaking agc */