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

! in call((a(X),!)) would not cut a(X)

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@59 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-07 16:58:06 +00:00
parent 2a1e82975a
commit f733ea5bdb
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
C/exec.c
View File

@ -423,9 +423,33 @@ p_execute_within(void)
} }
} }
a = AtomOfTerm(t); a = AtomOfTerm(t);
if (a == AtomTrue || a == AtomOtherwise || a == AtomCut) if (a == AtomTrue || a == AtomOtherwise)
return(TRUE); return(TRUE);
else if (a == AtomFail || a == AtomFalse) else if (a == AtomCut) {
#if defined(SBA) && defined(FROZEN_REGS)
choiceptr pt0 = (choiceptr)IntegerOfTerm(Deref(ARG2));
#else
choiceptr pt0 = (choiceptr)(LCL0-IntegerOfTerm(Deref(ARG2)));
#endif
if (TopB != NULL && YOUNGER_CP(TopB,pt0)) {
pt0 = TopB;
if (DelayedB == NULL || YOUNGER_CP(pt0,DelayedB))
DelayedB = pt0;
}
/* find where to cut to */
#ifdef YAPOR
if (SHOULD_CUT_UP_TO(B,pt0)) {
/* Wow, we're gonna cut!!! */
CUT_prune_to(pt0);
#else
if (SHOULD_CUT_UP_TO(B,pt0)) {
/* Wow, we're gonna cut!!! */
B = pt0;
#endif /* YAPOR */
HBREG = PROTECT_FROZEN_H(B);
}
return(TRUE);
} else if (a == AtomFail || a == AtomFalse)
return(FALSE); return(FALSE);
else else
arity = 0; arity = 0;