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

more small fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1431 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-10-31 12:27:54 +00:00
parent c1e67345cf
commit b8d0396939
8 changed files with 34 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
C/save.c
View File

@@ -408,6 +408,11 @@ save_regs(int mode)
#ifdef COROUTINING
putout(DelayedVars);
#endif
#if defined(SBA) || defined(TABLING)
putcellptr(H_FZ);
putcellptr((CELL *)B_FZ);
putcellptr((CELL *)TR_FZ);
#endif /* SBA || TABLING */
}
putout(CurrentModule);
if (mode == DO_EVERYTHING) {
@@ -464,7 +469,7 @@ save_heap(void)
{
int j;
/* Then save the whole heap */
#if defined(YAPOR) || defined(TABLING)
#if defined(YAPOR) || defined(TABLING) && !defined(YAP_MEMORY_ALLOC_SCHEME)
/* skip the local and global data structures */
j = Unsigned(&GLOBAL) - Unsigned(Yap_HeapBase);
putout(j);
@@ -798,6 +803,17 @@ get_regs(int flag)
if (Yap_ErrorMessage)
return -1;
#endif
#if defined(SBA) || defined(TABLING)
H_FZ = get_cellptr();
if (Yap_ErrorMessage)
return -1;
B_FZ = (choiceptr)get_cellptr();
if (Yap_ErrorMessage)
return -1;
TR_FZ = (tr_fr_ptr)get_cellptr();
if (Yap_ErrorMessage)
return -1;
#endif /* SBA || TABLING */
}
CurrentModule = get_cell();
if (Yap_ErrorMessage)
@@ -875,7 +891,7 @@ get_hash(void)
static int
CopyCode(void)
{
#if defined(YAPOR) || defined(TABLING)
#if (defined(YAPOR) || defined(TABLING)) && !defined(YAP_MEMORY_ALLOC_SCHEME)
/* skip the local and global data structures */
CELL j = get_cell();
if (Yap_ErrorMessage)