Add the macros dAX and dITEMS to PPPort.

p4raw-id: //depot/perl@21915

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index adc4c6a..45a34b6 100644 (file)
--- 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)