diff options
Diffstat (limited to 'gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm')
| -rw-r--r-- | gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm b/gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm index 23f43a26087..45a34b667b1 100644 --- a/gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm +++ b/gnu/usr.bin/perl/ext/Devel/PPPort/PPPort.pm @@ -68,7 +68,9 @@ even if available, access to a fixed interface): call_method call_pv call_sv + dAX DEFSV + dITEMS dMY_CXT dMY_CXT_SV dNOOP @@ -159,7 +161,7 @@ require DynaLoader; use strict; use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data ); -$VERSION = "2.009"; +$VERSION = "2.011"; @ISA = qw(Exporter DynaLoader); @EXPORT = qw(); @@ -366,9 +368,10 @@ __DATA__ #ifndef PERL_REVISION # ifndef __PATCHLEVEL_H_INCLUDED__ +# define PERL_PATCHLEVEL_H_IMPLICIT # include <patchlevel.h> # endif -# if !(defined(PERL_VERSION) || (SUBVERSION > 0 && defined(PATCHLEVEL))) +# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL))) # include <could_not_find_Perl_patchlevel.h> # endif # ifndef PERL_REVISION @@ -448,6 +451,13 @@ __DATA__ # define aTHX_ #endif +#ifndef dAX +# define dAX I32 ax = MARK - PL_stack_base + 1 +#endif +#ifndef dITEMS +# define dITEMS I32 items = SP - MARK +#endif + /* IV could also be a quad (say, a long long), but Perls * capable of those should have IVSIZE already. */ #if !defined(IVSIZE) && defined(LONGSIZE) |