diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 08:26:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 08:26:43 (GMT) |
| commit | e57329c595034623b5828579128496c5ca908556 (patch) | |
| tree | 431b4a1c97b53adce19916e303201807d588b703 /win/tclWinFile.c | |
| parent | 7e10ea0af72a183dd705d107f80d163bbfe1d0da (diff) | |
| parent | c6baba2820a77c8d0a29b6750afa85f8c6170027 (diff) | |
| download | tcl-e57329c595034623b5828579128496c5ca908556.zip tcl-e57329c595034623b5828579128496c5ca908556.tar.gz tcl-e57329c595034623b5828579128496c5ca908556.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index a808562..56ffca4 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -177,7 +177,6 @@ static int WinLink(const WCHAR *LinkSource, const WCHAR *LinkTarget, int linkAction); static int WinSymLinkDirectory(const WCHAR *LinkDirectory, const WCHAR *LinkTarget); -MODULE_SCOPE void tclWinDebugPanic(const char *format, ...); /* *-------------------------------------------------------------------- @@ -808,7 +807,7 @@ NativeWriteReparse( *---------------------------------------------------------------------- */ -void +MODULE_SCOPE TCL_NORETURN void tclWinDebugPanic( const char *format, ...) { @@ -838,6 +837,12 @@ tclWinDebugPanic( MessageBoxW(NULL, msgString, L"Fatal Error", MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND); } +# if defined(__GNUC__) + __builtin_trap(); +# else + DebugBreak(); +# endif + abort(); } /* |