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

restore startup when not defined YAP_MEMORY_ALLOC_SCHEME.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1621 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
ricroc 2006-04-29 15:54:56 +00:00
parent 676e2774c9
commit 6c4cb8ab74
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/save.c
View File

@ -471,14 +471,14 @@ save_heap(void)
{ {
int j; int j;
/* Then save the whole heap */ /* Then save the whole heap */
#if defined(YAPOR) || defined(TABLING) && !defined(YAP_MEMORY_ALLOC_SCHEME) #if (defined(YAPOR) || defined(TABLING)) && !defined(YAP_MEMORY_ALLOC_SCHEME)
/* skip the local and global data structures */ /* skip the local and global data structures */
j = Unsigned(&GLOBAL) - Unsigned(Yap_HeapBase); j = Unsigned(&GLOBAL) - Unsigned(Yap_HeapBase);
putout(j); putout(j);
mywrite(splfild, (char *) Yap_HeapBase, j); mywrite(splfild, (char *) Yap_HeapBase, j);
j = Unsigned(HeapTop) - Unsigned(&HashChain); j = Unsigned(HeapTop) - Unsigned(REMOTE+MAX_WORKERS);
putout(j); putout(j);
mywrite(splfild, (char *) &HashChain, j); mywrite(splfild, (char *) &(REMOTE[MAX_WORKERS]), j);
#else #else
j = Unsigned(HeapTop) - Unsigned(Yap_HeapBase); j = Unsigned(HeapTop) - Unsigned(Yap_HeapBase);
/* store 10 more cells because of the memory manager */ /* store 10 more cells because of the memory manager */
@ -913,7 +913,7 @@ CopyCode(void)
j = get_cell(); j = get_cell();
if (Yap_ErrorMessage) if (Yap_ErrorMessage)
return -1; return -1;
if (myread(splfild, (char *) &HashChain, j) < 0) if (myread(splfild, (char *) &(REMOTE[MAX_WORKERS]), j) < 0)
return -1; return -1;
#else #else
if (myread(splfild, (char *) Yap_HeapBase, if (myread(splfild, (char *) Yap_HeapBase,