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

help Ines by adding a predicate that loops for ever (useful for // debug). 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@404 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-03-08 06:32:11 +00:00
parent 75669bf0d8
commit 7460eccabd
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/stdpreds.c
View File

@ -167,6 +167,7 @@ p_creep(void)
pred = RepPredProp(PredPropByFunc(MkFunctor(at, 1),0));
CreepCode = pred;
CreepFlag = Unsigned(LCL0)-Unsigned(H0);
creep_on = TRUE;
return (TRUE);
}
@ -2082,6 +2083,14 @@ p_euc_dist(void) {
Int result = (Int)sqrt(d1*d1+d2*d2+d3*d3);
return(unify(ARG3,MkIntegerTerm(result)));
}
volatile int loop_counter = 0;
static Int
p_loop(void) {
while (loop_counter == 0);
return(TRUE);
}
#endif
void
@ -2161,6 +2170,7 @@ InitCPreds(void)
#endif
#ifdef INES
InitCPred("euc_dist", 3, p_euc_dist, SafePredFlag);
InitCPred("loop", 0, p_loop, SafePredFlag);
#endif
#ifdef DEBUG
InitCPred("dump_active_goals", 0, p_dump_active_goals, SafePredFlag|SyncPredFlag);