From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 15 Dec 2003 07:43:50 +0000 (+0000)
Subject: Add the macros dAX and dITEMS to PPPort.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50b814c32eb693f4c3297c5ee599da1cf1de0c50;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)