From: Jim Cromie <jcromie@cpan.org>
Date: Sun, 8 Aug 2004 18:42:47 +0000 (-0600)
Subject: 2 patches: goto.t, B.pm/xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a60ba18bf6de9909177ce1cfc42df4266790d232;p=p5sagit%2Fp5-mst-13.2.git

2 patches: goto.t, B.pm/xs
Message-ID: <4116C887.9080400@divsol.com>

p4raw-id: //depot/perl@23212
---

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 68600a7..5961c07 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -7,7 +7,7 @@
 #
 package B;
 
-our $VERSION = '1.05';
+our $VERSION = '1.06';
 
 use XSLoader ();
 require Exporter;
@@ -920,6 +920,9 @@ with the leading "class indication" prefix (C<"op_">) removed.
 
 =head2 B::OP Methods
 
+These methods get the values of similarly named fields within the OP
+data structure.  See top of C<op.h> for more info.
+
 =over 4
 
 =item next
@@ -944,12 +947,16 @@ This returns the op description from the global C PL_op_desc array
 
 =item type
 
-=item seq
+=item opt
+
+=item static
 
 =item flags
 
 =item private
 
+=item spare
+
 =back
 
 =head2 B::UNOP METHOD
diff --git a/ext/B/B.xs b/ext/B/B.xs
index 3912640..ed1af11 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -718,6 +718,7 @@ threadsv_names()
 #define OP_static(o)	o->op_static
 #define OP_flags(o)	o->op_flags
 #define OP_private(o)	o->op_private
+#define OP_spare(o)	o->op_spare
 
 MODULE = B	PACKAGE = B::OP		PREFIX = OP_
 
@@ -788,6 +789,10 @@ U8
 OP_private(o)
 	B::OP		o
 
+U8
+OP_spare(o)
+	B::OP		o
+
 void
 OP_oplist(o)
 	B::OP		o