summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-11-14 17:43:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-11-14 17:43:51 (GMT)
commitb3a8217bbf86e7edea4f701627e4f981e5ef190e (patch)
treeafd0eb6f7b19b6ab184e8b085281924bb6bf6ccf /generic
parent0c7c2c6991c1b97f1d18378f9fd9ae4ff04fc37b (diff)
downloadtcl-b3a8217bbf86e7edea4f701627e4f981e5ef190e.zip
tcl-b3a8217bbf86e7edea4f701627e4f981e5ef190e.tar.gz
tcl-b3a8217bbf86e7edea4f701627e4f981e5ef190e.tar.bz2
* generic/tclStrToD.c: More data in the "can't happen" Tcl_Panic
to aid debugging.
Diffstat (limited to 'generic')
-rwxr-xr-xgeneric/tclStrToD.c5
1 files changed, 3 insertions, 2 deletions
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: