Change 27361: [PATCH] mgvtbl initialization

[Rafael Garcia-Suarez]

Change 27361 by [EMAIL PROTECTED] on 2006/03/02 09:11:35

        Subject: [PATCH] mgvtbl initialization
        From: [EMAIL PROTECTED] (Andy Lester)
        Date: Wed, 1 Mar 2006 22:52:20 -0600
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/perl.h#671 edit

Differences ...

==== //depot/perl/perl.h#671 (text) ====
Index: perl/perl.h
--- perl/perl.h#670~27334~      2006-02-27 03:06:30.000000000 -0800
+++ perl/perl.h 2006-03-02 01:11:35.000000000 -0800
@@ -4361,11 +4361,13 @@
 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_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXT MGVTBL var = {(int 
(*)(pTHX_ SV *, MAGIC *))a,b,c,d,e,f,g} /* Like MGVTBL_SET but with the get 
magic having a const MG* */
+#  define MGVTBL_SET(var,a,b,c,d,e,f,g,h) EXT MGVTBL var = {a,b,c,d,e,f,g,h}
+/* Like MGVTBL_SET but with the get magic having a const MG* */
+#  define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g,h) EXT MGVTBL var \
+    = {(int (*)(pTHX_ SV *, MAGIC *))a,b,c,d,e,f,g,h}
 #else
-#  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXT MGVTBL var
-#  define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXT MGVTBL var
+#  define MGVTBL_SET(var,a,b,c,d,e,f,g,h) EXT MGVTBL var
+#  define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g,h) EXT MGVTBL var
 #endif
 
 MGVTBL_SET(
@@ -4376,6 +4378,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4387,6 +4390,7 @@
     MEMBER_TO_FPTR(Perl_magic_clear_all_env),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4398,6 +4402,7 @@
     MEMBER_TO_FPTR(Perl_magic_clearenv),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4409,13 +4414,21 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
 #ifdef PERL_MICRO
 MGVTBL_SET(
     PL_vtbl_sigelem,
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL
+    NULL,
+    NULL,
+    NULL,
+    NULL,
+    NULL,
+    NULL,
+    NULL,
+    NULL
 );
 
 #else
@@ -4427,6 +4440,7 @@
     MEMBER_TO_FPTR(Perl_magic_clearsig),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 #endif
@@ -4439,6 +4453,7 @@
     MEMBER_TO_FPTR(Perl_magic_wipepack),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4450,6 +4465,7 @@
     MEMBER_TO_FPTR(Perl_magic_clearpack),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4461,6 +4477,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4472,6 +4489,7 @@
     MEMBER_TO_FPTR(Perl_magic_setisa),
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4483,6 +4501,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4494,6 +4513,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4505,6 +4525,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_freearylen_p),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4516,6 +4537,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4527,6 +4549,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4538,6 +4561,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4549,6 +4573,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4560,6 +4585,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4571,6 +4597,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4582,6 +4609,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4593,6 +4621,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4604,6 +4633,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4615,6 +4645,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4626,6 +4657,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_freeregexp),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4637,6 +4669,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4648,6 +4681,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 
@@ -4659,6 +4693,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_setamagic),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4670,6 +4705,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_setamagic),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4681,6 +4717,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_killbackrefs),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4692,6 +4729,7 @@
     NULL,
     MEMBER_TO_FPTR(Perl_magic_freeovrld),
     NULL,
+    NULL,
     NULL
 );
 
@@ -4703,6 +4741,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 #ifdef USE_LOCALE_COLLATE
@@ -4714,6 +4753,7 @@
     NULL,
     NULL,
     NULL,
+    NULL,
     NULL
 );
 #endif
End of Patch.