From: Jarkko Hietaniemi Date: Mon, 2 Aug 1999 16:49:08 +0000 (+0000) Subject: PERL_BINCOMPAT_5005 symbol translation. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28dc62dc8a145e3aa6074d477ca4896dec6ede33;p=p5sagit%2Fp5-mst-13.2.git PERL_BINCOMPAT_5005 symbol translation. (AIX wouldn't link neither perl nor extensions.) p4raw-id: //depot/cfgperl@3893 --- diff --git a/makedef.pl b/makedef.pl index a5e7f21..d0b8cc1 100644 --- a/makedef.pl +++ b/makedef.pl @@ -10,6 +10,30 @@ my $PLATFORM; my $CCTYPE; +my %bincompat5005 = + (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"); + +my $bincompat5005 = join("|", keys %bincompat5005); + while (@ARGV) { my $flag = shift; @@ -648,6 +672,7 @@ sub emit_symbol { sub output_symbol { my $symbol = shift; + $symbol = $bincompat5005{$symbol} if $symbol =~ /^($bincompat5005)$/; if ($PLATFORM eq 'win32') { $symbol = "_$symbol" if $CCTYPE eq 'BORLAND'; print "\t$symbol\n";