summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-03-09 22:00:57 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-03-09 22:00:57 (GMT)
commitaf0f32e244b163b65ce01a539f464af809438939 (patch)
tree2ab85b290f843c3163c129954ea0a95909ce29f5 /generic
parent0f8885eba3047270f8d0d21e93cddc8d2358807e (diff)
downloadtcl-af0f32e244b163b65ce01a539f464af809438939.zip
tcl-af0f32e244b163b65ce01a539f464af809438939.tar.gz
tcl-af0f32e244b163b65ce01a539f464af809438939.tar.bz2
* generic/tclPanic.c (Tcl_PanicVA): added an unconditional abort
at the end, to insure that a panic cannot return even if the actual procedure was overriden by a Tcl_SetPanicProc() call. Bug caught by looking at Coverity's analysis.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclPanic.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c
index e7cac47..fb0d69b 100644
--- a/generic/tclPanic.c
+++ b/generic/tclPanic.c
@@ -12,7 +12,7 @@
* 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.8 2005/11/07 15:27:02 dkf Exp $
+ * RCS: @(#) $Id: tclPanic.c,v 1.9 2006/03/09 22:00:59 msofer Exp $
*/
#include "tclInt.h"
@@ -100,8 +100,8 @@ Tcl_PanicVA(
arg7, arg8);
(void) fprintf(stderr, "\n");
(void) fflush(stderr);
- abort();
}
+ abort();
}
/*