diff options
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 50 |
1 files changed, 45 insertions, 5 deletions
@@ -4361,11 +4361,13 @@ 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_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 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4387,6 +4390,7 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_clear_all_env), NULL, NULL, + NULL, NULL ); @@ -4398,6 +4402,7 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_clearenv), NULL, NULL, + NULL, NULL ); @@ -4409,13 +4414,21 @@ MGVTBL_SET( 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 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_clearsig), NULL, NULL, + NULL, NULL ); #endif @@ -4439,6 +4453,7 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_wipepack), NULL, NULL, + NULL, NULL ); @@ -4450,6 +4465,7 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_clearpack), NULL, NULL, + NULL, NULL ); @@ -4461,6 +4477,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4472,6 +4489,7 @@ MGVTBL_SET( MEMBER_TO_FPTR(Perl_magic_setisa), NULL, NULL, + NULL, NULL ); @@ -4483,6 +4501,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4494,6 +4513,7 @@ MGVTBL_SET_CONST_MAGIC_GET( NULL, NULL, NULL, + NULL, NULL ); @@ -4505,6 +4525,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_freearylen_p), NULL, + NULL, NULL ); @@ -4516,6 +4537,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4527,6 +4549,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4538,6 +4561,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4549,6 +4573,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4560,6 +4585,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4571,6 +4597,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4582,6 +4609,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4593,6 +4621,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4604,6 +4633,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4615,6 +4645,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4626,6 +4657,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_freeregexp), NULL, + NULL, NULL ); @@ -4637,6 +4669,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4648,6 +4681,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); @@ -4659,6 +4693,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_setamagic), NULL, + NULL, NULL ); @@ -4670,6 +4705,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_setamagic), NULL, + NULL, NULL ); @@ -4681,6 +4717,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_killbackrefs), NULL, + NULL, NULL ); @@ -4692,6 +4729,7 @@ MGVTBL_SET( NULL, MEMBER_TO_FPTR(Perl_magic_freeovrld), NULL, + NULL, NULL ); @@ -4703,6 +4741,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); #ifdef USE_LOCALE_COLLATE @@ -4714,6 +4753,7 @@ MGVTBL_SET( NULL, NULL, NULL, + NULL, NULL ); #endif |