From: Artur Bergman <sky@nanisky.com>
Date: Wed, 13 Feb 2002 12:56:13 +0000 (+0000)
Subject: rename mutex to make a bit more sense
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=419d29dc08d4a7f0c22958c54e01cffd250b5a2a;p=p5sagit%2Fp5-mst-13.2.git

rename mutex to make a bit more sense

p4raw-id: //depot/perl@14679
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 906828f..006e552 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -69,7 +69,7 @@ ithread *threads;
 #define ithread_detach(thread)		Perl_ithread_detach(aTHX_ thread)
 #define ithread_tid(thread)		((thread)->tid)
 
-static perl_mutex create_mutex;  /* protects the creation of threads ??? */
+static perl_mutex create_destruct_mutex;  /* protects the creation and destruction of threads*/
 
 I32 tid_counter = 0;
 I32 active_threads = 0;
@@ -86,7 +86,7 @@ Perl_ithread_destruct (pTHX_ ithread* thread)
 		MUTEX_UNLOCK(&thread->mutex);
 		return;
 	}
-	MUTEX_LOCK(&create_mutex);
+	MUTEX_LOCK(&create_destruct_mutex);
 	/* Remove from circular list of threads */
 	if (thread->next == thread) {
 	    /* last one should never get here ? */
@@ -100,7 +100,7 @@ Perl_ithread_destruct (pTHX_ ithread* thread)
 	    }
 	}
 	active_threads--;
-	MUTEX_UNLOCK(&create_mutex);
+	MUTEX_UNLOCK(&create_destruct_mutex);
 	/* Thread is now disowned */
 #if 0
         Perl_warn(aTHX_ "destruct %d @ %p by %p",
@@ -283,7 +283,7 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 	ithread*	thread;
 	CLONE_PARAMS	clone_param;
 
-	MUTEX_LOCK(&create_mutex);
+	MUTEX_LOCK(&create_destruct_mutex);
 	thread = PerlMemShared_malloc(sizeof(ithread));
 	Zero(thread,1,ithread);
 	thread->next = threads;
@@ -369,7 +369,7 @@ Perl_ithread_create(pTHX_ SV *obj, char* classname, SV* init_function, SV* param
 	}
 #endif
 	active_threads++;
-	MUTEX_UNLOCK(&create_mutex);
+	MUTEX_UNLOCK(&create_destruct_mutex);
 	return ithread_to_SV(aTHX_ obj, thread, classname, FALSE);
 }
 
@@ -532,8 +532,8 @@ BOOT:
 	ithread* thread;
 	PL_perl_destruct_level = 2;
 	PERL_THREAD_ALLOC_SPECIFIC(self_key);
-	MUTEX_INIT(&create_mutex);
-	MUTEX_LOCK(&create_mutex);
+	MUTEX_INIT(&create_destruct_mutex);
+	MUTEX_LOCK(&create_destruct_mutex);
 	thread  = PerlMemShared_malloc(sizeof(ithread));
 	Zero(thread,1,ithread);
 	PL_perl_destruct_level = 2;
@@ -552,6 +552,6 @@ BOOT:
 	thread->thr = pthread_self();
 #endif
 	PERL_THREAD_SETSPECIFIC(self_key,thread);
-	MUTEX_UNLOCK(&create_mutex);
+	MUTEX_UNLOCK(&create_destruct_mutex);
 }