From 58e306b815c80830fa8fe1f0f14952706720b80c Mon Sep 17 00:00:00 2001
From: rslopes <rslopes@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 25 Feb 2004 19:33:08 +0000
Subject: [PATCH] Profiler Update

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1005 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/index.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/C/index.c b/C/index.c
index 6f11931b6..b27caf0da 100644
--- a/C/index.c
+++ b/C/index.c
@@ -4240,9 +4240,11 @@ ExpandIndex(PredEntry *ap) {
     /* single case */
     return *labp;
   }
+#ifdef LOW_PROF
   if (ProfilerOn) {
-    Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap); 
+    Yap_inform_profiler_of_clause(indx_out, ProfEnd, ap,-1); 
   }
+#endif /* LOW_PROF */
   if (indx_out == NULL) {
     return FAILCODE;
   }