From 7d7b79630f126f3d68290412a11955593ecbd067 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 16 Feb 2004 19:22:40 +0000
Subject: [PATCH] - setconcurrency was spelled wrongly - avoid several workers
 spewing out the same message in low_level_tracer.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@991 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/threads.c | 2 +-
 C/tracer.c  | 5 ++---
 H/Heap.h    | 5 ++++-
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/C/threads.c b/C/threads.c
index 0b130fddc..44160352e 100644
--- a/C/threads.c
+++ b/C/threads.c
@@ -384,7 +384,7 @@ void Yap_InitThreadPreds(void)
   Yap_InitCPred("$thread_join", 1, p_thread_join, 0);
   Yap_InitCPred("$detach_thread", 1, p_thread_detach, 0);
   Yap_InitCPred("$thread_exit", 0, p_thread_exit, 0);
-  Yap_InitCPred("thread_set_concurrency", 2, p_thread_set_concurrency, 0);
+  Yap_InitCPred("thread_setconcurrency", 2, p_thread_set_concurrency, 0);
   Yap_InitCPred("$valid_thread", 1, p_valid_thread, 0);
   Yap_InitCPred("$new_mutex", 1, p_new_mutex, SafePredFlag);
   Yap_InitCPred("$destroy_mutex", 1, p_destroy_mutex, SafePredFlag);
diff --git a/C/tracer.c b/C/tracer.c
index 3163d149e..c68439628 100644
--- a/C/tracer.c
+++ b/C/tracer.c
@@ -114,10 +114,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
   Int arity;
   /*  extern int gc_calls; */
 
+  LOCK(heap_regs->low_level_trace_lock);
   vsc_count++;
-  if (vsc_count == 395950L)
-    vsc_xstop = 1;
-  return;
 #ifdef COMMENTED
   if (port != enter_pred ||
       !pred ||
@@ -237,6 +235,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
     }
     break;
   }
+  UNLOCK(heap_regs->low_level_trace_lock);
 }
 
 void
diff --git a/H/Heap.h b/H/Heap.h
index 339edaee6..5f7b6f505 100644
--- a/H/Heap.h
+++ b/H/Heap.h
@@ -10,7 +10,7 @@
 * File:		Heap.h         						 *
 * mods:									 *
 * comments:	Heap Init Structure					 *
-* version:      $Id: Heap.h,v 1.58 2004-02-13 18:39:29 vsc Exp $	 *
+* version:      $Id: Heap.h,v 1.59 2004-02-16 19:22:40 vsc Exp $	 *
 *************************************************************************/
 
 /* information that can be stored in Code Space */
@@ -198,6 +198,9 @@ typedef struct various_codes {
   lockvar  dead_clauses_lock;        /* protect DeadClauses */
   int      heap_top_owner;
   unsigned int n_of_threads;      /* number of threads and processes in system */
+#ifdef LOW_LEVEL_TRACER
+  lockvar  low_level_trace_lock;
+#endif
 #endif
   unsigned int size_of_overflow;
   Term  module_name[MaxModules];