This should let parrot compile with the free command lind tools from Borland.
Cheers
--
Andrew The
Index: config/init/hints/mswin32.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/mswin32.pl,v
retrieving revision 1.10
diff -r1.10 mswin32.pl
57a58,62
> my($linkflags)=Configure::Data->get(qw(linkflags));
> $linkflags =~ s/-release\s//;
> $linkflags =~ s/-machine:x86\s?//;
> $linkflags =~ s/-nodefaultlib\s//;
> $linkflags =~ s/-nologo\s//;
59c64,66
< o => '.obj',
---
> so => '.dll',
> a => '.lib',
> o => '.obj',
63a71
> cc_ldflags => '',
68d75
< cc_ldflags => '',
70a78
> linkflags => $linkflags,
71a80,87
> # bug #1 tlib cannot handle paths with forward slashes,
> # replace them with backslahes
> # bug #2 tlib also dies if files have the same name in a
> library
> # currently the only conflicting files are in the
> classes
> # directory, rename the object files so that
there is no conflict.
> ar => '$(PERL) -e "map {{ s/\\//\\\\/g; if(/classes\\\\(.+)/)
> {{ system
\"move classes\\\\$1 classes\\\\pmc_$1\"; s/\\\\/\\\\pmc_/;}} }} @ARGV; $l =
shift @ARGV; system \"tlib.exe $l /a /C @ARGV\"; map { if( /classes\\\\pmc_(.*)/
) { system \"move classes\\\\pmc_$1 classes\\\\$1\"} } @ARGV"',
> ar_flags => '',
> ar_out => '',
75a92
> Configure::Data->set('link', Configure::Data->get('ld'));
