diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-08 15:17:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-08 15:17:01 (GMT) |
| commit | 880a3b1ea5761e65ed0ff07defdef1d6839cb780 (patch) | |
| tree | 22e56c9790e7464b03d7e6efc2925daa243eba35 /generic/tclStrToD.c | |
| parent | f0f692abc9dfbcd98611e06e21df658aecd019b8 (diff) | |
| download | tcl-880a3b1ea5761e65ed0ff07defdef1d6839cb780.zip tcl-880a3b1ea5761e65ed0ff07defdef1d6839cb780.tar.gz tcl-880a3b1ea5761e65ed0ff07defdef1d6839cb780.tar.bz2 | |
Do an additional check, before declaring something "a list"
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index f93c91b..460df40 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -1527,7 +1527,11 @@ TclParseNumber( if (interp != NULL) { Tcl_Obj *msg = Tcl_ObjPrintf("expected %s but got ", expected); - if (TclMaxListLength(bytes, TCL_INDEX_NONE, NULL) > 1) { + Tcl_Size argc; + const char **argv; + if ((TclMaxListLength(bytes, TCL_INDEX_NONE, NULL) > 1) + && Tcl_SplitList(NULL, bytes, &argc, &argv) == TCL_OK) { + Tcl_Free(argv); Tcl_AppendToObj(msg, "a list", -1); } else { Tcl_AppendToObj(msg, "\"", -1); |