more patches to support Anderson's JIT.

2009-04-08 00:32:36 +01:00
parent b2ad3bd000
commit b92b026c90
12 changed files with 77 additions and 10 deletions
--- a/C/compiler.c
+++ b/C/compiler.c
@@ -2098,6 +2098,8 @@ c_head(Term t, compiler_struct *cglobs)
     Yap_emit(run_op,Zero,(unsigned long) cglobs->cint.CurrentPred,&cglobs->cint);
   }
 #endif
+   if (Yap_ExecutionMode == MIXED_MODE_USER)
+     Yap_emit(native_op, 0, 0, &cglobs->cint);
  c_args(t, 0, cglobs);
 }