Low Profiler Update

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1004 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-02-25 19:06:31 +00:00
parent e9657e74c5
commit 6198cdb4bc
7 changed files with 231 additions and 129 deletions
--- a/C/init.c
+++ b/C/init.c
@@ -1206,6 +1206,12 @@ Yap_exit (int value)
 #if defined(YAPOR)
  unmap_memory();
 #endif /* YAPOR */
+
+#ifdef LOW_PROF
+  remove("PROFPREDS");
+  remove("PROFILING");
+#endif
+
  if (! (Yap_PrologMode & BootMode) )
    Yap_ShutdownLoadForeign();
  exit(value);