do wake up before \!
This commit is contained in:
parent
7d6d369e63
commit
a4b130ff1b
@ -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
3
C/exec.c
@ -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
|
||||||
|
Reference in New Issue
Block a user