From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 24 Jun 2001 05:15:11 +0000 (-0400)
Subject: Re: [PATCH 5.6.1] OS2 linking
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=207f9c165d175758399b873595702060df2a94eb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";