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

fix ! in debugger in source mode. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@240 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-21 05:41:01 +00:00
parent bdbcb1e005
commit e34262878d
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
C/exec.c
View File

@ -301,6 +301,11 @@ p_execute_within(void)
Prop pe;
Atom a;
SMALLUNSGN mod = LookupModule(tmod);
#ifdef SBA
choiceptr cut_pt = (choiceptr)IntegerOfTerm(Deref(ARG2));
#else
choiceptr cut_pt = (choiceptr)(LCL0-IntegerOfTerm(Deref(ARG2)));
#endif
restart_exec:
if (yap_flags[SPY_CREEP_FLAG]) {
@ -355,7 +360,7 @@ p_execute_within(void)
XREGS[i] = *pt++;
#endif
}
return (CallPredicate(pen, B));
return (CallPredicate(pen, cut_pt));
}
} else if (IsAtomOrIntTerm(t)) {
if (IsIntTerm(t)) {
@ -365,24 +370,19 @@ p_execute_within(void)
if (a == AtomTrue || a == AtomOtherwise)
return(TRUE);
else if (a == AtomCut) {
#ifdef SBA
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;
if (TopB != NULL && YOUNGER_CP(TopB,cut_pt)) {
cut_pt = TopB;
if (DelayedB == NULL || YOUNGER_CP(cut_pt,DelayedB))
DelayedB = cut_pt;
}
/* find where to cut to */
if (SHOULD_CUT_UP_TO(B,pt0)) {
if (SHOULD_CUT_UP_TO(B,cut_pt)) {
#ifdef YAPOR
/* Wow, we're gonna cut!!! */
CUT_prune_to(pt0);
CUT_prune_to(cut_pt);
#else
/* Wow, we're gonna cut!!! */
B = pt0;
B = cut_pt;
#endif /* YAPOR */
HB = PROTECT_FROZEN_H(B);
}
@ -392,7 +392,7 @@ p_execute_within(void)
} else {
/* call may not define new system predicates!! */
pe = PredPropByAtom(a, mod);
return (CallPredicate(RepPredProp(pe), B));
return (CallPredicate(RepPredProp(pe), cut_pt));
}
} else {
/* Is Pair Term */