[MLton-commit] r6884

[Wesley Terpstra]

Use --enable-stdcall-fixups for _address of stdcall functions under MinGW.


----------------------------------------------------------------------

U   mlton/trunk/bin/mlton-script
U   mlton/trunk/package/mingw/mlton.bat

----------------------------------------------------------------------

Modified: mlton/trunk/bin/mlton-script
===================================================================
--- mlton/trunk/bin/mlton-script	2008-09-23 15:00:28 UTC (rev 6883)
+++ mlton/trunk/bin/mlton-script	2008-09-23 15:02:38 UTC (rev 6884)
@@ -110,6 +110,7 @@
         -target-link-opt freebsd '-L/usr/local/lib/'             \
         -target-link-opt mingw                                   \
                 '-lws2_32 -lkernel32 -lpsapi -lnetapi32 -lwinmm' \
+        -target-link-opt mingw '-Wl,--enable-stdcall-fixup'      \
         -target-link-opt netbsd                                  \
                 '-Wl,-R/usr/pkg/lib -L/usr/pkg/lib/'             \
         -target-link-opt openbsd '-L/usr/local/lib/'             \

Modified: mlton/trunk/package/mingw/mlton.bat
===================================================================
--- mlton/trunk/package/mingw/mlton.bat	2008-09-23 15:00:28 UTC (rev 6883)
+++ mlton/trunk/package/mingw/mlton.bat	2008-09-23 15:02:38 UTC (rev 6884)
@@ -37,7 +37,7 @@
 set ccopts=-O1 -fno-strict-aliasing -fomit-frame-pointer -w
 set ccopts=%ccopts% -fno-strength-reduce -fschedule-insns -fschedule-insns2
 set ccopts=%ccopts% -malign-functions=5 -malign-jumps=2 -malign-loops=2
-set linkopts=-lm -lgmp -lws2_32 -lkernel32 -lpsapi -lnetapi32 -lwinmm
+set linkopts=-lm -lgmp -lws2_32 -lkernel32 -lpsapi -lnetapi32 -lwinmm -Wl,--enable-stdcall-fixup
 
 "%mlton%" @MLton load-world "%world%" ram-slop 0.5 -- "%lib%" -cc "%cc%" -ar-script "%bin%\static-library.bat" -cc-opt-quote "-I%lib%\include" -cc-opt "%ccopts%" -mlb-path-map "%lib%\mlb-path-map" -link-opt "%linkopts%" %*