Added Tcl_GetAllocMutex for use by tclAlloc.c and tclCkalloc.c

FossilOrigin-Name: a5ed5c1af78a4d06c9a8ae4b4cfd8227a89c1b08

1 files changed, 27 insertions, 0 deletions

diff --git a/mac/tclMacThrd.c b/mac/tclMacThrd.c
index 7790e5f..75f5e35 100644
--- a/mac/tclMacThrd.c
+++ b/mac/tclMacThrd.c
@@ -308,6 +308,33 @@ TclpMasterUnlock()
 #endif
 }
 
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tcl_GetAllocMutex
+ *
+ *	This procedure returns a pointer to a statically initialized
+ *	mutex for use by the memory allocator.  The alloctor must
+ *	use this lock, because all other locks are allocated...
+ *
+ * Results:
+ *	A pointer to a mutex that is suitable for passing to
+ *	Tcl_MutexLock and Tcl_MutexUnlock.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+Tcl_Mutex *
+Tcl_GetAllocMutex()
+{
+    /* There is nothing to do on the Mac */
+    return NULL;
+}
+
 #ifdef TCL_THREADS
 
 /*