summaryrefslogtreecommitdiff
path: root/makedef.pl
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2002-05-01 06:50:24 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2002-05-01 06:50:24 +0000
commitad6971c848a6c9ababdb3d314df9138e0a0f49d9 (patch)
tree9c630acabbc0463394b0a259a8c02b68f2a7f4f3 /makedef.pl
parentd3fc1a44058d12315bd16e49f8c7fd1469fd6d9d (diff)
downloadperl-ad6971c848a6c9ababdb3d314df9138e0a0f49d9.tar.gz
Remove "spurious" (and unnecessary) variables from layer_syms
Win32 (Win2k), MinGW-1.1 - passes all tests! ;-) p4raw-id: //depot/perlio@16297
Diffstat (limited to 'makedef.pl')
-rw-r--r--makedef.pl41
1 files changed, 2 insertions, 39 deletions
diff --git a/makedef.pl b/makedef.pl
index d2184112fd..103a1ca2b2 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -11,39 +11,6 @@
my $PLATFORM;
my $CCTYPE;
-my %bincompat5005 =
- (
- Perl_call_atexit => "perl_atexit",
- Perl_eval_sv => "perl_eval_sv",
- Perl_eval_pv => "perl_eval_pv",
- Perl_call_argv => "perl_call_argv",
- Perl_call_method => "perl_call_method",
- Perl_call_pv => "perl_call_pv",
- Perl_call_sv => "perl_call_sv",
- Perl_get_av => "perl_get_av",
- Perl_get_cv => "perl_get_cv",
- Perl_get_hv => "perl_get_hv",
- Perl_get_sv => "perl_get_sv",
- Perl_init_i18nl10n => "perl_init_i18nl10n",
- Perl_init_i18nl14n => "perl_init_i18nl14n",
- Perl_new_collate => "perl_new_collate",
- Perl_new_ctype => "perl_new_ctype",
- Perl_new_numeric => "perl_new_numeric",
- Perl_require_pv => "perl_require_pv",
- Perl_safesyscalloc => "Perl_safecalloc",
- Perl_safesysfree => "Perl_safefree",
- Perl_safesysmalloc => "Perl_safemalloc",
- Perl_safesysrealloc => "Perl_saferealloc",
- Perl_set_numeric_local => "perl_set_numeric_local",
- Perl_set_numeric_standard => "perl_set_numeric_standard",
- Perl_malloc => "malloc",
- Perl_mfree => "free",
- Perl_realloc => "realloc",
- Perl_calloc => "calloc",
- );
-
-my $bincompat5005 = join("|", keys %bincompat5005);
-
while (@ARGV) {
my $flag = shift;
$define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
@@ -727,9 +694,7 @@ my @layer_syms = qw(
PerlIO_pending
PerlIO_push
PerlIO_sv_dup
- PL_def_layerlist
- PL_known_layers
- PL_perlio
+ PerlIO_perlio
);
@@ -1053,7 +1018,7 @@ elsif ($PLATFORM eq 'os2') {
/^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
close MAP or die 'Cannot close miniperl.map';
- @missing = grep { !exists $mapped{$_} and !exists $bincompat5005{$_} }
+ @missing = grep { !exists $mapped{$_} }
keys %export;
delete $export{$_} foreach @missing;
}
@@ -1226,8 +1191,6 @@ sub emit_symbol {
sub output_symbol {
my $symbol = shift;
- $symbol = $bincompat5005{$symbol}
- if $define{PERL_BINCOMPAT_5005} and $symbol =~ /^($bincompat5005)$/;
if ($PLATFORM eq 'win32') {
$symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
print "\t$symbol\n";