Profiler update

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes
2004-03-04 21:17:40 +00:00
parent 0092e6fd45
commit 69f6496e7e
3 changed files with 19 additions and 8 deletions

View File

@@ -3439,7 +3439,7 @@ Yap_PredIsIndexable(PredEntry *ap)
}
#ifdef LOW_PROF
if (ProfilerOn) {
Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap,-1);
Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap,1);
}
#endif /* LOW_PROF */
if (ap->PredFlags & LogUpdatePredFlag) {
@@ -4241,7 +4241,7 @@ ExpandIndex(PredEntry *ap) {
}
#ifdef LOW_PROF
if (ProfilerOn) {
Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap,-1);
Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap,1);
}
#endif /* LOW_PROF */
if (indx_out == NULL) {