This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move PAD_FAKELEX_ANON and PAD_FAKELEX_MULTI to pad.h, export them via
authorNicholas Clark <nick@ccl4.org>
Thu, 28 Dec 2006 21:41:52 +0000 (21:41 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 28 Dec 2006 21:41:52 +0000 (21:41 +0000)
B.pm, so that B::Concise doesn't need to hard code magic numbers.

p4raw-id: //depot/perl@29631

ext/B/B/Concise.pm
ext/B/defsubs_h.PL
ext/B/t/concise-xs.t
pad.c
pad.h

index 82a9ff4..8f99abc 100644 (file)
@@ -28,7 +28,7 @@ our %EXPORT_TAGS =
 # use #6
 use B qw(class ppname main_start main_root main_cv cstring svref_2object
         SVf_IOK SVf_NOK SVf_POK SVf_IVisUV SVf_FAKE OPf_KIDS OPf_SPECIAL
-        CVf_ANON);
+        CVf_ANON PAD_FAKELEX_ANON PAD_FAKELEX_MULTI);
 
 my %style =
   ("terse" =>
@@ -731,8 +731,10 @@ sub concise_op {
                    # These changes relate to the jumbo closure fix.
                    # See changes 19939 and 20005
                    my $fake = '';
-                   $fake .= 'a' if $padname->PARENT_FAKELEX_FLAGS & 1; # PAD_FAKELEX_ANON
-                   $fake .= 'm' if $padname->PARENT_FAKELEX_FLAGS & 2; # PAD_FAKELEX_MULTI
+                   $fake .= 'a'
+                       if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_ANON;
+                   $fake .= 'm'
+                       if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_MULTI;
                    $fake .= ':' . $padname->PARENT_PAD_INDEX
                        if $curcv->CvFLAGS & CVf_ANON;
                    $h{targarglife} = "$h{targarg}:FAKE:$fake";
index 0a1f781..9291f34 100644 (file)
@@ -51,7 +51,7 @@ foreach my $const (qw(
  {
   doconst($const);
  }
-foreach my $file (qw(op.h cop.h))
+foreach my $file (qw(op.h cop.h pad.h))
  {
   my $path = $^O eq 'MacOS' ? ":::$file" : "../../$file";
   open(OPH,"$path") || die "Cannot open $path:$!";
index a83bc16..76f307b 100644 (file)
@@ -117,7 +117,7 @@ use Getopt::Std;
 use Carp;
 use Test::More tests => ( # per-pkg tests (function ct + require_ok)
                          40 + 16       # Data::Dumper, Digest::MD5
-                         + 517 + 236   # B::Deparse, B
+                         + 517 + 241   # B::Deparse, B
                          + 595 + 190   # POSIX, IO::Socket
                          + 3 * ($] > 5.009)
                          + 16 * ($] >= 5.009003)
diff --git a/pad.c b/pad.c
index 2cfdc85..67913b0 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -669,11 +669,6 @@ the parent pad.
 =cut
 */
 
-/* Flags set in the SvIVX field of FAKE namesvs */
-
-#define PAD_FAKELEX_ANON   1 /* the lex is declared in an ANON, or ... */
-#define PAD_FAKELEX_MULTI  2 /* the lex can be instantiated multiple times */
-
 /* the CV has finished being compiled. This is not a sufficient test for
  * all CVs (eg XSUBs), but suffices for the CVs found in a lexical chain */
 #define CvCOMPILED(cv) CvROOT(cv)
diff --git a/pad.h b/pad.h
index bf91d0c..44e9385 100644 (file)
--- a/pad.h
+++ b/pad.h
@@ -89,6 +89,11 @@ typedef U64TYPE PADOFFSET;
        (0 + (((XPVNV*) SvANY(sv))->xnv_u.xpad_cop_seq.xhigh))
 #endif
 
+/* Flags set in the SvIVX field of FAKE namesvs */
+    
+#define PAD_FAKELEX_ANON   1 /* the lex is declared in an ANON, or ... */
+#define PAD_FAKELEX_MULTI  2 /* the lex can be instantiated multiple times */
+
 /* flags for the pad_new() function */
 
 #define padnew_CLONE   1       /* this pad is for a cloned CV */