diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-15 07:43:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-15 07:43:50 +0000 |
| commit | 50b814c32eb693f4c3297c5ee599da1cf1de0c50 (patch) | |
| tree | 7fb8ddb2af6614bfe78c11ca6e3117c3e7632fea /ext/Devel | |
| parent | d65aee78367371486508ff8c3df3cb79a6da9dd5 (diff) | |
| download | perl-50b814c32eb693f4c3297c5ee599da1cf1de0c50.tar.gz | |
Add the macros dAX and dITEMS to PPPort.
p4raw-id: //depot/perl@21915
Diffstat (limited to 'ext/Devel')
| -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) |