diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-03-09 23:13:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-03-09 23:13:25 (GMT) |
| commit | 781917eceebd25c1e52cb8b8b5d6a56a30016b50 (patch) | |
| tree | f838fd1752434ad457404ca9dfdd901999f7af97 /generic/tclPanic.c | |
| parent | af0f32e244b163b65ce01a539f464af809438939 (diff) | |
| download | tcl-781917eceebd25c1e52cb8b8b5d6a56a30016b50.zip tcl-781917eceebd25c1e52cb8b8b5d6a56a30016b50.tar.gz tcl-781917eceebd25c1e52cb8b8b5d6a56a30016b50.tar.bz2 | |
Undo latest commit due to controversy about whether some use case
might exist for a Tcl_Panic that returns.
Diffstat (limited to 'generic/tclPanic.c')
| -rw-r--r-- | generic/tclPanic.c | 4 |
1 files changed, 2 insertions, 2 deletions
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(); } /* |