From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Sun, 5 Oct 1997 17:52:49 +0000 (+0000)
Subject: Move init of global mutexes/cond vars earlier.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c116a00cf797ec2e6795338ee18b88d975e760c5;p=p5sagit%2Fp5-mst-13.2.git

Move init of global mutexes/cond vars earlier.

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

diff --git a/perl.c b/perl.c
index d896801..de66109 100644
--- a/perl.c
+++ b/perl.c
@@ -121,31 +121,37 @@ register PerlInterpreter *sv_interp;
     Zero(sv_interp, 1, PerlInterpreter);
 #endif
 
+   /* Init the real globals? */
+    if (!linestr) {
 #ifdef USE_THREADS
 #ifdef NEED_PTHREAD_INIT
-    pthread_init();
+    	pthread_init();
 #endif /* NEED_PTHREAD_INIT */
-    New(53, thr, 1, struct thread);
+	New(53, thr, 1, struct thread);
+	MUTEX_INIT(&malloc_mutex);
+	MUTEX_INIT(&sv_mutex);
+	MUTEX_INIT(&eval_mutex);
+	COND_INIT(&eval_cond);
+	MUTEX_INIT(&nthreads_mutex);
+	COND_INIT(&nthreads_cond);
+	nthreads = 1;
+	cvcache = newHV();
+	thrflags = 0;
+	curcop = &compiling;
 #ifdef FAKE_THREADS
-    self = thr;
-    thr->next = thr->prev = thr->next_run = thr->prev_run = thr;
-    thr->wait_queue = 0;
-    thr->private = 0;
+	self = thr;
+	thr->next = thr->prev = thr->next_run = thr->prev_run = thr;
+	thr->wait_queue = 0;
+	thr->private = 0;
 #else
-    self = pthread_self();
-    if (pthread_key_create(&thr_key, thread_destruct))
-	croak("panic: pthread_key_create");
-    if (pthread_setspecific(thr_key, (void *) thr))
-	croak("panic: pthread_setspecific");
-#endif /* !FAKE_THREADS */
-    nthreads = 1;
-    cvcache = newHV();
-    thrflags = 0;
-    curcop = &compiling;
+	self = pthread_self();
+	if (pthread_key_create(&thr_key, thread_destruct))
+	    croak("panic: pthread_key_create");
+	if (pthread_setspecific(thr_key, (void *) thr))
+	    croak("panic: pthread_setspecific");
+#endif /* FAKE_THREADS */
 #endif /* USE_THREADS */
 
-    /* Init the real globals? */
-    if (!linestr) {
 	linestr = NEWSV(65,80);
 	sv_upgrade(linestr,SVt_PVIV);
 
@@ -165,12 +171,6 @@ register PerlInterpreter *sv_interp;
 	rs = SvREFCNT_inc(nrs);
 
 	sighandlerp = sighandler;
-	MUTEX_INIT(&malloc_mutex);
-	MUTEX_INIT(&sv_mutex);
-	MUTEX_INIT(&eval_mutex);
-	MUTEX_INIT(&nthreads_mutex);
-	COND_INIT(&nthreads_cond);
-
 	pidstatus = newHV();
 
 #ifdef MSDOS
@@ -532,6 +532,7 @@ register PerlInterpreter *sv_interp;
     MUTEX_DESTROY(&sv_mutex);
     MUTEX_DESTROY(&malloc_mutex);
     MUTEX_DESTROY(&eval_mutex);
+    COND_DESTROY(&eval_cond);
 #endif /* USE_THREADS */
 
     /* As the absolutely last thing, free the non-arena SV for mess() */