diff options
| author | dgp@users.sourceforge.net <dgp> | 2005-11-14 17:43:51 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2005-11-14 17:43:51 (GMT) |
| commit | 3b98c5c6e7e90f56b1a1306ef96c96e798bbab7e (patch) | |
| tree | afd0eb6f7b19b6ab184e8b085281924bb6bf6ccf /generic/tclStrToD.c | |
| parent | b1269e08241771063a30bd5101b6f02e593bca20 (diff) | |
| download | tcl-3b98c5c6e7e90f56b1a1306ef96c96e798bbab7e.zip tcl-3b98c5c6e7e90f56b1a1306ef96c96e798bbab7e.tar.gz tcl-3b98c5c6e7e90f56b1a1306ef96c96e798bbab7e.tar.bz2 | |
* generic/tclStrToD.c: More data in the "can't happen" Tcl_Panic
to aid debugging.
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 5 |
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: |