$T_HDR_vector = "\.text\n\t\.align 4\n"; # NB: requires padding
#--------------------------------------------------------#
$T_HDR_vector = "\.text\n\t\.align 4\n"; # NB: requires padding
#--------------------------------------------------------#
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = ''; # _ if symbols have an underscore on the front
$T_PRE_APP = # regexp that says what comes before APP/NO_APP
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = ''; # _ if symbols have an underscore on the front
$T_PRE_APP = # regexp that says what comes before APP/NO_APP
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = ''; # _ if symbols have an underscore on the front
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = ''; # _ if symbols have an underscore on the front
#--------------------------------------------------------#
} elsif ( $TargetPlatform =~ /^i386-apple-darwin.*/m ) {
#--------------------------------------------------------#
} elsif ( $TargetPlatform =~ /^i386-apple-darwin.*/m ) {
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = '_'; # _ if symbols have an underscore on the front
$T_PRE_APP = 'DOESNT APPLY'; # regexp that says what comes before APP/NO_APP
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = '_'; # _ if symbols have an underscore on the front
$T_PRE_APP = 'DOESNT APPLY'; # regexp that says what comes before APP/NO_APP
#--------------------------------------------------------#
} elsif ( $TargetPlatform =~ /^x86_64-apple-darwin.*/m ) {
#--------------------------------------------------------#
} elsif ( $TargetPlatform =~ /^x86_64-apple-darwin.*/m ) {
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = '_'; # _ if symbols have an underscore on the front
$T_PRE_APP = 'DOESNT APPLY'; # regexp that says what comes before APP/NO_APP
$T_STABBY = 0; # 1 iff .stab things (usually if a.out format)
$T_US = '_'; # _ if symbols have an underscore on the front
$T_PRE_APP = 'DOESNT APPLY'; # regexp that says what comes before APP/NO_APP
# If this is an entry point with an info table,
# eliminate the entry symbol and all directives involving it.
# If this is an entry point with an info table,
# eliminate the entry symbol and all directives involving it.
@o = ();
foreach $l (split(/\n/m,$c)) {
next if $l =~ /^.*$symb_(entry|ret)${T_POST_LBL}/m;
@o = ();
foreach $l (split(/\n/m,$c)) {
next if $l =~ /^.*$symb_(entry|ret)${T_POST_LBL}/m;
# use vars '$discard1'; # Unused?
local($symb, $tbl, $discard1) = @_;
# use vars '$discard1'; # Unused?
local($symb, $tbl, $discard1) = @_;