[perl #34910] [PATCH] t/pmc/nci.t failure with MinGW32

[François]

# New Ticket Created by  FranÃois PERRAD 
# Please include the string:  [perl #34910]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=34910 >



Just use gcc with good parameters for build DLL.

Francois.
cvs -q diff -u
Index: config/init/hints/mswin32.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/mswin32.pl,v
retrieving revision 1.27
diff -u -r1.27 mswin32.pl
--- config/init/hints/mswin32.pl        31 Mar 2005 09:06:07 -0000      1.27
+++ config/init/hints/mswin32.pl        10 Apr 2005 08:51:56 -0000
@@ -153,20 +153,24 @@
                                'ccflags' => '-s -O2 -DWIN32 ',
                                'cp' => 'copy',
                                'ld' => 'g++',
-                               'ld_load_flags' => '-mdll -s ',
-                               'ld_share_flags' => '-mdll -s ',
+                               'ld_load_flags' => '-shared ',
+                               'ld_share_flags' => '-shared libparrot.def ',
                                'ldflags' => '-s ',
                                'libs' => '-lmsvcrt -lmoldname -lkernel32 
-luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 
-lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
                                'link' => 'gcc',
                                'linkflags' => '-s ',
                                'make' => 'mingw32-make',
+                               'ncilib_link_extra' => 'src/libnci_test.def',
                                'o' => '.o',
                        );
                } elsif ($make =~ /dmake/i) {
                        # mingw Perl
                        Configure::Data->set(
                                'cp' => 'copy',
+                               'ld_load_flags' => '-shared ',
+                               'ld_share_flags' => '-shared libparrot.def ',
                                'make' => 'mingw32-make',
+                               'ncilib_link_extra' => 'src/libnci_test.def',
                        );
                } else {
                        warn "unknown configuration";
Index: config/init/hints/msys.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/msys.pl,v
retrieving revision 1.2
diff -u -r1.2 msys.pl
--- config/init/hints/msys.pl   31 Mar 2005 09:06:07 -0000      1.2
+++ config/init/hints/msys.pl   10 Apr 2005 09:51:54 -0000
@@ -7,8 +7,9 @@
 
        Configure::Data->set(
                ld => '$(PERL) /bin/perlld',
+               ld_load_flags => '-shared ',
                libs => '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32 
-lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid 
-lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
-               ncilib_link_extra => '-def:src/libnci_test.def',
+               ncilib_link_extra => 'src/libnci_test.def',
                slash_exec => '\\',
        );