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

use IsAttVar

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-08 09:19:57 +00:00
parent 99460df195
commit e440953256
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/cdmgr.c
View File

@ -4024,8 +4024,8 @@ p_is_profiled(void)
else ta = MkAtomTerm(AtomOff); else ta = MkAtomTerm(AtomOff);
BIND((CELL *)t,ta,bind_is_profiled); BIND((CELL *)t,ta,bind_is_profiled);
#ifdef COROUTINING #ifdef COROUTINING
DO_TRAIL(CellPtr(t), ta); DO_TRAIL(VarOfTerm(t), ta);
if (CellPtr(t) < H0) Yap_WakeUp((CELL *)t); if (IsAttVar(VarOfTerm(t))) Yap_WakeUp((CELL *)t);
bind_is_profiled: bind_is_profiled:
#endif #endif
return(TRUE); return(TRUE);
@ -4127,8 +4127,8 @@ p_is_call_counted(void)
else ta = MkAtomTerm(AtomOff); else ta = MkAtomTerm(AtomOff);
BIND((CELL *)t,ta,bind_is_call_counted); BIND((CELL *)t,ta,bind_is_call_counted);
#ifdef COROUTINING #ifdef COROUTINING
DO_TRAIL(CellPtr(t), ta); DO_TRAIL(VarOfTerm(t), ta);
if (CellPtr(t) < H0) Yap_WakeUp((CELL *)t); if (IsAttVar(VarOfTerm(t))) Yap_WakeUp((CELL *)t);
bind_is_call_counted: bind_is_call_counted:
#endif #endif
return(TRUE); return(TRUE);