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

debugging fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2238 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-05-15 18:31:02 +00:00
parent 316811d2cd
commit 511181b472
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
C/exec.c
View File

@@ -262,7 +262,7 @@ copy_execn_to_heap(Functor f, CELL *pt, unsigned int n, unsigned int arity, Term
*H++ = pt[i];
}
for (i=0; i< n; i++) {
*H++ = h0[i-n];
*H++ = h0[(int)(i-n)];
}
tf = AbsPair(h0);
} else {
@@ -271,7 +271,7 @@ copy_execn_to_heap(Functor f, CELL *pt, unsigned int n, unsigned int arity, Term
*H++ = pt[i];
}
for (i=0; i< n; i++) {
*H++ = h0[i-n];
*H++ = h0[(int)(i-n)];
}
tf = AbsAppl(h0);
}
@@ -326,7 +326,6 @@ do_execute_n(Term t, Term mod, unsigned int n)
if (IsExtensionFunctor(f)) {
return CallError(TYPE_ERROR_CALLABLE, mod);
}
arity = ArityOfFunctor(f);
if (PRED_GOAL_EXPANSION_ALL) {
LOCK(SignalLock);
@@ -384,9 +383,9 @@ EnterCreepMode(Term t, Term mod) {
}
PredCreep = RepPredProp(PredPropByFunc(FunctorCreep,1));
if (mod) {
ARG1 = MkPairTerm(mod,ARG1);
ARG1 = MkPairTerm(mod,t);
} else {
ARG1 = MkPairTerm(TermProlog,ARG1);
ARG1 = MkPairTerm(TermProlog,t);
}
LOCK(SignalLock);
CreepFlag = CalculateStackGap();