globvar.sym: include PL_ prefix in names
authorDavid Mitchell <davem@iabyn.com>
Mon, 22 Sep 2014 15:20:18 +0000 (16:20 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 22 Sep 2014 15:32:49 +0000 (16:32 +0100)
By prepending 'PL_' to each line in globvar.sym, it
a) makes makedef.pl slightly simpler,
b) makes it easier to spot all usage of a particular var when you
   do 'git grep PL_foo'

globvar.sym
makedef.pl

index 3e66db9..87059e2 100644 (file)
@@ -2,77 +2,77 @@
 # *** Only structures/arrays with constant initializers should go here.
 # *** Usual globals initialized at runtime should be added in *var*.h.
 
-No
-Yes
-bincompat_options
-block_type
-charclass
-check
-core_reg_engine
-fold
-fold_latin1
-fold_locale
-freq
-global_struct_size
-hexdigit
-interp_size
-interp_size_5_18_0
-keyword_plugin
-latin1_lc
-magic_data
-magic_vtable_names
-magic_vtables
-memory_wrap
-mod_latin1_uc
-no_aelem
-no_dir_func
-no_func
-no_helem_sv
-no_localize_ref
-no_mem
-no_modify
-no_myglob
-no_security
-no_sock_func
-no_symref
-no_usym
-no_wrongref
-op_desc
-op_name
-op_private_bitdef_ix
-op_private_bitdefs
-op_private_bitfields
-op_private_labels
-op_private_valid
-opargs
-phase_names
-ppaddr
-reg_extflags_name
-reg_intflags_name
-reg_name
-regkind
-revision
-runops_dbg
-runops_std
-sh_path
-sig_name
-sig_num
-simple
-simple_bitmask
-subversion
-utf8skip
-uuemap
-valid_types_IVX
-valid_types_IV_set
-valid_types_NVX
-valid_types_NV_set
-valid_types_PVX
-valid_types_RV
-varies
-varies_bitmask
-version
-warn_nl
-warn_nosemi
-warn_reserved
-warn_uninit
-watch_pvx
+PL_No
+PL_Yes
+PL_bincompat_options
+PL_block_type
+PL_charclass
+PL_check
+PL_core_reg_engine
+PL_fold
+PL_fold_latin1
+PL_fold_locale
+PL_freq
+PL_global_struct_size
+PL_hexdigit
+PL_interp_size
+PL_interp_size_5_18_0
+PL_keyword_plugin
+PL_latin1_lc
+PL_magic_data
+PL_magic_vtable_names
+PL_magic_vtables
+PL_memory_wrap
+PL_mod_latin1_uc
+PL_no_aelem
+PL_no_dir_func
+PL_no_func
+PL_no_helem_sv
+PL_no_localize_ref
+PL_no_mem
+PL_no_modify
+PL_no_myglob
+PL_no_security
+PL_no_sock_func
+PL_no_symref
+PL_no_usym
+PL_no_wrongref
+PL_op_desc
+PL_op_name
+PL_op_private_bitdef_ix
+PL_op_private_bitdefs
+PL_op_private_bitfields
+PL_op_private_labels
+PL_op_private_valid
+PL_opargs
+PL_phase_names
+PL_ppaddr
+PL_reg_extflags_name
+PL_reg_intflags_name
+PL_reg_name
+PL_regkind
+PL_revision
+PL_runops_dbg
+PL_runops_std
+PL_sh_path
+PL_sig_name
+PL_sig_num
+PL_simple
+PL_simple_bitmask
+PL_subversion
+PL_utf8skip
+PL_uuemap
+PL_valid_types_IVX
+PL_valid_types_IV_set
+PL_valid_types_NVX
+PL_valid_types_NV_set
+PL_valid_types_PVX
+PL_valid_types_RV
+PL_varies
+PL_varies_bitmask
+PL_version
+PL_warn_nl
+PL_warn_nosemi
+PL_warn_reserved
+PL_warn_uninit
+PL_watch_pvx
index 2cfd3c4..6ec3d5c 100644 (file)
@@ -697,12 +697,9 @@ unless ($define{'USE_QUADMATH'}) {
 foreach (@syms) {
     my $syms = $ARGS{TARG_DIR} . $_;
     open my $global, '<', $syms or die "failed to open $syms: $!\n";
-    # Functions already have a Perl_ prefix
-    # Variables need a PL_ prefix
-    my $prefix = $syms =~ /var\.sym$/i ? 'PL_' : '';
     while (<$global>) {
        next unless /^([A-Za-z].*)/;
-       my $symbol = "$prefix$1";
+       my $symbol = "$1";
        ++$export{$symbol} unless exists $skip{$symbol};
     }
 }