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

fix bad call to garbage collector.

Browse Source
This commit is contained in:
ubu32 2011-07-09 09:16:02 -07:00
parent 04a6911b9f
commit 0424bf6403
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/absmi.c
View File

@ -1683,7 +1683,6 @@ Yap_absmi(int inp)
{
Int sz = PREG->u.Osbpi.i;
UInt arity = PREG->u.Osbpi.p->ArityOfPE;
PREG = NEXTOP(PREG,Osbpi);
if (Unsigned(H) + sz > Unsigned(YREG)-CreepFlag) {
YENV[E_CP] = (CELL) CPREG;
YENV[E_E] = (CELL) ENV;
@ -1691,6 +1690,7 @@ Yap_absmi(int inp)
YENV[E_DEPTH] = DEPTH;
#endif /* DEPTH_LIMIT */
SET_ASP(YREG, PREG->u.Osbpi.s);
PREG = NEXTOP(PREG,Osbpi);
saveregs();
if (!Yap_gcl(sz, arity, YENV, PREG)) {
Yap_Error(OUT_OF_STACK_ERROR,TermNil,LOCAL_ErrorMessage);
@ -1699,7 +1699,9 @@ Yap_absmi(int inp)
} else {
setregs();
}
}
} else {
PREG = NEXTOP(PREG,Osbpi);
}
}
JMPNext();
ENDBOp();