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

try to make sure we always have slots

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-08 18:25:42 +01:00
parent 26b5173a33
commit a4acb6a806
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/absmi.c
View File

@ -856,7 +856,10 @@ Yap_absmi(int inp)
BOp(Ystop, l); BOp(Ystop, l);
SET_ASP(YREG, E_CB*sizeof(CELL)); SET_ASP(YREG, E_CB*sizeof(CELL));
/* make sure ASP is initialised */
Yap_StartSlots();
saveregs(); saveregs();
#if PUSH_REGS #if PUSH_REGS
restore_absmi_regs(old_regs); restore_absmi_regs(old_regs);
#endif #endif

2
C/c_interface.c
View File

@ -2566,8 +2566,8 @@ YAP_RestartGoal(void)
LOCAL_PrologMode = UserCCallMode; LOCAL_PrologMode = UserCCallMode;
if (out == FALSE) { if (out == FALSE) {
/* cleanup */ /* cleanup */
Yap_CloseSlots( PASS_REGS1 );
Yap_trust_last(); Yap_trust_last();
Yap_CloseSlots( PASS_REGS1 );
LOCAL_AllowRestart = FALSE; LOCAL_AllowRestart = FALSE;
} }
} else { } else {