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

optimise is/2 as a binary predicate.

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-02-09 22:21:58 +00:00
parent 8a3978e3e1
commit 89635fb1f6
2 changed files with 19 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/eval.c
View File

@@ -131,16 +131,16 @@ BEAM_is(void)
#endif
static Int
p_is(void)
p_is(CELL result, CELL in)
{ /* X is Y */
Term out;
out = Eval(Deref(ARG2));
out = Eval(Deref(in));
if (out == 0L) {
Yap_Error(EVALUATION_ERROR_INT_OVERFLOW, ARG2, "is/2");
return FALSE;
}
return Yap_unify_constant(ARG1,out);
return Yap_unify_constant(result,out);
}
void
@@ -150,6 +150,6 @@ Yap_InitEval(void)
Yap_InitConstExps();
Yap_InitUnaryExps();
Yap_InitBinaryExps();
Yap_InitCPred("is", 2, p_is, TestPredFlag | SafePredFlag);
Yap_InitCmpPred("is", 2, p_is, BinaryPredFlag | TestPredFlag | SafePredFlag);
}