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

diff --git a/makedef.pl b/makedef.pl
index 46ddd14..376f328 100644 (file)
--- 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";