This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Re: [PATCH] Re: a blead warning from tru64
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Jul 2005 00:19:28 +0000 (03:19 +0300)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 4 Jul 2005 08:11:33 +0000 (08:11 +0000)
Message-Id:  <42C85660.50807@gmail.com>

p4raw-id: //depot/perl@25060

perl.h

diff --git a/perl.h b/perl.h
index bb8f217..bff904f 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4050,8 +4050,10 @@ START_EXTERN_C
 
 #ifdef DOINIT
 #  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var = {a,b,c,d,e,f,g}
+#  define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST 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* */
 #else
 #  define MGVTBL_SET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
+#  define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g) EXTCONST MGVTBL var
 #endif
 
 MGVTBL_SET(
@@ -4172,7 +4174,7 @@ MGVTBL_SET(
     NULL
 );
 
-MGVTBL_SET(
+MGVTBL_SET_CONST_MAGIC_GET(
     PL_vtbl_arylen,
     MEMBER_TO_FPTR(Perl_magic_getarylen),
     MEMBER_TO_FPTR(Perl_magic_setarylen),