From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 28 Feb 1998 22:16:45 +0000 (+0000)
Subject: [win32] fix typo in sv.h, and run 'make regen_headers' to make it build
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bfcb09dbc8a8333a31bc4ed39ebc944580fd2fe;p=p5sagit%2Fp5-mst-13.2.git

[win32] fix typo in sv.h, and run 'make regen_headers' to make it build

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

diff --git a/embedvar.h b/embedvar.h
index d11686c..bfc39d5 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -716,6 +716,7 @@
 #define sv_no			(Perl_Vars.Gsv_no)
 #define sv_undef		(Perl_Vars.Gsv_undef)
 #define sv_yes			(Perl_Vars.Gsv_yes)
+#define svref_mutex		(Perl_Vars.Gsvref_mutex)
 #define thisexpr		(Perl_Vars.Gthisexpr)
 #define thr_key			(Perl_Vars.Gthr_key)
 #define threads_mutex		(Perl_Vars.Gthreads_mutex)
@@ -834,6 +835,7 @@
 #define Gsv_no			sv_no
 #define Gsv_undef		sv_undef
 #define Gsv_yes			sv_yes
+#define Gsvref_mutex		svref_mutex
 #define Gthisexpr		thisexpr
 #define Gthr_key		thr_key
 #define Gthreads_mutex		threads_mutex
@@ -952,6 +954,7 @@
 #define sv_no			Perl_sv_no
 #define sv_undef		Perl_sv_undef
 #define sv_yes			Perl_sv_yes
+#define svref_mutex		Perl_svref_mutex
 #define thisexpr		Perl_thisexpr
 #define thr_key			Perl_thr_key
 #define threads_mutex		Perl_threads_mutex
diff --git a/sv.h b/sv.h
index e9614e6..0b3adea 100644
--- a/sv.h
+++ b/sv.h
@@ -84,10 +84,10 @@ struct io {
 	++count;				\
 	MUTEX_UNLOCK(&svref_mutex);		\
      } STMT_END
-#    define ATOMIC_DEC_AND_TEST(res,count) 	\
-	MUTEX_LOCK(&svref_mutex);		\
-	res = (--count == 0);			\
-	MUTEX_UNLOCK(&svref_mutex);		\
+#    define ATOMIC_DEC_AND_TEST(res,count) STMT_START {	\
+	MUTEX_LOCK(&svref_mutex);			\
+	res = (--count == 0);				\
+	MUTEX_UNLOCK(&svref_mutex);			\
      } STMT_END
 #  else
 #    define ATOMIC_INC(count) atomic_inc(&count)