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

fix previous fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2235 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-05-12 22:31:37 +00:00
parent f4173813ff
commit 897224b36e
3 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
C/save.c
View File

@@ -1271,16 +1271,9 @@ RestoreAtomList(Atom atm)
if (EndOfPAEntr(at))
return;
do {
#ifdef DEBUG_RESTORE2 /* useful during debug */
fprintf(errout, "Restoring %s\n", at->StrOfAE);
#endif
at->PropsOfAE = PropAdjust(at->PropsOfAE);
RestoreEntries(RepProp(at->PropsOfAE), FALSE);
atm = at->NextOfAE;
at->NextOfAE = atm = AtomAdjust(atm);
at = RepAtom(atm);
}
while (!EndOfPAEntr(at));
RestoreAtom(at);
at = RepAtom(at->NextOfAE);
} while (!EndOfPAEntr(at));
}
@@ -1354,6 +1347,8 @@ restore_heap(void)
}
INVISIBLECHAIN.Entry = AtomAdjust(INVISIBLECHAIN.Entry);
RestoreAtomList(INVISIBLECHAIN.Entry);
RestoreAtom(RepAtom(AtomFoundVar));
RestoreAtom(RepAtom(AtomFreeTerm));
RestoreHashPreds();
RestoreForeignCodeStructure();
RestoreIOStructures();