summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-03-09 22:26:24 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-03-09 22:26:24 (GMT)
commit97c026f6bd5aab4ae53b4e69c328426c506a1805 (patch)
tree43f99335a0b2fcd09b0b5e42a264297bd009418a
parent09cf2e4fceb1f452ed61b9691be235fc2d1a3df7 (diff)
downloadtcl-97c026f6bd5aab4ae53b4e69c328426c506a1805.zip
tcl-97c026f6bd5aab4ae53b4e69c328426c506a1805.tar.gz
tcl-97c026f6bd5aab4ae53b4e69c328426c506a1805.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.
-rw-r--r--ChangeLog7
-rw-r--r--generic/tclPanic.c4
2 files changed, 9 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 173123a..2041c2e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2006-02-09 Miguel Sofer <msofer@users.sf.net>
+
+ * 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.
+
2006-03-07 Don Porter <dgp@users.sourceforge.net>
*** 8.4.13 TAGGED FOR RELEASE ***
diff --git a/generic/tclPanic.c b/generic/tclPanic.c
index 5b9125e..a393f00 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.4 2001/06/17 03:48:19 dgp Exp $
+ * RCS: @(#) $Id: tclPanic.c,v 1.4.12.1 2006/03/09 22:26:26 msofer Exp $
*/
#include "tclInt.h"
@@ -103,8 +103,8 @@ Tcl_PanicVA (format, argList)
arg7, arg8);
(void) fprintf(stderr, "\n");
(void) fflush(stderr);
- abort();
}
+ abort();
}
/*