diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-07-04 03:19:28 +0300 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-04 08:11:33 +0000 |
| commit | 2e2109e12416b244e6b23d5233c6b74f3451621b (patch) | |
| tree | 4ce92c83ea6f45e9a98f57373dc04195a712709f | |
| parent | 0eb6355a4410699750ec3d1b3a23891052a0ad29 (diff) | |
| download | perl-2e2109e12416b244e6b23d5233c6b74f3451621b.tar.gz | |
Re: [PATCH] Re: [PATCH] Re: a blead warning from tru64
Message-Id: <42C85660.50807@gmail.com>
p4raw-id: //depot/perl@25060
| -rw-r--r-- | perl.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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), |