diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 14:59:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-25 14:59:55 (GMT) |
| commit | bb8b9a927b8786502e0138b340bbd8cd7ab8c156 (patch) | |
| tree | af11aa5233e36439b8b6711af51d1ae1555246d9 /win | |
| parent | 12ac0ea3e53a457e944e695b85173a95e8692395 (diff) | |
| parent | 6a4a4376357c5c7aec5a0a274a959d07823bda59 (diff) | |
| download | tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.zip tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.tar.gz tcl-bb8b9a927b8786502e0138b340bbd8cd7ab8c156.tar.bz2 | |
Fix for [ef23a85ac6]: Tcl_PanicProc - Tcl9 & NaviServer.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinError.c | 8 | ||||
| -rw-r--r-- | win/tclWinFile.c | 14 |
2 files changed, 3 insertions, 19 deletions
diff --git a/win/tclWinError.c b/win/tclWinError.c index 7e5898b..4e8ae7e 100644 --- a/win/tclWinError.c +++ b/win/tclWinError.c @@ -381,7 +381,7 @@ Tcl_WinConvertError( *---------------------------------------------------------------------- */ -TCL_NORETURN void +void tclWinDebugPanic( const char *format, ...) { @@ -413,12 +413,6 @@ tclWinDebugPanic( fprintf(stderr, "\n"); fflush(stderr); } -# if defined(__GNUC__) - __builtin_trap(); -# else - DebugBreak(); -# endif - abort(); } #endif /* diff --git a/win/tclWinFile.c b/win/tclWinFile.c index b27487f..a808562 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -177,7 +177,7 @@ static int WinLink(const WCHAR *LinkSource, const WCHAR *LinkTarget, int linkAction); static int WinSymLinkDirectory(const WCHAR *LinkDirectory, const WCHAR *LinkTarget); -MODULE_SCOPE TCL_NORETURN void tclWinDebugPanic(const char *format, ...); +MODULE_SCOPE void tclWinDebugPanic(const char *format, ...); /* *-------------------------------------------------------------------- @@ -808,7 +808,7 @@ NativeWriteReparse( *---------------------------------------------------------------------- */ -TCL_NORETURN void +void tclWinDebugPanic( const char *format, ...) { @@ -838,16 +838,6 @@ tclWinDebugPanic( MessageBoxW(NULL, msgString, L"Fatal Error", MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND); } -#if defined(__GNUC__) - __builtin_trap(); -#elif defined(_WIN64) - __debugbreak(); -#elif defined(_MSC_VER) && defined (_M_IX86) - _asm {int 3} -#else - DebugBreak(); -#endif - abort(); } /* |