fix calling SWI C-Predicates.
This commit is contained in:
parent
08acf82266
commit
1161f80426
@ -1099,7 +1099,7 @@ typedef Int (*CPredicateV)(Int,Int,struct context *);
|
|||||||
Int
|
Int
|
||||||
YAP_Execute(PredEntry *pe, CPredicate exec_code)
|
YAP_Execute(PredEntry *pe, CPredicate exec_code)
|
||||||
{
|
{
|
||||||
if (pe->PredFlags & CArgsPredFlag) {
|
if (pe->PredFlags & SWIEnvPredFlag) {
|
||||||
CPredicateV codev = exec_code;
|
CPredicateV codev = exec_code;
|
||||||
struct context ctx;
|
struct context ctx;
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user