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

do wake up before \!

This commit is contained in:
Vitor Santos Costa 2013-12-16 12:34:41 +00:00
parent 7d6d369e63
commit a4b130ff1b
2 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
C/absmi.c
View File

@ -3084,11 +3084,9 @@ Yap_absmi(int inp)
/* cut */ /* cut */
Op(cut, s); Op(cut, s);
#ifdef COROUTINING #ifdef COROUTINING
if (FALSE) { CACHE_Y_AS_ENV(YREG);
CACHE_Y_AS_ENV(YREG); check_stack(NoStackCut, H);
check_stack(NoStackCut, H); ENDCACHE_Y_AS_ENV();
ENDCACHE_Y_AS_ENV();
}
do_cut: do_cut:
#endif #endif
SET_ASP(YREG, PREG->u.s.s); SET_ASP(YREG, PREG->u.s.s);
@ -3110,11 +3108,9 @@ Yap_absmi(int inp)
/* cut_t does the same as cut */ /* cut_t does the same as cut */
Op(cut_t, s); Op(cut_t, s);
#ifdef COROUTINING #ifdef COROUTINING
if (FALSE) { CACHE_Y_AS_ENV(YREG);
CACHE_Y_AS_ENV(YREG); check_stack(NoStackCutT, H);
check_stack(NoStackCutT, H); ENDCACHE_Y_AS_ENV();
ENDCACHE_Y_AS_ENV();
}
do_cut_t: do_cut_t:
#endif #endif
SET_ASP(YREG, PREG->u.s.s); SET_ASP(YREG, PREG->u.s.s);
@ -3135,11 +3131,9 @@ Yap_absmi(int inp)
/* cut_e */ /* cut_e */
Op(cut_e, s); Op(cut_e, s);
#ifdef COROUTINING #ifdef COROUTINING
if (FALSE) { CACHE_Y_AS_ENV(YREG);
CACHE_Y_AS_ENV(YREG); check_stack(NoStackCutE, H);
check_stack(NoStackCutE, H); ENDCACHE_Y_AS_ENV();
ENDCACHE_Y_AS_ENV();
}
do_cut_e: do_cut_e:
#endif #endif
SET_ASP(YREG, PREG->u.s.s); SET_ASP(YREG, PREG->u.s.s);

3
C/exec.c
View File

@ -1815,6 +1815,9 @@ Yap_InitYaamRegs( int myworker_id )
DepFr_cons_cp(REMOTE_top_dep_fr(myworker_id)) = NORM_CP(B); DepFr_cons_cp(REMOTE_top_dep_fr(myworker_id)) = NORM_CP(B);
#endif #endif
UNLOCK(REMOTE_SignalLock(myworker_id)); UNLOCK(REMOTE_SignalLock(myworker_id));
// make sure we have slots in case we don go through the top-level */
Yap_StartSlots( PASS_REGS1 );
} }
static Int static Int