summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/browser/winmain.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/labltk/browser/winmain.c')
-rw-r--r--otherlibs/labltk/browser/winmain.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/otherlibs/labltk/browser/winmain.c b/otherlibs/labltk/browser/winmain.c
index 6805ecfcd..d36f6786f 100644
--- a/otherlibs/labltk/browser/winmain.c
+++ b/otherlibs/labltk/browser/winmain.c
@@ -1,12 +1,18 @@
-#include <callback.h>
#include <windows.h>
+#include <mlvalues.h>
+#include <callback.h>
+#include <sys.h>
+
extern int __argc;
extern char **__argv;
-extern void expand_command_line (int *, char ***);
+extern void expand_command_line(int * argcp, char *** argvp);
extern void caml_main (char **);
int WINAPI WinMain(HINSTANCE h, HINSTANCE HPrevInstance,
LPSTR lpCmdLine, int nCmdShow)
{
- return main(__argc, __argv);
+ expand_command_line(&__argc, &__argv);
+ caml_main(__argv);
+ sys_exit(Val_int(0));
+ return 0;
}