fix reference to Yap_regp
This commit is contained in:
parent
d1175de6bb
commit
00c9194014
@ -1189,7 +1189,7 @@ YAP_Execute(PredEntry *pe, CPredicate exec_code)
|
||||
if (pe->PredFlags & SWIEnvPredFlag) {
|
||||
CPredicateV codev = (CPredicateV)exec_code;
|
||||
struct foreign_context ctx;
|
||||
ctx.engine = (struct PL_local_data *)Yap_regp;
|
||||
ctx.engine = NULL;
|
||||
|
||||
return ((codev)((&ARG1)-LCL0,0,&ctx));
|
||||
}
|
||||
|
Reference in New Issue
Block a user