From b3a8217bbf86e7edea4f701627e4f981e5ef190e Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 14 Nov 2005 17:43:51 +0000 Subject: * generic/tclStrToD.c: More data in the "can't happen" Tcl_Panic to aid debugging. --- ChangeLog | 3 +++ generic/tclStrToD.c | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index f29a2d8..9beb9da 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-11-14 Don Porter + * generic/tclStrToD.c: More data in the "can't happen" Tcl_Panic + to aid debugging. + * generic/tclBasic.c (CallCommandTraces): Save/restore the interp result during traces to fix [Bug 1355342]. diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index b5aee32..7760bee 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStrToD.c,v 1.16 2005/11/12 04:08:06 dgp Exp $ + * RCS: @(#) $Id: tclStrToD.c,v 1.17 2005/11/14 17:43:51 dgp Exp $ * *---------------------------------------------------------------------- */ @@ -934,7 +934,8 @@ TclParseNumber( case sNA: case sNANPAREN: case sNANHEX: - panic("in TclParseNumber: bad acceptState, can't happen."); + Tcl_Panic("TclParseNumber: bad acceptState %d parsing '%s'", + acceptState, bytes); #ifdef TIP_114_FORMATS case BINARY: -- cgit v0.12