From: David Dyck <david.dyck@fluke.com>
Date: Wed, 20 Apr 2005 16:35:55 +0000 (-0700)
Subject: patch to [PATCH] Fix MGVTBL structures in perl.h (preprocessor
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ba75e3cf905a6e617107b2c32c44744529e7a65;p=p5sagit%2Fp5-mst-13.2.git

patch to [PATCH] Fix MGVTBL structures in perl.h (preprocessor
Message-Id:  <Pine.LNX.4.62.0504201627550.27786@dd.tc.fluke.com>

fix nits in change #24264:
some preprocessors don't like #ifdefs within a macro's args;
also removed duplicate semicolons from macro definitions.
p4raw-link: @24264 on //depot/perl: 4944113acaf494b4518ba93648e0a4276c34a175

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

diff --git a/perl.h b/perl.h
index 913817d..c867ab2 100644
--- a/perl.h
+++ b/perl.h
@@ -3789,9 +3789,9 @@ END_EXTERN_C
 START_EXTERN_C
 
 #ifdef DOINIT
-#  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXT MGVTBL var = {a,b,c,d,e,f,g};
+#  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXT MGVTBL var = {a,b,c,d,e,f,g}
 #else
-#  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXT MGVTBL var;
+#  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXT MGVTBL var
 #endif
 
 MGVTBL_SET(
@@ -3838,11 +3838,15 @@ MGVTBL_SET(
     NULL
 );
 
+#ifdef PERL_MICRO
 MGVTBL_SET(
     PL_vtbl_sigelem,
-#ifdef PERL_MICRO
     NULL, NULL, NULL, NULL, NULL, NULL, NULL
+);
+
 #else
+MGVTBL_SET(
+    PL_vtbl_sigelem,
     MEMBER_TO_FPTR(Perl_magic_getsig),
     MEMBER_TO_FPTR(Perl_magic_setsig),
     NULL,
@@ -3850,8 +3854,8 @@ MGVTBL_SET(
     NULL,
     NULL,
     NULL
-#endif
 );
+#endif
 
 MGVTBL_SET(
     PL_vtbl_pack,