diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-06-24 01:15:11 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 13:00:47 +0000 |
| commit | 207f9c165d175758399b873595702060df2a94eb (patch) | |
| tree | 16fe55760aedf9ebe1edc2aea85fa58dca9a28d4 /makedef.pl | |
| parent | 2e7f46bf89c43d7db1b6f05280f4be821d5e2b32 (diff) | |
| download | perl-207f9c165d175758399b873595702060df2a94eb.tar.gz | |
Re: [PATCH 5.6.1] OS2 linking
Message-ID: <20010624051511.A27544@math.ohio-state.edu>
Add ordinals to the export list for Perl DLL.
(Breaks intra-version DLL compatibility.)
p4raw-id: //depot/perl@10879
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 46ddd14450..376f3288af 100644 --- a/makedef.pl +++ b/makedef.pl @@ -1096,6 +1096,8 @@ sub emit_symbol { $export{$symbol} = 1; } +my $sym_ord = 0; + sub output_symbol { my $symbol = shift; $symbol = $bincompat5005{$symbol} @@ -1126,7 +1128,7 @@ sub output_symbol { # } } elsif ($PLATFORM eq 'os2') { - print qq( "$symbol"\n); + printf qq( %-31s \@%s\n), qq("$symbol"), ++$sym_ord; } elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') { print "$symbol\n"; |