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