Change 23212 by [EMAIL PROTECTED] on 2004/08/10 07:21:19
Subject: 2 patches: goto.t, B.pm/xs
From: Jim Cromie <[EMAIL PROTECTED]>
Date: Sun, 08 Aug 2004 18:42:47 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B.pm#59 edit
... //depot/perl/ext/B/B.xs#90 edit
Differences ...
==== //depot/perl/ext/B/B.pm#59 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#58~22354~ Sat Feb 21 08:23:54 2004
+++ perl/ext/B/B.pm Tue Aug 10 00:21:19 2004
@@ -7,7 +7,7 @@
#
package B;
-our $VERSION = '1.05';
+our $VERSION = '1.06';
use XSLoader ();
require Exporter;
@@ -920,6 +920,9 @@
=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,11 +947,15 @@
=item type
-=item seq
+=item opt
+
+=item static
=item flags
=item private
+
+=item spare
=back
==== //depot/perl/ext/B/B.xs#90 (text) ====
Index: perl/ext/B/B.xs
--- perl/ext/B/B.xs#89~22353~ Sat Feb 21 08:18:32 2004
+++ perl/ext/B/B.xs Tue Aug 10 00:21:19 2004
@@ -718,6 +718,7 @@
#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_
@@ -786,6 +787,10 @@
U8
OP_private(o)
+ B::OP o
+
+U8
+OP_spare(o)
B::OP o
void
End of Patch.
