p_execute_within

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@172 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-10-30 20:35:19 +00:00
parent 2cd48bde1a
commit a543874856
7 changed files with 148 additions and 5 deletions

View File

@@ -770,6 +770,8 @@ a_p(op_numbers opcode)
} else {
if (RepPredProp(fe)->FunctorOfPred == FunctorExecuteInMod)
code_p->opc = emit_op(_p_execute);
else if (RepPredProp(fe)->FunctorOfPred == FunctorExecuteWithin)
code_p->opc = emit_op(_p_execute_within);
else
code_p->opc = emit_op(_call_cpred);
}