<div dir="ltr">On Sun, Sep 14, 2008 at 7:07 PM, Tom 7 <span dir="ltr"><<a href="mailto:twm@andrew.cmu.edu">twm@andrew.cmu.edu</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
I'm trying to debug a problem with using mlton+mingw+SDL on windows. Everything works fine when I run my app from the mingw command line, but when I run it from the DOS prompt or by clicking it in explorer, it terminates immediately and silently.</blockquote>
<div><br>I have reproduced this problem with r6841 on win2003/x64.<br><br><blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">
val mb_ = _import "MessageBoxA" : MLton.Pointer.t * string * string * MLton.Pointer.t -> unit ;<br></blockquote><div>This needed to be changed to _import "MessageBoxA" stdcall, though.<br><br>The problem persists with this simplified compile line:<br>
<blockquote style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;" class="gmail_quote">mlton -link-opt "-mwindows" -default-ann 'allowFFI true' clicktest.sml</blockquote>
<div><br>Once the -mwindows is removed, the test program works. I'm currently investigating what '-mwindows' does to the program. Do you need it?<br><br></div></div></div></div></div>