From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 3 Feb 1998 04:48:08 +0000 (+0000)
Subject: [win32] Fix minor problems with non USE_THREADS build. win32 branch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93bce2dcd9a377cf8ad779ab0e9115bcce1265d2;p=p5sagit%2Fp5-mst-13.2.git

[win32] Fix minor problems with non USE_THREADS build. win32 branch
now looks 5.004_57-ready.

p4raw-id: //depot/win32/perl@456
---

diff --git a/thread.h b/thread.h
index 1b1ddf9..07604f6 100644
--- a/thread.h
+++ b/thread.h
@@ -217,6 +217,8 @@ typedef struct condpair {
 #define COND_BROADCAST(c)
 #define COND_WAIT(c, m)
 #define COND_DESTROY(c)
+#define LOCK_SV_MUTEX
+#define UNLOCK_SV_MUTEX
 
 #define THR
 /* Rats: if dTHR is just blank then the subsequent ";" throws an error */
diff --git a/win32/makedef.pl b/win32/makedef.pl
index ddf01fd..e0312e2 100644
--- a/win32/makedef.pl
+++ b/win32/makedef.pl
@@ -219,6 +219,7 @@ Perl_nthreads
 Perl_nthreads_cond
 Perl_per_thread_magicals
 Perl_thread_create
+Perl_threadnum
 Perl_find_threadsv
 Perl_threadsv_names
 Perl_thrsv