diff options
Diffstat (limited to 'win32/makeperldef.pl')
| -rw-r--r-- | win32/makeperldef.pl | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/win32/makeperldef.pl b/win32/makeperldef.pl index 0ad09b8303..620d2ebab3 100644 --- a/win32/makeperldef.pl +++ b/win32/makeperldef.pl @@ -1,4 +1,23 @@ +my $CCTYPE = ""; print "EXPORTS\n"; foreach (@ARGV) { - print "\tboot_$_\n" - }; + if (/CCTYPE=(.*)$/) { + $CCTYPE = $1; + next; + } + emit_symbol("boot_$_"); +} + +sub emit_symbol { + my $symbol = shift; + if ($CCTYPE eq "BORLAND") { + # workaround Borland quirk by export both the straight + # name and a name with leading underscore + print "\t$symbol=_$symbol\n"; + print "\t_$symbol\n"; + } + else { + print "\t$symbol\n"; + } +} + |