diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 09:12:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-17 09:12:42 +0000 |
| commit | b874ff32521edda1e5f8af22bd8097a0dba60615 (patch) | |
| tree | 9a6c99ec5a7fa42772838141e98d2f42981b3219 /ext/B | |
| parent | be59e445a231e0102a0fd9822727ddbe3e12d0bb (diff) | |
| download | perl-b874ff32521edda1e5f8af22bd8097a0dba60615.tar.gz | |
fix change#2602 to not used hard coded constants
p4raw-link: @2602 on //depot/cfgperl: 88b39979ed4ec47a51ecb175fcf086fb7df0ebdb
p4raw-id: //depot/perl@2621
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/C.pm | 5 | ||||
| -rw-r--r-- | ext/B/defsubs.h.PL | 1 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 336784c8a7..37eaa231c4 100644 --- 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 b07841ae6f..6253bd23c3 100644 --- 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); |