IsAttVar
This commit is contained in:
parent
16ea59e106
commit
43a822b41f
10
C/exec.c
10
C/exec.c
@ -126,8 +126,8 @@ p_save_cp(void)
|
|||||||
td = cp_as_integer(B);
|
td = cp_as_integer(B);
|
||||||
BIND((CELL *)t,td,bind_save_cp);
|
BIND((CELL *)t,td,bind_save_cp);
|
||||||
#ifdef COROUTINING
|
#ifdef COROUTINING
|
||||||
DO_TRAIL(CellPtr(t), td);
|
DO_TRAIL(VarOfTerm(t), td);
|
||||||
if (CellPtr(t) < H0) Yap_WakeUp((CELL *)t);
|
if (IsAttVar(VarOfTerm(t))) Yap_WakeUp((CELL *)t);
|
||||||
bind_save_cp:
|
bind_save_cp:
|
||||||
#endif
|
#endif
|
||||||
return(TRUE);
|
return(TRUE);
|
||||||
@ -145,8 +145,8 @@ p_save_env_b(void)
|
|||||||
td = cp_as_integer((choiceptr)YENV[E_CB]);
|
td = cp_as_integer((choiceptr)YENV[E_CB]);
|
||||||
BIND((CELL *)t,td,bind_save_cp);
|
BIND((CELL *)t,td,bind_save_cp);
|
||||||
#ifdef COROUTINING
|
#ifdef COROUTINING
|
||||||
DO_TRAIL(CellPtr(t), td);
|
DO_TRAIL(VarOfTerm(t), td);
|
||||||
if (CellPtr(t) < H0) Yap_WakeUp((CELL *)t);
|
if (IsAttVar(VarOfTerm(t))) Yap_WakeUp((CELL *)t);
|
||||||
bind_save_cp:
|
bind_save_cp:
|
||||||
#endif
|
#endif
|
||||||
return(TRUE);
|
return(TRUE);
|
||||||
@ -1629,10 +1629,8 @@ Yap_InitYaamRegs(void)
|
|||||||
GlobalArena = TermNil;
|
GlobalArena = TermNil;
|
||||||
h0var = MkVarTerm();
|
h0var = MkVarTerm();
|
||||||
#if COROUTINING
|
#if COROUTINING
|
||||||
DelayedVars = Yap_NewTimedVar(h0var);
|
|
||||||
WokenGoals = Yap_NewTimedVar(TermNil);
|
WokenGoals = Yap_NewTimedVar(TermNil);
|
||||||
AttsMutableList = Yap_NewTimedVar(h0var);
|
AttsMutableList = Yap_NewTimedVar(h0var);
|
||||||
GlobalDelayArena = TermNil;
|
|
||||||
#endif
|
#endif
|
||||||
GcGeneration = Yap_NewTimedVar(h0var);
|
GcGeneration = Yap_NewTimedVar(h0var);
|
||||||
GcCurrentPhase = 0L;
|
GcCurrentPhase = 0L;
|
||||||
|
Reference in New Issue
Block a user