From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 1 May 2002 06:50:24 +0000 (+0000)
Subject: Remove "spurious" (and unnecessary) variables from layer_syms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad6971c848a6c9ababdb3d314df9138e0a0f49d9;p=p5sagit%2Fp5-mst-13.2.git

Remove "spurious" (and unnecessary) variables from layer_syms
Win32 (Win2k), MinGW-1.1 - passes all tests! ;-)

p4raw-id: //depot/perlio@16297
---

diff --git a/makedef.pl b/makedef.pl
index d218411..103a1ca 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";