From 69f6496e7e6ecfbb94757c3eefa5a2566c5c43bb Mon Sep 17 00:00:00 2001
From: rslopes <rslopes@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 4 Mar 2004 21:17:40 +0000
Subject: [PATCH] Profiler update

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/absmi.c    | 14 ++++++++++++--
 C/index.c    |  4 ++--
 C/stdpreds.c |  9 +++++----
 3 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/C/absmi.c b/C/absmi.c
index 6fc4b1977..c182686c6 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -129,8 +129,8 @@ Yap_absmi(int inp)
   register CELL *pt0, *pt1;
 
 #endif /* LONG_LIVED_REGISTERS */
-
-#if SHADOW_P
+  
+#if SHADOW_P 
   register yamop *PREG = P;
 #endif /* SHADOW_P */
 
@@ -11750,3 +11750,13 @@ Yap_absmi(int inp)
 
 }
 
+
+#if LOW_PROF 
+#include <stdio.h>
+void prof_alrm(int signo)
+{
+  fprintf(FProf,"%p\n", PREG);
+  return;
+}
+
+#endif
diff --git a/C/index.c b/C/index.c
index f233efdc7..f933bc5e5 100644
--- a/C/index.c
+++ b/C/index.c
@@ -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) {
diff --git a/C/stdpreds.c b/C/stdpreds.c
index fe7ca875f..2cfc7a988 100644
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -102,7 +102,7 @@ STD_PROTO(static Int p_set_yap_flags, (void));
 
 #ifdef LOW_PROF
 
-#define TIMER_DEFAULT 1000
+#define TIMER_DEFAULT 100
 #define MORE_INFO_FILE 1
 
 void
@@ -131,14 +131,15 @@ static Int order=0;
 #if defined(__linux__)
 
 static void
-prof_alrm(int signo)
+prof_alrm_OLD(int signo)
 {
-  //  printf("%p\n", Yap_regp->P_);
+  //  printf("%p %p\n", Yap_regp->P_,P);
   fprintf(FProf,"%p\n", Yap_regp->P_);
-  //  fprintf(FProf,"%p\n", P);
   return;
 }
 
+extern void prof_alrm(int signo);
+
 static Int start_profilers(int msec)
 {
   struct itimerval t;