Changes USE_THREADS to USE_5005THREADS in the entire source.

Thanks to H. Merijn Brand for the patch.
Some of the comments and or guards might be removable in perl.h now.

p4raw-id: //depot/perl@11758

6 files changed, 22 insertions, 22 deletions

diff --git a/ext/B/B.xs b/ext/B/B.xs
index c3ce0ed43e..f27f3474ff 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -549,7 +549,7 @@ cchar(sv)
 void
 threadsv_names()
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	int i;
 	STRLEN len = strlen(PL_threadsv_names);
 
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index f8df7b65a2..71b76b53ed 100644
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -1062,10 +1062,10 @@ typedef struct {
     long	xcv_depth;	/* >= 2 indicates recursive call */
     AV *	xcv_padlist;
     CV *	xcv_outside;
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     perl_mutex *xcv_mutexp;
     struct perl_thread *xcv_owner;	/* current owner thread */
-#endif /* USE_THREADS */
+#endif /* USE_5005THREADS */
     cv_flags_t	xcv_flags;
 } XPVCV_or_similar;
 #define ANYINIT(i) i
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 11803c8ee9..b02b9e1b97 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -35,7 +35,7 @@ use warnings ();
 # - package declarations using cop_stash
 # - subs, formats and code sorted by cop_seq
 # Changes between 0.51 and 0.52:
-# - added pp_threadsv (special variables under USE_THREADS)
+# - added pp_threadsv (special variables under USE_5005THREADS)
 # - added documentation
 # Changes between 0.52 and 0.53:
 # - many changes adding precedence contexts and associativity
diff --git a/ext/B/ramblings/runtime.porting b/ext/B/ramblings/runtime.porting
index d58b01105e..2f63a9e37c 100644
--- a/ext/B/ramblings/runtime.porting
+++ b/ext/B/ramblings/runtime.porting
@@ -352,6 +352,6 @@ egrent
 getlogin
 syscall
 lock		6	1
-threadsv	6	2	unused if not USE_THREADS
+threadsv	6	2	unused if not USE_5005THREADS
 setstate	1	1	currently unused anywhere
 method_named	10	2
diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index 9334a15c97..6f9b1eafea 100644
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -165,7 +165,7 @@ char *strerrorcat(char *str, int err) {
     int msgsiz;
     char *msg;
 
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     char *buf = malloc(BUFSIZ);
 
     if (buf == 0)
@@ -193,7 +193,7 @@ char *strerrorcpy(char *str, int err) {
     int msgsiz;
     char *msg;
 
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     char *buf = malloc(BUFSIZ);
 
     if (buf == 0)
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index 4816efcfe4..c008160538 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -23,7 +23,7 @@ static int sig_pipe[2];
 static void
 remove_thread(pTHX_ Thread t)
 {
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     DEBUG_S(WITH_THR(PerlIO_printf(Perl_debug_log,
 				   "%p: remove_thread %p\n", thr, t)));
     MUTEX_LOCK(&PL_threads_mutex);
@@ -40,7 +40,7 @@ remove_thread(pTHX_ Thread t)
 static THREAD_RET_TYPE
 threadstart(void *arg)
 {
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 #ifdef FAKE_THREADS
     Thread savethread = thr;
     LOGOP myop;
@@ -228,7 +228,7 @@ threadstart(void *arg)
 static SV *
 newthread (pTHX_ SV *startsv, AV *initargs, char *classname)
 {
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     dSP;
     Thread savethread;
     int i;
@@ -370,7 +370,7 @@ join(t)
 	AV *	av = NO_INIT
 	int	i = NO_INIT
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	if (t == thr)
 	    croak("Attempt to join self");
 	DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: joining %p (state %u)\n",
@@ -415,7 +415,7 @@ void
 detach(t)
 	Thread	t
     CODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: detaching %p (state %u)\n",
 			      thr, t, ThrSTATE(t)));
     	MUTEX_LOCK(&t->mutex);
@@ -451,7 +451,7 @@ void
 flags(t)
 	Thread	t
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	PUSHs(sv_2mortal(newSViv(t->flags)));
 #endif
 
@@ -459,7 +459,7 @@ void
 done(t)
 	Thread	t
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	PUSHs(t->thr_done ? &PL_sv_yes : &PL_sv_no);
 #endif
 
@@ -469,7 +469,7 @@ self(classname)
     PREINIT:
 	SV *sv;
     PPCODE:        
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	sv = newSViv(thr->tid);
 	sv_magic(sv, thr->oursv, '~', 0, 0);
 	SvMAGIC(sv)->mg_private = Thread_MAGIC_SIGNATURE;
@@ -481,7 +481,7 @@ U32
 tid(t)
 	Thread	t
     CODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
     	MUTEX_LOCK(&t->mutex);
 	RETVAL = t->tid;
     	MUTEX_UNLOCK(&t->mutex);
@@ -501,7 +501,7 @@ void
 yield()
     CODE:
 {
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	YIELD;
 #endif
 }
@@ -511,7 +511,7 @@ cond_wait(sv)
 	SV *	sv
 	MAGIC *	mg = NO_INIT
 CODE:                       
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	if (SvROK(sv))
 	    sv = SvRV(sv);
 
@@ -536,7 +536,7 @@ cond_signal(sv)
 	SV *	sv
 	MAGIC *	mg = NO_INIT
 CODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	if (SvROK(sv))
 	    sv = SvRV(sv);
 
@@ -556,7 +556,7 @@ cond_broadcast(sv)
 	SV *	sv
 	MAGIC *	mg = NO_INIT
 CODE: 
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	if (SvROK(sv))
 	    sv = SvRV(sv);
 
@@ -581,7 +581,7 @@ list(classname)
 	SV **	svp;
 	int	n = 0;
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	av = newAV();
 	/*
 	 * Iterate until we have enough dynamic storage for all threads.
@@ -673,7 +673,7 @@ void
 data(classname = "Thread::Specific")
 	char *	classname
     PPCODE:
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
 	if (AvFILL(thr->specific) == -1) {
 	    GV *gv = gv_fetchpv("Thread::Specific::FIELDS", TRUE, SVt_PVHV);
 	    av_store(thr->specific, 0, newRV((SV*)GvHV(gv)));