fix change#2602 to not used hard coded constants

p4raw-link: @2602 on //depot/cfgperl: 88b39979ed4ec47a51ecb175fcf086fb7df0ebdb

p4raw-id: //depot/perl@2621

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 336784c..37eaa23 100644 (file)
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -49,7 +49,8 @@ use Exporter ();
 
 use B qw(minus_c sv_undef walkoptree walksymtable main_root main_start peekop
         class cstring cchar svref_2object compile_stats comppadlist hash
-        threadsv_names main_cv init_av opnumber);
+        threadsv_names main_cv init_av opnumber
+        AVf_REAL HEf_SVKEY);
 use B::Asmdata qw(@specialsv_name);
 
 use FileHandle;
@@ -103,8 +104,6 @@ sub walk_and_save_optree {
 # to "know" that op_seq is a U16 and use 65535. Ugh.
 my $op_seq = 65535;
 
-sub define HEf_SVKEY   () { -2 }
-
 # Look this up here so we can do just a number compare
 # rather than looking up the name of every BASEOP in B::OP
 my $OP_THREADSV = opnumber('threadsv');

diff --git a/ext/B/defsubs.h.PL b/ext/B/defsubs.h.PL
index b07841a..6253bd2 100644 (file)
--- a/ext/B/defsubs.h.PL
+++ b/ext/B/defsubs.h.PL
@@ -2,6 +2,7 @@
 my ($out) = __FILE__ =~ /(^.*)\.PL/;
 open(OUT,">$out") || die "Cannot open $file:$!";
 foreach my $const (qw(AVf_REAL 
+                     HEf_SVKEY
                       SVf_IOK SVf_NOK SVf_POK SVf_ROK SVp_IOK SVp_POK ))
  {
   doconst($const);