From 34f7a5fe99f3faa5f4f74634b6f6f7c52e1655f8 Mon Sep 17 00:00:00 2001 From: Dan Sugalski Date: Fri, 2 Jun 2000 12:00:41 -0400 Subject: VMS fixups so we can build with MULTIPLICITY To: vmsperl@perl.org, perl5-porters@perl.org Message-Id: <4.3.2.7.0.20000602155951.01f02b20@24.8.96.48> Message-Id: <4.3.2.7.0.20000602164011.01ec8c30@24.8.96.48> p4raw-id: //depot/cfgperl@6198 --- perlapi.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'perlapi.c') diff --git a/perlapi.c b/perlapi.c index 10a7a37c40..d3e2482601 100755 --- a/perlapi.c +++ b/perlapi.c @@ -41,6 +41,9 @@ START_EXTERN_C { return &(PL_##v); } #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \ { return &(PL_##v); } +#undef PERLVARIC +#define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \ + { return (const t *)&(PL_##v); } #include "perlvars.h" #undef PERLVAR -- cgit v1.2.1