generate known atoms and functors automatically

2008-12-23 01:53:52 +00:00
parent 8efcdf7eaa
commit a8ac9bfb43
34 changed files with 2180 additions and 1003 deletions
--- a/C/amasm.c
+++ b/C/amasm.c
@@ -4024,7 +4024,7 @@ Yap_InitComma(void)
  code_p->u.Osbpp.bmap = NULL;
  GONEXT(Osbpp);
  if (PRED_GOAL_EXPANSION_ON) {
-    Functor fp = Yap_MkFunctor(Yap_FullLookupAtom("$generate_pred_info"),4);
+    Functor fp = FunctorGeneratePredInfo;
    code_p->opc = emit_op(_call_cpred);
    code_p->u.Osbpp.s = emit_count(-Signed(RealEnvSize));
    code_p->u.Osbpp.p =