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

yaam knows not about handles, and they do not know about the yaam

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-11-20 22:21:59 +00:00
parent 48bec6b247
commit 94f1b223f7
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/absmi.c
View File

@ -7400,7 +7400,6 @@ Yap_absmi(int inp)
/* make sure that we can still have access to our old PREG after calling user defined goals and backtracking or failing */ /* make sure that we can still have access to our old PREG after calling user defined goals and backtracking or failing */
yamop *savedP; yamop *savedP;
Yap_StartSlots( PASS_REGS1 );
LOCAL_PrologMode = UserCCallMode; LOCAL_PrologMode = UserCCallMode;
{ {
PredEntry *p = PREG->u.Osbpp.p; PredEntry *p = PREG->u.Osbpp.p;
@ -7412,7 +7411,6 @@ Yap_absmi(int inp)
SREG = (CELL *) YAP_Execute(p, p->cs.f_code); SREG = (CELL *) YAP_Execute(p, p->cs.f_code);
} }
Yap_CloseSlots( PASS_REGS1 );
setregs(); setregs();
LOCAL_PrologMode = UserMode; LOCAL_PrologMode = UserMode;
restore_machine_regs(); restore_machine_regs();
@ -7585,8 +7583,6 @@ Yap_absmi(int inp)
ENDCACHE_Y(); ENDCACHE_Y();
LOCAL_PrologMode = UserCCallMode; LOCAL_PrologMode = UserCCallMode;
ASP = YREG; ASP = YREG;
/* for slots to work */
Yap_StartSlots( PASS_REGS1 );
saveregs(); saveregs();
save_machine_regs(); save_machine_regs();
SREG = (CELL *) YAP_ExecuteFirst(PREG->u.OtapFs.p, (CPredicate)(PREG->u.OtapFs.f)); SREG = (CELL *) YAP_ExecuteFirst(PREG->u.OtapFs.p, (CPredicate)(PREG->u.OtapFs.f));
@ -7594,7 +7590,6 @@ Yap_absmi(int inp)
restore_machine_regs(); restore_machine_regs();
setregs(); setregs();
LOCAL_PrologMode = UserMode; LOCAL_PrologMode = UserMode;
Yap_CloseSlots( PASS_REGS1 );
if (!SREG) { if (!SREG) {
FAIL(); FAIL();
} }
@ -7628,8 +7623,6 @@ Yap_absmi(int inp)
LOCAL_PrologMode = UserCCallMode; LOCAL_PrologMode = UserCCallMode;
SET_ASP(YREG, E_CB*sizeof(CELL)); SET_ASP(YREG, E_CB*sizeof(CELL));
/* for slots to work */
Yap_StartSlots( PASS_REGS1 );
saveregs(); saveregs();
save_machine_regs(); save_machine_regs();
SREG = (CELL *) YAP_ExecuteNext(PREG->u.OtapFs.p, (CPredicate)(PREG->u.OtapFs.f)); SREG = (CELL *) YAP_ExecuteNext(PREG->u.OtapFs.p, (CPredicate)(PREG->u.OtapFs.f));
@ -7637,7 +7630,6 @@ Yap_absmi(int inp)
restore_machine_regs(); restore_machine_regs();
setregs(); setregs();
LOCAL_PrologMode = UserMode; LOCAL_PrologMode = UserMode;
Yap_CloseSlots( PASS_REGS1 );
if (!SREG) { if (!SREG) {
#ifdef CUT_C #ifdef CUT_C
/* Removes the cut functions from the stack /* Removes the cut functions from the stack