more fixes for garbage collector

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1394 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-09-21 03:49:33 +00:00
parent c6c9e71e31
commit 129efd83d8
6 changed files with 124 additions and 65 deletions

View File

@@ -417,6 +417,7 @@ save_regs(int mode)
#ifdef DEPTH_LIMIT
putout(DEPTH);
#endif
putout(GcGeneration);
}
/* The operand base */
putcellptr(CellPtr(XREGS));
@@ -812,6 +813,9 @@ get_regs(int flag)
if (Yap_ErrorMessage)
return -1;
#endif
GcGeneration = get_cell();
if (Yap_ErrorMessage)
return -1;
}
/* Get the old bases */
OldXREGS = get_cellptr();