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

fixes for coroutining only

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1202 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-12-07 13:46:53 +00:00
parent f0f6dd9de5
commit f70af77e0c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/heapgc.c
View File

@ -3403,7 +3403,9 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
} }
current_env = (CELL *)*ASP; current_env = (CELL *)*ASP;
ASP++; ASP++;
#if COROUTINING
max = (CELL *)Yap_ReadTimedVar(DelayedVars); max = (CELL *)Yap_ReadTimedVar(DelayedVars);
#endif
} }
#endif #endif
time_start = Yap_cputime(); time_start = Yap_cputime();
@ -3422,7 +3424,9 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
bp = (char *)Yap_ExpandPreAllocCodeSpace(alloc_sz, NULL); bp = (char *)Yap_ExpandPreAllocCodeSpace(alloc_sz, NULL);
current_env = (CELL *)*ASP; current_env = (CELL *)*ASP;
ASP++; ASP++;
#if COROUTINING
max = (CELL *)Yap_ReadTimedVar(DelayedVars); max = (CELL *)Yap_ReadTimedVar(DelayedVars);
#endif
} }
if (!bp) if (!bp)
return 0; return 0;