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/compiler.c
+++ b/C/compiler.c
@@ -2908,9 +2908,11 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod, Term src)
      goto restart_compilation;
    }
  } else {
+#ifdef LOW_PROF
    if (ProfilerOn) {
-      Yap_inform_profiler_of_clause(acode, ProfEnd, cglobs.cint.CurrentPred);
+      Yap_inform_profiler_of_clause(acode, ProfEnd, cglobs.cint.CurrentPred,0);
    }
+#endif /* LOW_PROF */
    return(acode);
  }
 }