diff options
Diffstat (limited to 'ext/Devel/PPPort/PPPort.pm')
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm index adc4c6a32c..45a34b667b 100644 --- a/ext/Devel/PPPort/PPPort.pm +++ b/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.010"; +$VERSION = "2.011"; @ISA = qw(Exporter DynaLoader); @EXPORT = qw(); @@ -449,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) |