| /* |
| * msvcrt.dll exit functions |
| * |
| * Copyright 2000 Jon Griffiths |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| #include <stdio.h> |
| #include "msvcrt.h" |
| #include "mtdll.h" |
| #include "winuser.h" |
| #include "wine/debug.h" |
| |
| WINE_DEFAULT_DEBUG_CHANNEL(msvcrt); |
| |
| /* MT */ |
| #define LOCK_EXIT _mlock(_EXIT_LOCK1) |
| #define UNLOCK_EXIT _munlock(_EXIT_LOCK1) |
| |
| static MSVCRT__onexit_t *MSVCRT_atexit_table = NULL; |
| static int MSVCRT_atexit_table_size = 0; |
| static int MSVCRT_atexit_registered = 0; /* Points to free slot */ |
| static MSVCRT_purecall_handler purecall_handler = NULL; |
| |
| static const char szMsgBoxTitle[] = "Wine C++ Runtime Library"; |
| |
| extern int MSVCRT_app_type; |
| extern MSVCRT_wchar_t *MSVCRT__wpgmptr; |
| |
| static unsigned int MSVCRT_abort_behavior = MSVCRT__WRITE_ABORT_MSG | MSVCRT__CALL_REPORTFAULT; |
| static int MSVCRT_error_mode = MSVCRT__OUT_TO_DEFAULT; |
| |
| void (*CDECL _aexit_rtn)(int) = MSVCRT__exit; |
| |
| /* INTERNAL: call atexit functions */ |
| static void __MSVCRT__call_atexit(void) |
| { |
| /* Note: should only be called with the exit lock held */ |
| TRACE("%d atext functions to call\n", MSVCRT_atexit_registered); |
| /* Last registered gets executed first */ |
| while (MSVCRT_atexit_registered > 0) |
| { |
| MSVCRT_atexit_registered--; |
| TRACE("next is %p\n",MSVCRT_atexit_table[MSVCRT_atexit_registered]); |
| if (MSVCRT_atexit_table[MSVCRT_atexit_registered]) |
| (*MSVCRT_atexit_table[MSVCRT_atexit_registered])(); |
| TRACE("returned\n"); |
| } |
| } |
| |
| /********************************************************************* |
| * __dllonexit (MSVCRT.@) |
| */ |
| MSVCRT__onexit_t CDECL __dllonexit(MSVCRT__onexit_t func, MSVCRT__onexit_t **start, MSVCRT__onexit_t **end) |
| { |
| MSVCRT__onexit_t *tmp; |
| int len; |
| |
| TRACE("(%p,%p,%p)\n", func, start, end); |
| |
| if (!start || !*start || !end || !*end) |
| { |
| FIXME("bad table\n"); |
| return NULL; |
| } |
| |
| len = (*end - *start); |
| |
| TRACE("table start %p-%p, %d entries\n", *start, *end, len); |
| |
| if (++len <= 0) |
| return NULL; |
| |
| tmp = MSVCRT_realloc(*start, len * sizeof(*tmp)); |
| if (!tmp) |
| return NULL; |
| *start = tmp; |
| *end = tmp + len; |
| tmp[len - 1] = func; |
| TRACE("new table start %p-%p, %d entries\n", *start, *end, len); |
| return func; |
| } |
| |
| /********************************************************************* |
| * _exit (MSVCRT.@) |
| */ |
| void CDECL MSVCRT__exit(int exitcode) |
| { |
| TRACE("(%d)\n", exitcode); |
| ExitProcess(exitcode); |
| } |
| |
| /* Print out an error message with an option to debug */ |
| static void DoMessageBoxW(const MSVCRT_wchar_t *lead, const MSVCRT_wchar_t *message) |
| { |
| static const MSVCRT_wchar_t message_format[] = {'%','s','\n','\n','P','r','o','g','r','a','m',':',' ','%','s','\n', |
| '%','s','\n','\n','P','r','e','s','s',' ','O','K',' ','t','o',' ','e','x','i','t',' ','t','h','e',' ', |
| 'p','r','o','g','r','a','m',',',' ','o','r',' ','C','a','n','c','e','l',' ','t','o',' ','s','t','a','r','t',' ', |
| 't','h','e',' ','W','i','n','e',' ','d','e','b','b','u','g','e','r','.','\n',0}; |
| |
| MSGBOXPARAMSW msgbox; |
| MSVCRT_wchar_t text[2048]; |
| INT ret; |
| |
| MSVCRT__snwprintf(text,sizeof(text),message_format, lead, MSVCRT__wpgmptr, message); |
| |
| msgbox.cbSize = sizeof(msgbox); |
| msgbox.hwndOwner = GetActiveWindow(); |
| msgbox.hInstance = 0; |
| msgbox.lpszText = (LPCWSTR)text; |
| msgbox.lpszCaption = (LPCWSTR)szMsgBoxTitle; |
| msgbox.dwStyle = MB_OKCANCEL|MB_ICONERROR; |
| msgbox.lpszIcon = NULL; |
| msgbox.dwContextHelpId = 0; |
| msgbox.lpfnMsgBoxCallback = NULL; |
| msgbox.dwLanguageId = LANG_NEUTRAL; |
| |
| ret = MessageBoxIndirectW(&msgbox); |
| if (ret == IDCANCEL) |
| DebugBreak(); |
| } |
| |
| static void DoMessageBox(const char *lead, const char *message) |
| { |
| MSVCRT_wchar_t leadW[1024], messageW[1024]; |
| |
| MSVCRT_mbstowcs(leadW, lead, 1024); |
| MSVCRT_mbstowcs(messageW, message, 1024); |
| |
| DoMessageBoxW(leadW, messageW); |
| } |
| |
| /********************************************************************* |
| * _amsg_exit (MSVCRT.@) |
| */ |
| void CDECL _amsg_exit(int errnum) |
| { |
| TRACE("(%d)\n", errnum); |
| |
| if ((MSVCRT_error_mode == MSVCRT__OUT_TO_MSGBOX) || |
| ((MSVCRT_error_mode == MSVCRT__OUT_TO_DEFAULT) && (MSVCRT_app_type == 2))) |
| { |
| char text[32]; |
| sprintf(text, "Error: R60%d",errnum); |
| DoMessageBox("Runtime error!", text); |
| } |
| else |
| _cprintf("\nruntime error R60%d\n",errnum); |
| _aexit_rtn(255); |
| } |
| |
| /********************************************************************* |
| * abort (MSVCRT.@) |
| */ |
| void CDECL MSVCRT_abort(void) |
| { |
| TRACE("()\n"); |
| |
| if (MSVCRT_abort_behavior & MSVCRT__WRITE_ABORT_MSG) |
| { |
| if ((MSVCRT_error_mode == MSVCRT__OUT_TO_MSGBOX) || |
| ((MSVCRT_error_mode == MSVCRT__OUT_TO_DEFAULT) && (MSVCRT_app_type == 2))) |
| { |
| DoMessageBox("Runtime error!", "abnormal program termination"); |
| } |
| else |
| _cputs("\nabnormal program termination\n"); |
| } |
| MSVCRT_raise(MSVCRT_SIGABRT); |
| /* in case raise() returns */ |
| MSVCRT__exit(3); |
| } |
| |
| /********************************************************************* |
| * _set_abort_behavior (MSVCR80.@) |
| */ |
| unsigned int CDECL MSVCRT__set_abort_behavior(unsigned int flags, unsigned int mask) |
| { |
| unsigned int old = MSVCRT_abort_behavior; |
| |
| TRACE("%x, %x\n", flags, mask); |
| if (mask & MSVCRT__CALL_REPORTFAULT) |
| FIXME("_WRITE_CALL_REPORTFAULT unhandled\n"); |
| |
| MSVCRT_abort_behavior = (MSVCRT_abort_behavior & ~mask) | (flags & mask); |
| return old; |
| } |
| |
| /********************************************************************* |
| * _wassert (MSVCRT.@) |
| */ |
| void CDECL MSVCRT__wassert(const MSVCRT_wchar_t* str, const MSVCRT_wchar_t* file, unsigned int line) |
| { |
| static const MSVCRT_wchar_t assertion_failed[] = {'A','s','s','e','r','t','i','o','n',' ','f','a','i','l','e','d','!',0}; |
| static const MSVCRT_wchar_t format_msgbox[] = {'F','i','l','e',':',' ','%','s','\n','L','i','n','e',':',' ','%','d', |
| '\n','\n','E','x','p','r','e','s','s','i','o','n',':',' ','\"','%','s','\"',0}; |
| static const MSVCRT_wchar_t format_console[] = {'A','s','s','e','r','t','i','o','n',' ','f','a','i','l','e','d',':',' ', |
| '%','s',',',' ','f','i','l','e',' ','%','s',',',' ','l','i','n','e',' ','%','d','\n','\n',0}; |
| |
| TRACE("(%s,%s,%d)\n", debugstr_w(str), debugstr_w(file), line); |
| |
| if ((MSVCRT_error_mode == MSVCRT__OUT_TO_MSGBOX) || |
| ((MSVCRT_error_mode == MSVCRT__OUT_TO_DEFAULT) && (MSVCRT_app_type == 2))) |
| { |
| MSVCRT_wchar_t text[2048]; |
| MSVCRT__snwprintf(text, sizeof(text), format_msgbox, file, line, str); |
| DoMessageBoxW(assertion_failed, text); |
| } |
| else |
| _cwprintf(format_console, str, file, line); |
| |
| MSVCRT_raise(MSVCRT_SIGABRT); |
| MSVCRT__exit(3); |
| } |
| |
| /********************************************************************* |
| * _assert (MSVCRT.@) |
| */ |
| void CDECL MSVCRT__assert(const char* str, const char* file, unsigned int line) |
| { |
| MSVCRT_wchar_t strW[1024], fileW[1024]; |
| |
| MSVCRT_mbstowcs(strW, str, 1024); |
| MSVCRT_mbstowcs(fileW, file, 1024); |
| |
| MSVCRT__wassert(strW, fileW, line); |
| } |
| |
| /********************************************************************* |
| * _c_exit (MSVCRT.@) |
| */ |
| void CDECL MSVCRT__c_exit(void) |
| { |
| TRACE("(void)\n"); |
| /* All cleanup is done on DLL detach; Return to caller */ |
| } |
| |
| /********************************************************************* |
| * _cexit (MSVCRT.@) |
| */ |
| void CDECL MSVCRT__cexit(void) |
| { |
| TRACE("(void)\n"); |
| LOCK_EXIT; |
| __MSVCRT__call_atexit(); |
| UNLOCK_EXIT; |
| } |
| |
| /********************************************************************* |
| * _onexit (MSVCRT.@) |
| */ |
| MSVCRT__onexit_t CDECL MSVCRT__onexit(MSVCRT__onexit_t func) |
| { |
| TRACE("(%p)\n",func); |
| |
| if (!func) |
| return NULL; |
| |
| LOCK_EXIT; |
| if (MSVCRT_atexit_registered > MSVCRT_atexit_table_size - 1) |
| { |
| MSVCRT__onexit_t *newtable; |
| TRACE("expanding table\n"); |
| newtable = MSVCRT_calloc(sizeof(void *),MSVCRT_atexit_table_size + 32); |
| if (!newtable) |
| { |
| TRACE("failed!\n"); |
| UNLOCK_EXIT; |
| return NULL; |
| } |
| memcpy (newtable, MSVCRT_atexit_table, MSVCRT_atexit_table_size*sizeof(void *)); |
| MSVCRT_atexit_table_size += 32; |
| MSVCRT_free (MSVCRT_atexit_table); |
| MSVCRT_atexit_table = newtable; |
| } |
| MSVCRT_atexit_table[MSVCRT_atexit_registered] = func; |
| MSVCRT_atexit_registered++; |
| UNLOCK_EXIT; |
| return func; |
| } |
| |
| /********************************************************************* |
| * exit (MSVCRT.@) |
| */ |
| void CDECL MSVCRT_exit(int exitcode) |
| { |
| HMODULE hmscoree; |
| static const WCHAR mscoreeW[] = {'m','s','c','o','r','e','e',0}; |
| void (WINAPI *pCorExitProcess)(int); |
| |
| TRACE("(%d)\n",exitcode); |
| MSVCRT__cexit(); |
| |
| hmscoree = GetModuleHandleW(mscoreeW); |
| |
| if (hmscoree) |
| { |
| pCorExitProcess = (void*)GetProcAddress(hmscoree, "CorExitProcess"); |
| |
| if (pCorExitProcess) |
| pCorExitProcess(exitcode); |
| } |
| |
| ExitProcess(exitcode); |
| } |
| |
| /********************************************************************* |
| * atexit (MSVCRT.@) |
| */ |
| int CDECL MSVCRT_atexit(void (*func)(void)) |
| { |
| TRACE("(%p)\n", func); |
| return MSVCRT__onexit((MSVCRT__onexit_t)func) == (MSVCRT__onexit_t)func ? 0 : -1; |
| } |
| |
| /********************************************************************* |
| * _crt_atexit (UCRTBASE.@) |
| */ |
| int CDECL MSVCRT__crt_atexit(void (*func)(void)) |
| { |
| TRACE("(%p)\n", func); |
| return MSVCRT__onexit((MSVCRT__onexit_t)func) == (MSVCRT__onexit_t)func ? 0 : -1; |
| } |
| |
| /********************************************************************* |
| * _set_purecall_handler (MSVCR71.@) |
| */ |
| MSVCRT_purecall_handler CDECL _set_purecall_handler(MSVCRT_purecall_handler function) |
| { |
| MSVCRT_purecall_handler ret = purecall_handler; |
| |
| TRACE("(%p)\n", function); |
| purecall_handler = function; |
| return ret; |
| } |
| |
| /********************************************************************* |
| * _purecall (MSVCRT.@) |
| */ |
| void CDECL _purecall(void) |
| { |
| TRACE("(void)\n"); |
| |
| if(purecall_handler) |
| purecall_handler(); |
| _amsg_exit( 25 ); |
| } |
| |
| /****************************************************************************** |
| * _set_error_mode (MSVCRT.@) |
| * |
| * Set the error mode, which describes where the C run-time writes error messages. |
| * |
| * PARAMS |
| * mode - the new error mode |
| * |
| * RETURNS |
| * The old error mode. |
| * |
| */ |
| int CDECL _set_error_mode(int mode) |
| { |
| |
| const int old = MSVCRT_error_mode; |
| if ( MSVCRT__REPORT_ERRMODE != mode ) { |
| MSVCRT_error_mode = mode; |
| } |
| return old; |
| } |