support no trace predicates

2013-12-11 01:05:51 +00:00
parent 2f8c3d2d1b
commit ba2c0ca2a0
9 changed files with 92 additions and 8 deletions
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@@ -2311,6 +2311,9 @@ X_API void PL_register_foreign_in_module(const char *module, const char *name, i
  } else {
    UserCPredicate((char *)name,(CPredicate)function,arity,tmod,nflags);
  }
+  if (flags & PL_FA_NOTRACE) {
+    Yap_SetNoTrace((char *)name, arity, tmod);
+  }
 }

 X_API void PL_register_extensions(const PL_extension *ptr)