mingw-w64-crt/crt/crtexe.c - mingw-w64 - Git at Google

 /**
  * This file has no copyright assigned and is placed in the Public Domain.
  * This file is part of the w64 mingw-runtime package.
  * No warranty is given; refer to the file DISCLAIMER.PD within this package.
  */

 #undef CRTDLL
 #ifndef _DLL
 #define _DLL
 #endif

 #define SPECIAL_CRTEXE

 #include <oscalls.h>
 #include <internal.h>
 #include <process.h>
 #include <signal.h>
 #include <math.h>
 #include <stdlib.h>
 #include <tchar.h>
 #include <sect_attribs.h>
 #include <locale.h>

 #ifndef __winitenv
 extern wchar_t *** __MINGW_IMP_SYMBOL(__winitenv);
 #define __winitenv (* __MINGW_IMP_SYMBOL(__winitenv))
 #endif

 #ifndef __initenv
 extern char *** __MINGW_IMP_SYMBOL(__initenv);
 #define __initenv (* __MINGW_IMP_SYMBOL(__initenv))
 #endif

 /* Hack, for bug in ld.  Will be removed soon.  */
 #define __ImageBase __MINGW_LSYMBOL(_image_base__)
 /* This symbol is defined by ld.  */
 extern IMAGE_DOS_HEADER __ImageBase;

 extern void _fpreset (void);
 #define SPACECHAR _T(' ')
 #define DQUOTECHAR _T('\"')

 __declspec(dllimport) void __setusermatherr(int (__cdecl *)(struct _exception *));

 extern int * __MINGW_IMP_SYMBOL(_fmode);
 extern int * __MINGW_IMP_SYMBOL(_commode);

 #undef _fmode
 extern int _fmode;
 extern int * __MINGW_IMP_SYMBOL(_commode);
 #define _commode (* __MINGW_IMP_SYMBOL(_commode))
 extern int _dowildcard;

 int _MINGW_INSTALL_DEBUG_MATHERR __attribute__((weak)) = 0;
 extern int __defaultmatherr;
 extern _CRTIMP void __cdecl _initterm(_PVFV *, _PVFV *);

 static int __cdecl check_managed_app (void);

 extern _CRTALLOC(".CRT$XIA") _PIFV __xi_a[];
 extern _CRTALLOC(".CRT$XIZ") _PIFV __xi_z[];
 extern _CRTALLOC(".CRT$XCA") _PVFV __xc_a[];
 extern _CRTALLOC(".CRT$XCZ") _PVFV __xc_z[];

 /* TLS initialization hook.  */
 extern const PIMAGE_TLS_CALLBACK __dyn_tls_init_callback;

 extern _PVFV *__onexitbegin;
 extern _PVFV *__onexitend;

 extern int mingw_app_type;

 HINSTANCE __mingw_winmain_hInstance;
 _TCHAR *__mingw_winmain_lpCmdLine;
 DWORD __mingw_winmain_nShowCmd;

 static int argc;
 #ifdef WPRFLAG
 extern void __main(void);
 static wchar_t **argv;
 static wchar_t **envp;
 #else
 static char **argv;
 static char **envp;
 #endif

 static int argret;
 static int mainret=0;
 static int managedapp;
 static int has_cctor = 0;
 static _startupinfo startinfo;
 static LPTOP_LEVEL_EXCEPTION_FILTER __mingw_oldexcpt_handler = NULL;

 extern void _pei386_runtime_relocator (void);
 static long CALLBACK _gnu_exception_handler (EXCEPTION_POINTERS * exception_data);
 #ifdef WPRFLAG
 static void duplicate_ppstrings (int ac, wchar_t ***av);
 #else
 static void duplicate_ppstrings (int ac, char ***av);
 #endif

 static int __cdecl pre_c_init (void);
 static void __cdecl pre_cpp_init (void);
 static void __cdecl __mingw_prepare_except_for_msvcr80_and_higher (void);
 _CRTALLOC(".CRT$XIAA") _PIFV mingw_pcinit = pre_c_init;
 _CRTALLOC(".CRT$XCAA") _PVFV mingw_pcppinit = pre_cpp_init;

 static int __cdecl
 pre_c_init (void)
 {
   managedapp = check_managed_app ();
   if (mingw_app_type)
     __set_app_type(_GUI_APP);
   else
     __set_app_type (_CONSOLE_APP);
   __onexitbegin = __onexitend = (_PVFV *) _encode_pointer ((_PVFV *)(-1));

   * __MINGW_IMP_SYMBOL(_fmode) = _fmode;
   * __MINGW_IMP_SYMBOL(_commode) = _commode;

 #ifdef WPRFLAG
   _wsetargv();
 #else
   _setargv();
 #endif
   if (_MINGW_INSTALL_DEBUG_MATHERR)
     {
       if (! __defaultmatherr)
 	{
 	  __setusermatherr (_matherr);
 	  __defaultmatherr = 1;
 	}
     }

   if (__globallocalestatus == -1)
     {
     }
   return 0;
 }

 static void __cdecl
 pre_cpp_init (void)
 {
   startinfo.newmode = _newmode;

 #ifdef WPRFLAG
   argret = __wgetmainargs(&argc,&argv,&envp,_dowildcard,&startinfo);
 #else
   argret = __getmainargs(&argc,&argv,&envp,_dowildcard,&startinfo);
 #endif
 }

 static int __tmainCRTStartup (void);

 int WinMainCRTStartup (void);

 int WinMainCRTStartup (void)
 {
   mingw_app_type = 1;
   __security_init_cookie ();
   return __tmainCRTStartup ();
 }

 int mainCRTStartup (void);

 #ifdef _WIN64
 int __mingw_init_ehandler (void);
 #endif

 int mainCRTStartup (void)
 {
   mingw_app_type = 0;
   __security_init_cookie ();
   return __tmainCRTStartup ();
 }

 static
 __declspec(noinline) int
 __tmainCRTStartup (void)
 {
   _TCHAR *lpszCommandLine = NULL;
   STARTUPINFO StartupInfo;
   WINBOOL inDoubleQuote = FALSE;
   memset (&StartupInfo, 0, sizeof (STARTUPINFO));

   if (mingw_app_type)
     GetStartupInfo (&StartupInfo);
   {
     void *lock_free = NULL;
     void *fiberid = ((PNT_TIB)NtCurrentTeb())->StackBase;
     int nested = FALSE;
     while((lock_free = InterlockedCompareExchangePointer ((volatile PVOID *) &__native_startup_lock,
 							  fiberid, 0)) != 0)
       {
 	if (lock_free == fiberid)
 	  {
 	    nested = TRUE;
 	    break;
 	  }
 	Sleep(1000);
       }
     if (__native_startup_state == __initializing)
       {
 	_amsg_exit (31);
       }
     else if (__native_startup_state == __uninitialized)
       {
 	__native_startup_state = __initializing;
 	_initterm ((_PVFV *)(void *)__xi_a, (_PVFV *)(void *) __xi_z);
       }
     else
       has_cctor = 1;

     if (__native_startup_state == __initializing)
       {
 	_initterm (__xc_a, __xc_z);
 	__native_startup_state = __initialized;
       }
     _ASSERTE(__native_startup_state == __initialized);
     if (! nested)
       (VOID)InterlockedExchangePointer ((volatile PVOID *) &__native_startup_lock, 0);

     if (__dyn_tls_init_callback != NULL)
       __dyn_tls_init_callback (NULL, DLL_THREAD_ATTACH, NULL);

     _pei386_runtime_relocator ();
     __mingw_oldexcpt_handler = SetUnhandledExceptionFilter (_gnu_exception_handler);
 #ifdef _WIN64
     __mingw_init_ehandler ();
 #endif
     __mingw_prepare_except_for_msvcr80_and_higher ();

     _fpreset ();

     if (mingw_app_type)
       {
 #ifdef WPRFLAG
     lpszCommandLine = (_TCHAR *) _wcmdln;
 #else
     lpszCommandLine = (char *) _acmdln;
 #endif
     while (*lpszCommandLine > SPACECHAR || (*lpszCommandLine&&inDoubleQuote))
       {
 	if (*lpszCommandLine == DQUOTECHAR)
 	  inDoubleQuote = !inDoubleQuote;
 #ifdef _MBCS
 	if (_ismbblead (*lpszCommandLine))
 	  {
 	    if (*lpszCommandLine)
 	      lpszCommandLine++;
 	  }
 #endif
 	++lpszCommandLine;
       }
     while (*lpszCommandLine && (*lpszCommandLine <= SPACECHAR))
       lpszCommandLine++;

     __mingw_winmain_hInstance = (HINSTANCE) &__ImageBase;
     __mingw_winmain_lpCmdLine = lpszCommandLine;
     __mingw_winmain_nShowCmd = StartupInfo.dwFlags & STARTF_USESHOWWINDOW ?
 				StartupInfo.wShowWindow : SW_SHOWDEFAULT;
     }
     duplicate_ppstrings (argc, &argv);
 #ifdef WPRFLAG
     __winitenv = envp;
     /* C++ initialization.
        gcc inserts this call automatically for a function called main, but not for wmain.  */
     __main ();
     mainret = wmain (argc, argv, envp);
 #else
     __initenv = envp;
     mainret = main (argc, argv, envp);
 #endif
     if (!managedapp)
       exit (mainret);

     if (has_cctor == 0)
       _cexit ();
   }
   return mainret;
 }

 extern int mingw_initltsdrot_force;
 extern int mingw_initltsdyn_force;
 extern int mingw_initltssuo_force;
 extern int mingw_initcharmax;

 static int __cdecl
 check_managed_app (void)
 {
   PIMAGE_DOS_HEADER pDOSHeader;
   PIMAGE_NT_HEADERS pPEHeader;
   PIMAGE_OPTIONAL_HEADER32 pNTHeader32;
   PIMAGE_OPTIONAL_HEADER64 pNTHeader64;

   /* Force to be linked.  */
   mingw_initltsdrot_force=1;
   mingw_initltsdyn_force=1;
   mingw_initltssuo_force=1;
   mingw_initcharmax=1;

   pDOSHeader = (PIMAGE_DOS_HEADER) &__ImageBase;
   if (pDOSHeader->e_magic != IMAGE_DOS_SIGNATURE)
     return 0;

   pPEHeader = (PIMAGE_NT_HEADERS)((char *)pDOSHeader + pDOSHeader->e_lfanew);
   if (pPEHeader->Signature != IMAGE_NT_SIGNATURE)
     return 0;

   pNTHeader32 = (PIMAGE_OPTIONAL_HEADER32) &pPEHeader->OptionalHeader;
   switch (pNTHeader32->Magic)
     {
     case IMAGE_NT_OPTIONAL_HDR32_MAGIC:
       if (pNTHeader32->NumberOfRvaAndSizes <= IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR)
 	return 0;
       return !! pNTHeader32->DataDirectory[IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR].VirtualAddress;
     case IMAGE_NT_OPTIONAL_HDR64_MAGIC:
       pNTHeader64 = (PIMAGE_OPTIONAL_HEADER64)pNTHeader32;
       if (pNTHeader64->NumberOfRvaAndSizes <= IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR)
 	return 0;
       return !! pNTHeader64->DataDirectory[IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR].VirtualAddress;
     }
   return 0;
 }

 static long CALLBACK
 _gnu_exception_handler (EXCEPTION_POINTERS *exception_data)
 {
   void (*old_handler) (int);
   long action = EXCEPTION_CONTINUE_SEARCH;
   int reset_fpu = 0;

   switch (exception_data->ExceptionRecord->ExceptionCode)
     {
     case EXCEPTION_ACCESS_VIOLATION:
       /* test if the user has set SIGSEGV */
       old_handler = signal (SIGSEGV, SIG_DFL);
       if (old_handler == SIG_IGN)
 	{
 	  /* this is undefined if the signal was raised by anything other
 	     than raise ().  */
 	  signal (SIGSEGV, SIG_IGN);
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       else if (old_handler != SIG_DFL)
 	{
 	  /* This means 'old' is a user defined function. Call it */
 	  (*old_handler) (SIGSEGV);
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       break;

     case EXCEPTION_ILLEGAL_INSTRUCTION:
     case EXCEPTION_PRIV_INSTRUCTION:
       /* test if the user has set SIGILL */
       old_handler = signal (SIGILL, SIG_DFL);
       if (old_handler == SIG_IGN)
 	{
 	  /* this is undefined if the signal was raised by anything other
 	     than raise ().  */
 	  signal (SIGILL, SIG_IGN);
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       else if (old_handler != SIG_DFL)
 	{
 	  /* This means 'old' is a user defined function. Call it */
 	  (*old_handler) (SIGILL);
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       break;

     case EXCEPTION_FLT_INVALID_OPERATION:
     case EXCEPTION_FLT_DIVIDE_BY_ZERO:
     case EXCEPTION_FLT_DENORMAL_OPERAND:
     case EXCEPTION_FLT_OVERFLOW:
     case EXCEPTION_FLT_UNDERFLOW:
     case EXCEPTION_FLT_INEXACT_RESULT:
       reset_fpu = 1;
       /* fall through. */

     case EXCEPTION_INT_DIVIDE_BY_ZERO:
       /* test if the user has set SIGFPE */
       old_handler = signal (SIGFPE, SIG_DFL);
       if (old_handler == SIG_IGN)
 	{
 	  signal (SIGFPE, SIG_IGN);
 	  if (reset_fpu)
 	    _fpreset ();
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       else if (old_handler != SIG_DFL)
 	{
 	  /* This means 'old' is a user defined function. Call it */
 	  (*old_handler) (SIGFPE);
 	  action = EXCEPTION_CONTINUE_EXECUTION;
 	}
       break;
 #ifdef _WIN64
     case EXCEPTION_DATATYPE_MISALIGNMENT:
     case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
     case EXCEPTION_FLT_STACK_CHECK:
     case EXCEPTION_INT_OVERFLOW:
     case EXCEPTION_INVALID_HANDLE:
     /*case EXCEPTION_POSSIBLE_DEADLOCK: */
       action = EXCEPTION_CONTINUE_EXECUTION;
       break;
 #endif
     default:
       break;
     }

   if (action == EXCEPTION_CONTINUE_SEARCH && __mingw_oldexcpt_handler)
     action = (*__mingw_oldexcpt_handler)(exception_data);
   return action;
 }

 #ifdef WPRFLAG
 static size_t wbytelen(const wchar_t *p)
 {
 	size_t ret = 1;
 	while (*p!=0) {
 		ret++,++p;
 	}
 	return ret*2;
 }
 static void duplicate_ppstrings (int ac, wchar_t ***av)
 {
 	wchar_t **avl;
 	int i;
 	wchar_t **n = (wchar_t **) malloc (sizeof (wchar_t *) * (ac + 1));

 	avl=*av;
 	for (i=0; i < ac; i++)
 	  {
 		int l = wbytelen (avl[i]);
 		n[i] = (wchar_t *) malloc (l);
 		memcpy (n[i], avl[i], l);
 	  }
 	n[i] = NULL;
 	*av = n;
 }
 #else
 static void duplicate_ppstrings (int ac, char ***av)
 {
 	char **avl;
 	int i;
 	char **n = (char **) malloc (sizeof (char *) * (ac + 1));

 	avl=*av;
 	for (i=0; i < ac; i++)
 	  {
 		int l = strlen (avl[i]) + 1;
 		n[i] = (char *) malloc (l);
 		memcpy (n[i], avl[i], l);
 	  }
 	n[i] = NULL;
 	*av = n;
 }
 #endif

 static void
 __mingw_invalidParameterHandler (const wchar_t *expression __attribute__ ((__unused__)),
 				 const wchar_t *function __attribute__ ((__unused__)),
 				 const wchar_t *file __attribute__ ((__unused__)),
 				 unsigned int line __attribute__ ((__unused__)),
 				 uintptr_t pReserved __attribute__ ((__unused__)))
 {
 #ifdef __MINGW_SHOW_INVALID_PARAMETER_EXCEPTION
    wprintf(L"Invalid parameter detected in function %s. File: %s Line: %d\n", function, file, line);
    wprintf(L"Expression: %s\n", expression);
 #endif
 }

 static void __cdecl
 __mingw_prepare_except_for_msvcr80_and_higher (void)
 {
   _invalid_parameter_handler (*fIPH)(_invalid_parameter_handler) = NULL;
   HMODULE hmsv = GetModuleHandleA ("msvcr80.dll");
   if(!hmsv)
     hmsv = GetModuleHandleA ("msvcr70.dll");
   if (!hmsv)
     hmsv = GetModuleHandleA ("msvcrt.dll");
   if (!hmsv)
     hmsv = LoadLibraryA ("msvcrt.dll");
   if (!hmsv)
     return;
   fIPH = (_invalid_parameter_handler (*)(_invalid_parameter_handler))
     GetProcAddress (hmsv, "_set_invalid_parameter_handler");
   if (fIPH)
     (*fIPH)(__mingw_invalidParameterHandler);
 }
	/**
	* This file has no copyright assigned and is placed in the Public Domain.
	* This file is part of the w64 mingw-runtime package.
	* No warranty is given; refer to the file DISCLAIMER.PD within this package.
	*/

	#undef CRTDLL
	#ifndef _DLL
	#define _DLL
	#endif

	#define SPECIAL_CRTEXE

	#include <oscalls.h>
	#include <internal.h>
	#include <process.h>
	#include <signal.h>
	#include <math.h>
	#include <stdlib.h>
	#include <tchar.h>
	#include <sect_attribs.h>
	#include <locale.h>

	#ifndef __winitenv
	extern wchar_t *** __MINGW_IMP_SYMBOL(__winitenv);
	#define __winitenv (* __MINGW_IMP_SYMBOL(__winitenv))
	#endif

	#ifndef __initenv
	extern char *** __MINGW_IMP_SYMBOL(__initenv);
	#define __initenv (* __MINGW_IMP_SYMBOL(__initenv))
	#endif

	/* Hack, for bug in ld. Will be removed soon. */
	#define __ImageBase __MINGW_LSYMBOL(_image_base__)
	/* This symbol is defined by ld. */
	extern IMAGE_DOS_HEADER __ImageBase;

	extern void _fpreset (void);
	#define SPACECHAR _T(' ')
	#define DQUOTECHAR _T('\"')

	__declspec(dllimport) void __setusermatherr(int (__cdecl )(struct _exception ));

	extern int * __MINGW_IMP_SYMBOL(_fmode);
	extern int * __MINGW_IMP_SYMBOL(_commode);

	#undef _fmode
	extern int _fmode;
	extern int * __MINGW_IMP_SYMBOL(_commode);
	#define _commode (* __MINGW_IMP_SYMBOL(_commode))
	extern int _dowildcard;

	int _MINGW_INSTALL_DEBUG_MATHERR __attribute__((weak)) = 0;
	extern int __defaultmatherr;
	extern _CRTIMP void __cdecl _initterm(_PVFV , _PVFV );

	static int __cdecl check_managed_app (void);

	extern _CRTALLOC(".CRT$XIA") _PIFV __xi_a[];
	extern _CRTALLOC(".CRT$XIZ") _PIFV __xi_z[];
	extern _CRTALLOC(".CRT$XCA") _PVFV __xc_a[];
	extern _CRTALLOC(".CRT$XCZ") _PVFV __xc_z[];

	/* TLS initialization hook. */
	extern const PIMAGE_TLS_CALLBACK __dyn_tls_init_callback;

	extern _PVFV *__onexitbegin;
	extern _PVFV *__onexitend;

	extern int mingw_app_type;

	HINSTANCE __mingw_winmain_hInstance;
	_TCHAR *__mingw_winmain_lpCmdLine;
	DWORD __mingw_winmain_nShowCmd;

	static int argc;
	#ifdef WPRFLAG
	extern void __main(void);
	static wchar_t **argv;
	static wchar_t **envp;
	#else
	static char **argv;
	static char **envp;
	#endif

	static int argret;
	static int mainret=0;
	static int managedapp;
	static int has_cctor = 0;
	static _startupinfo startinfo;
	static LPTOP_LEVEL_EXCEPTION_FILTER __mingw_oldexcpt_handler = NULL;

	extern void _pei386_runtime_relocator (void);
	static long CALLBACK _gnu_exception_handler (EXCEPTION_POINTERS * exception_data);
	#ifdef WPRFLAG
	static void duplicate_ppstrings (int ac, wchar_t ***av);
	#else
	static void duplicate_ppstrings (int ac, char ***av);
	#endif

	static int __cdecl pre_c_init (void);
	static void __cdecl pre_cpp_init (void);
	static void __cdecl __mingw_prepare_except_for_msvcr80_and_higher (void);
	_CRTALLOC(".CRT$XIAA") _PIFV mingw_pcinit = pre_c_init;
	_CRTALLOC(".CRT$XCAA") _PVFV mingw_pcppinit = pre_cpp_init;

	static int __cdecl
	pre_c_init (void)
	{
	managedapp = check_managed_app ();
	if (mingw_app_type)
	__set_app_type(_GUI_APP);
	else
	__set_app_type (_CONSOLE_APP);
	__onexitbegin = __onexitend = (_PVFV ) _encode_pointer ((_PVFV )(-1));

	* __MINGW_IMP_SYMBOL(_fmode) = _fmode;
	* __MINGW_IMP_SYMBOL(_commode) = _commode;

	#ifdef WPRFLAG
	_wsetargv();
	#else
	_setargv();
	#endif
	if (_MINGW_INSTALL_DEBUG_MATHERR)
	{
	if (! __defaultmatherr)
	{
	__setusermatherr (_matherr);
	__defaultmatherr = 1;
	}
	}

	if (__globallocalestatus == -1)
	{
	}
	return 0;
	}

	static void __cdecl
	pre_cpp_init (void)
	{
	startinfo.newmode = _newmode;

	#ifdef WPRFLAG
	argret = __wgetmainargs(&argc,&argv,&envp,_dowildcard,&startinfo);
	#else
	argret = __getmainargs(&argc,&argv,&envp,_dowildcard,&startinfo);
	#endif
	}

	static int __tmainCRTStartup (void);

	int WinMainCRTStartup (void);

	int WinMainCRTStartup (void)
	{
	mingw_app_type = 1;
	__security_init_cookie ();
	return __tmainCRTStartup ();
	}

	int mainCRTStartup (void);

	#ifdef _WIN64
	int __mingw_init_ehandler (void);
	#endif

	int mainCRTStartup (void)
	{
	mingw_app_type = 0;
	__security_init_cookie ();
	return __tmainCRTStartup ();
	}

	static
	__declspec(noinline) int
	__tmainCRTStartup (void)
	{
	_TCHAR *lpszCommandLine = NULL;
	STARTUPINFO StartupInfo;
	WINBOOL inDoubleQuote = FALSE;
	memset (&StartupInfo, 0, sizeof (STARTUPINFO));

	if (mingw_app_type)
	GetStartupInfo (&StartupInfo);
	{
	void *lock_free = NULL;
	void *fiberid = ((PNT_TIB)NtCurrentTeb())->StackBase;
	int nested = FALSE;
	while((lock_free = InterlockedCompareExchangePointer ((volatile PVOID *) &__native_startup_lock,
	fiberid, 0)) != 0)
	{
	if (lock_free == fiberid)
	{
	nested = TRUE;
	break;
	}
	Sleep(1000);
	}
	if (__native_startup_state == __initializing)
	{
	_amsg_exit (31);
	}
	else if (__native_startup_state == __uninitialized)
	{
	__native_startup_state = __initializing;
	_initterm ((_PVFV )(void )__xi_a, (_PVFV )(void ) __xi_z);
	}
	else
	has_cctor = 1;

	if (__native_startup_state == __initializing)
	{
	_initterm (__xc_a, __xc_z);
	__native_startup_state = __initialized;
	}
	_ASSERTE(__native_startup_state == __initialized);
	if (! nested)
	(VOID)InterlockedExchangePointer ((volatile PVOID *) &__native_startup_lock, 0);

	if (__dyn_tls_init_callback != NULL)
	__dyn_tls_init_callback (NULL, DLL_THREAD_ATTACH, NULL);

	_pei386_runtime_relocator ();
	__mingw_oldexcpt_handler = SetUnhandledExceptionFilter (_gnu_exception_handler);
	#ifdef _WIN64
	__mingw_init_ehandler ();
	#endif
	__mingw_prepare_except_for_msvcr80_and_higher ();

	_fpreset ();

	if (mingw_app_type)
	{
	#ifdef WPRFLAG
	lpszCommandLine = (_TCHAR *) _wcmdln;
	#else
	lpszCommandLine = (char *) _acmdln;
	#endif
	while (lpszCommandLine > SPACECHAR \|\| (lpszCommandLine&&inDoubleQuote))
	{
	if (*lpszCommandLine == DQUOTECHAR)
	inDoubleQuote = !inDoubleQuote;
	#ifdef _MBCS
	if (_ismbblead (*lpszCommandLine))
	{
	if (*lpszCommandLine)
	lpszCommandLine++;
	}
	#endif
	++lpszCommandLine;
	}
	while (lpszCommandLine && (lpszCommandLine <= SPACECHAR))
	lpszCommandLine++;

	__mingw_winmain_hInstance = (HINSTANCE) &__ImageBase;
	__mingw_winmain_lpCmdLine = lpszCommandLine;
	__mingw_winmain_nShowCmd = StartupInfo.dwFlags & STARTF_USESHOWWINDOW ?
	StartupInfo.wShowWindow : SW_SHOWDEFAULT;
	}
	duplicate_ppstrings (argc, &argv);
	#ifdef WPRFLAG
	__winitenv = envp;
	/* C++ initialization.
	gcc inserts this call automatically for a function called main, but not for wmain. */
	__main ();
	mainret = wmain (argc, argv, envp);
	#else
	__initenv = envp;
	mainret = main (argc, argv, envp);
	#endif
	if (!managedapp)
	exit (mainret);

	if (has_cctor == 0)
	_cexit ();
	}
	return mainret;
	}

	extern int mingw_initltsdrot_force;
	extern int mingw_initltsdyn_force;
	extern int mingw_initltssuo_force;
	extern int mingw_initcharmax;

	static int __cdecl
	check_managed_app (void)
	{
	PIMAGE_DOS_HEADER pDOSHeader;
	PIMAGE_NT_HEADERS pPEHeader;
	PIMAGE_OPTIONAL_HEADER32 pNTHeader32;
	PIMAGE_OPTIONAL_HEADER64 pNTHeader64;

	/* Force to be linked. */
	mingw_initltsdrot_force=1;
	mingw_initltsdyn_force=1;
	mingw_initltssuo_force=1;
	mingw_initcharmax=1;

	pDOSHeader = (PIMAGE_DOS_HEADER) &__ImageBase;
	if (pDOSHeader->e_magic != IMAGE_DOS_SIGNATURE)
	return 0;

	pPEHeader = (PIMAGE_NT_HEADERS)((char *)pDOSHeader + pDOSHeader->e_lfanew);
	if (pPEHeader->Signature != IMAGE_NT_SIGNATURE)
	return 0;

	pNTHeader32 = (PIMAGE_OPTIONAL_HEADER32) &pPEHeader->OptionalHeader;
	switch (pNTHeader32->Magic)
	{
	case IMAGE_NT_OPTIONAL_HDR32_MAGIC:
	if (pNTHeader32->NumberOfRvaAndSizes <= IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR)
	return 0;
	return !! pNTHeader32->DataDirectory[IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR].VirtualAddress;
	case IMAGE_NT_OPTIONAL_HDR64_MAGIC:
	pNTHeader64 = (PIMAGE_OPTIONAL_HEADER64)pNTHeader32;
	if (pNTHeader64->NumberOfRvaAndSizes <= IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR)
	return 0;
	return !! pNTHeader64->DataDirectory[IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR].VirtualAddress;
	}
	return 0;
	}

	static long CALLBACK
	_gnu_exception_handler (EXCEPTION_POINTERS *exception_data)
	{
	void (*old_handler) (int);
	long action = EXCEPTION_CONTINUE_SEARCH;
	int reset_fpu = 0;

	switch (exception_data->ExceptionRecord->ExceptionCode)
	{
	case EXCEPTION_ACCESS_VIOLATION:
	/* test if the user has set SIGSEGV */
	old_handler = signal (SIGSEGV, SIG_DFL);
	if (old_handler == SIG_IGN)
	{
	/* this is undefined if the signal was raised by anything other
	than raise (). */
	signal (SIGSEGV, SIG_IGN);
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	else if (old_handler != SIG_DFL)
	{
	/* This means 'old' is a user defined function. Call it */
	(*old_handler) (SIGSEGV);
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	break;

	case EXCEPTION_ILLEGAL_INSTRUCTION:
	case EXCEPTION_PRIV_INSTRUCTION:
	/* test if the user has set SIGILL */
	old_handler = signal (SIGILL, SIG_DFL);
	if (old_handler == SIG_IGN)
	{
	/* this is undefined if the signal was raised by anything other
	than raise (). */
	signal (SIGILL, SIG_IGN);
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	else if (old_handler != SIG_DFL)
	{
	/* This means 'old' is a user defined function. Call it */
	(*old_handler) (SIGILL);
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	break;

	case EXCEPTION_FLT_INVALID_OPERATION:
	case EXCEPTION_FLT_DIVIDE_BY_ZERO:
	case EXCEPTION_FLT_DENORMAL_OPERAND:
	case EXCEPTION_FLT_OVERFLOW:
	case EXCEPTION_FLT_UNDERFLOW:
	case EXCEPTION_FLT_INEXACT_RESULT:
	reset_fpu = 1;
	/* fall through. */

	case EXCEPTION_INT_DIVIDE_BY_ZERO:
	/* test if the user has set SIGFPE */
	old_handler = signal (SIGFPE, SIG_DFL);
	if (old_handler == SIG_IGN)
	{
	signal (SIGFPE, SIG_IGN);
	if (reset_fpu)
	_fpreset ();
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	else if (old_handler != SIG_DFL)
	{
	/* This means 'old' is a user defined function. Call it */
	(*old_handler) (SIGFPE);
	action = EXCEPTION_CONTINUE_EXECUTION;
	}
	break;
	#ifdef _WIN64
	case EXCEPTION_DATATYPE_MISALIGNMENT:
	case EXCEPTION_ARRAY_BOUNDS_EXCEEDED:
	case EXCEPTION_FLT_STACK_CHECK:
	case EXCEPTION_INT_OVERFLOW:
	case EXCEPTION_INVALID_HANDLE:
	/case EXCEPTION_POSSIBLE_DEADLOCK: /
	action = EXCEPTION_CONTINUE_EXECUTION;
	break;
	#endif
	default:
	break;
	}

	if (action == EXCEPTION_CONTINUE_SEARCH && __mingw_oldexcpt_handler)
	action = (*__mingw_oldexcpt_handler)(exception_data);
	return action;
	}

	#ifdef WPRFLAG
	static size_t wbytelen(const wchar_t *p)
	{
	size_t ret = 1;
	while (*p!=0) {
	ret++,++p;
	}
	return ret*2;
	}
	static void duplicate_ppstrings (int ac, wchar_t ***av)
	{
	wchar_t **avl;
	int i;
	wchar_t n = (wchar_t ) malloc (sizeof (wchar_t ) (ac + 1));

	avl=*av;
	for (i=0; i < ac; i++)
	{
	int l = wbytelen (avl[i]);
	n[i] = (wchar_t *) malloc (l);
	memcpy (n[i], avl[i], l);
	}
	n[i] = NULL;
	*av = n;
	}
	#else
	static void duplicate_ppstrings (int ac, char ***av)
	{
	char **avl;
	int i;
	char n = (char ) malloc (sizeof (char ) (ac + 1));

	avl=*av;
	for (i=0; i < ac; i++)
	{
	int l = strlen (avl[i]) + 1;
	n[i] = (char *) malloc (l);
	memcpy (n[i], avl[i], l);
	}
	n[i] = NULL;
	*av = n;
	}
	#endif

	static void
	__mingw_invalidParameterHandler (const wchar_t *expression __attribute__ ((__unused__)),
	const wchar_t *function __attribute__ ((__unused__)),
	const wchar_t *file __attribute__ ((__unused__)),
	unsigned int line __attribute__ ((__unused__)),
	uintptr_t pReserved __attribute__ ((__unused__)))
	{
	#ifdef __MINGW_SHOW_INVALID_PARAMETER_EXCEPTION
	wprintf(L"Invalid parameter detected in function %s. File: %s Line: %d\n", function, file, line);
	wprintf(L"Expression: %s\n", expression);
	#endif
	}

	static void __cdecl
	__mingw_prepare_except_for_msvcr80_and_higher (void)
	{
	_invalid_parameter_handler (*fIPH)(_invalid_parameter_handler) = NULL;
	HMODULE hmsv = GetModuleHandleA ("msvcr80.dll");
	if(!hmsv)
	hmsv = GetModuleHandleA ("msvcr70.dll");
	if (!hmsv)
	hmsv = GetModuleHandleA ("msvcrt.dll");
	if (!hmsv)
	hmsv = LoadLibraryA ("msvcrt.dll");
	if (!hmsv)
	return;
	fIPH = (_invalid_parameter_handler (*)(_invalid_parameter_handler))
	GetProcAddress (hmsv, "_set_invalid_parameter_handler");
	if (fIPH)
	(*fIPH)(__mingw_invalidParameterHandler);
	}