From c498ce424205023240debef2488295b5916e61d3 Mon Sep 17 00:00:00 2001
From: welch <welch@noemail.net>
Date: Tue, 10 Aug 1999 17:17:27 +0000
Subject: Fixed level of indirection in Tcl_GetAllocMutex

FossilOrigin-Name: 493612de836ab32db1adeea0f63330b3f5eafe7e
---
 unix/tclUnixThrd.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c
index a9127a7..47e56d7 100644
--- a/unix/tclUnixThrd.c
+++ b/unix/tclUnixThrd.c
@@ -41,6 +41,7 @@ static pthread_mutex_t initLock = PTHREAD_MUTEX_INITIALIZER;
  */
 
 static pthread_mutex_t allocLock = PTHREAD_MUTEX_INITIALIZER;
+static pthread_mutex_t *allocLockPtr = &allocLock;
 
 /*
  * These are for the critical sections inside this file.
@@ -279,7 +280,7 @@ Tcl_Mutex *
 Tcl_GetAllocMutex()
 {
 #ifdef TCL_THREADS
-    return (Tcl_Mutex *)&allocLock;
+    return (Tcl_Mutex *)&allocLockPtr;
 #else
     return NULL;
 #endif
-- 
cgit v0.12