From: sof <unknown>
Date: Sat, 13 Apr 2002 05:17:11 +0000 (+0000)
Subject: [project @ 2002-04-13 05:17:11 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2154
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=287681a847f1df6b0eff513f68763e6628380317;p=ghc-hetmet.git

[project @ 2002-04-13 05:17:11 by sof]
debug versions of ACQUIRE_LOCK() and RELEASE_LOCK() macros
---

diff --git a/ghc/rts/OSThreads.h b/ghc/rts/OSThreads.h
index eb5d9e7..571c90e 100644
--- a/ghc/rts/OSThreads.h
+++ b/ghc/rts/OSThreads.h
@@ -20,8 +20,13 @@ typedef pthread_t       OSThreadId;
 #define INIT_MUTEX_VAR      PTHREAD_MUTEX_INITIALIZER
 #define INIT_COND_VAR       PTHREAD_COND_INITIALIZER
 
+#ifdef LOCK_DEBUG
+#define ACQUIRE_LOCK(mutex) fprintf(stderr, "ACQUIRE_LOCK(0x%p) %s %d\n", mutex,__FILE__,__LINE__); fflush(stderr); pthread_mutex_lock(mutex)
+#define RELEASE_LOCK(mutex) fprintf(stderr, "RELEASE_LOCK(0x%p) %s %d\n", mutex,__FILE__,__LINE__); fflush(stderr); pthread_mutex_unlock(mutex)
+#else
 #define ACQUIRE_LOCK(mutex) pthread_mutex_lock(mutex)
 #define RELEASE_LOCK(mutex) pthread_mutex_unlock(mutex)
+#endif
 
 # elif defined(HAVE_WINDOWS_H)
 #include <windows.h>