From a82c3665042b80a0febcbffdf0577cd37de349ff Mon Sep 17 00:00:00 2001
From: Xavier Leroy <xavier.leroy@inria.fr>
Date: Fri, 7 Jun 2002 09:49:45 +0000
Subject: Portage Mingw et revision du portage Win32/MSVC

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4899 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/headernt.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'stdlib/headernt.c')

diff --git a/stdlib/headernt.c b/stdlib/headernt.c
index 4dee82282..073d1e6f6 100644
--- a/stdlib/headernt.c
+++ b/stdlib/headernt.c
@@ -20,9 +20,11 @@
 #include "../byterun/mlvalues.h"
 #include "../byterun/exec.h"
 
+#ifndef __MINGW32__
 #pragma comment(linker , "/entry:headerentry")
 #pragma comment(linker , "/subsystem:console")
 #pragma comment(lib , "kernel32")
+#endif
 
 char * default_runtime_name = "ocamlrun";
 
@@ -135,7 +137,11 @@ static __inline void __declspec(noreturn) run_runtime(char * runtime,
 #endif
 }
 
+#ifdef __MINGW32__
+int main()
+#else
 void __declspec(noreturn) __cdecl headerentry()
+#endif
 {
   char truename[MAX_PATH];
   char * cmdline = GetCommandLine();
@@ -163,4 +169,7 @@ void __declspec(noreturn) __cdecl headerentry()
 #if _MSC_VER >= 1200
     __assume(0); /* Not reached */
 #endif
+#ifdef __MINGW__
+    return 0;
+#endif
 }
-- 
cgit v1.2.3-70-g09d2