summaryrefslogtreecommitdiffstats
path: root/generic/tclPanic.c
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 /generic/tclPanic.c
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 'generic/tclPanic.c')
-rw-r--r--generic/tclPanic.c13
1 files changed, 1 insertions, 12 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c
index 73059a0..d5d6142 100644
--- a/generic/tclPanic.c
+++ b/generic/tclPanic.c
@@ -12,11 +12,10 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclPanic.c,v 1.16 2010/12/13 13:57:58 nijtmans Exp $
+ * RCS: @(#) $Id: tclPanic.c,v 1.17 2010/12/15 14:03:52 nijtmans Exp $
*/
#include "tclInt.h"
-#undef Tcl_Panic
/*
* The panicProc variable contains a pointer to an application specific panic
@@ -92,17 +91,7 @@ Tcl_PanicVA(
fflush(stderr);
}
/* In case the users panic proc does not abort, we do it here */
-#ifdef __GNUC__
- __builtin_trap();
-#endif
-#ifdef _WIN32
-# ifdef _MSC_VER
- DebugBreak();
-# endif
- ExitProcess(1);
-#else
abort();
-#endif
}
/*