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

fix gc call while in meta-call.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-02-19 15:37:36 +00:00
parent dddad72a0e
commit 692a482adf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@ -14297,11 +14297,11 @@ Yap_absmi(int inp)
goto creep; goto creep;
} }
UNLOCK(SignalLock); UNLOCK(SignalLock);
saveregs(); saveregs_and_ycache();
if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, ENV, NEXTOP(PREG, Osbpp))) { if (!Yap_gc(((PredEntry *)SREG)->ArityOfPE, ENV, NEXTOP(PREG, Osbpp))) {
Yap_Error(OUT_OF_STACK_ERROR,TermNil,Yap_ErrorMessage); Yap_Error(OUT_OF_STACK_ERROR,TermNil,Yap_ErrorMessage);
} }
setregs(); setregs_and_ycache();
goto execute_after_comma; goto execute_after_comma;
ENDCACHE_Y_AS_ENV(); ENDCACHE_Y_AS_ENV();