fix reference to Yap_regp

This commit is contained in:
Costa Vitor 2009-06-01 15:46:37 -05:00
parent d1175de6bb
commit 00c9194014
1 changed files with 1 additions and 1 deletions

View File

@ -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));
}