From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Jul 2005 00:19:28 +0000 (+0300)
Subject: Re: [PATCH] Re: [PATCH] Re: a blead warning from tru64
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2e2109e12416b244e6b23d5233c6b74f3451621b;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Re: [PATCH] Re: a blead warning from tru64
Message-Id:  <42C85660.50807@gmail.com>

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

diff --git a/perl.h b/perl.h
index bb8f217..bff904f 100644
--- 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),