From 4eeceb65497c10defd8d18475d77f2ef58748139 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sun, 29 Feb 2004 01:40:51 +0000
Subject: [PATCH] debugging leftovers

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1011 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/index.c  | 7 -------
 C/tracer.c | 2 ++
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/C/index.c b/C/index.c
index 0cd4bc2bb..f233efdc7 100644
--- a/C/index.c
+++ b/C/index.c
@@ -3408,7 +3408,6 @@ Yap_PredIsIndexable(PredEntry *ap)
       return FAILCODE;
     }
   } else if (setjres != 0) {
-    printf("at %d\n", vsc_index);
     if (!Yap_growheap(FALSE, Yap_Error_Size, NULL)) {
       Yap_Error(SYSTEM_ERROR, TermNil, Yap_ErrorMessage);
       return FAILCODE;
@@ -4364,16 +4363,10 @@ pop_path(path_stack_entry **spp, ClauseDef *clp, PredEntry *ap)
   clp->Tag = sp->u.pce.tag;
   if (sp->u.pce.pi_pc == NULL) {
     *spp = sp;
-    if (Yap_Option['i' - 'a' + 1]) {
-      printf("%p\n", sp);
-    }
     return NULL;
   }
   nipc = *(sp->u.pce.pi_pc);
   *spp = cross_block(sp, sp->u.pce.pi_pc, ap);
-  if (Yap_Option['i' - 'a' + 1]) {
-    printf("%p\n",*spp);
-  }
   return nipc;
 }
 
diff --git a/C/tracer.c b/C/tracer.c
index b3c579ecf..09193e2cc 100644
--- a/C/tracer.c
+++ b/C/tracer.c
@@ -118,12 +118,14 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
   Int arity;
   /*  extern int gc_calls; */
 
+#if THREADS
   LOCK(heap_regs->low_level_trace_lock);
   if (thread_trace &&
       worker_id +1 != thread_trace) {
     UNLOCK(heap_regs->low_level_trace_lock);
     return;    
   }
+#endif
   vsc_count++;
 #ifdef COMMENTED
   //  if (vsc_count == 218280)