From 781917eceebd25c1e52cb8b8b5d6a56a30016b50 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 9 Mar 2006 23:13:25 +0000 Subject: Undo latest commit due to controversy about whether some use case might exist for a Tcl_Panic that returns. --- ChangeLog | 7 ------- generic/tclPanic.c | 4 ++-- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 555e9a2..db0af69 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,10 +1,3 @@ -2006-02-09 Miguel Sofer - - * 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-09 Vince Darley * win/tclWinFile.c: fix to 'file writable' in certain XP diff --git a/generic/tclPanic.c b/generic/tclPanic.c index fb0d69b..e47f9b6 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.9 2006/03/09 22:00:59 msofer Exp $ + * RCS: @(#) $Id: tclPanic.c,v 1.10 2006/03/09 23:13:25 dgp Exp $ */ #include "tclInt.h" @@ -100,8 +100,8 @@ Tcl_PanicVA( arg7, arg8); (void) fprintf(stderr, "\n"); (void) fflush(stderr); + abort(); } - abort(); } /* -- cgit v0.12