fix left-over slots
This commit is contained in:
parent
2c12c7917b
commit
f26cb133b9
|
@ -1780,6 +1780,7 @@ YAP_ExecuteFirst(PredEntry *pe, CPredicate exec_code)
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
Int ret = (exec_code)( PASS_REGS1 );
|
Int ret = (exec_code)( PASS_REGS1 );
|
||||||
|
LOCAL_CurSlot = CurSlot;
|
||||||
if (!ret) {
|
if (!ret) {
|
||||||
Term t;
|
Term t;
|
||||||
|
|
||||||
|
@ -1907,6 +1908,7 @@ YAP_ExecuteNext(PredEntry *pe, CPredicate exec_code)
|
||||||
return TRUE;
|
return TRUE;
|
||||||
} else {
|
} else {
|
||||||
Int ret = (exec_code)( PASS_REGS1 );
|
Int ret = (exec_code)( PASS_REGS1 );
|
||||||
|
LOCAL_CurSlot = CurSlot;
|
||||||
if (!ret) {
|
if (!ret) {
|
||||||
Term t;
|
Term t;
|
||||||
|
|
||||||
|
|
Reference in New Issue