summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-12-15 14:03:51 (GMT)
committernijtmans <nijtmans>2010-12-15 14:03:51 (GMT)
commit8802a351978129fb686ef18982430a0c366fb06a (patch)
treeebcfac9740cbab00fdbdceeeec285e49d3c696c3 /win
parent4591a0a4177c686ed6c23378fa6ee49aea44e934 (diff)
downloadtcl-8802a351978129fb686ef18982430a0c366fb06a.zip
tcl-8802a351978129fb686ef18982430a0c366fb06a.tar.gz
tcl-8802a351978129fb686ef18982430a0c366fb06a.tar.bz2
Restore abort() in Tcl_Panic() as it was before.
[Patch 3124554] use ExitProcess() here, like in wish.
Diffstat (limited to 'win')
-rw-r--r--win/tclWinFile.c11
1 files changed, 9 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 0cd5f94..48ce2d0 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinFile.c,v 1.117 2010/12/13 13:57:58 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinFile.c,v 1.118 2010/12/15 14:03:52 nijtmans Exp $
*/
#include "tclWinInt.h"
@@ -823,7 +823,14 @@ PanicMessageBox(
MessageBeep(MB_ICONEXCLAMATION);
MessageBoxW(NULL, msgString, L"Fatal Error",
MB_ICONSTOP | MB_OK | MB_TASKMODAL | MB_SETFOREGROUND);
- /* We don't need to abort here, because our caller already does. */
+ /* try to trigger the debugger */
+# ifdef __GNUC__
+ __builtin_trap();
+# endif
+# ifdef _MSC_VER
+ DebugBreak();
+# endif
+ ExitProcess(1);
}
/*