diff options
author | dgp <dgp@users.sourceforge.net> | 2017-03-06 17:37:13 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2017-03-06 17:37:13 (GMT) |
commit | 91d31a19a784cbf4ba543f19917a7af8bdd7ce41 (patch) | |
tree | e565905f655a8716b352bbb5165cbaa8fe4fef85 /generic/tclStrToD.c | |
parent | 7dd350ed15f089a948c223d3b5f10498b501f3c2 (diff) | |
parent | 08192ab42f794f6a486fdc21a537cce794f04472 (diff) | |
download | tcl-91d31a19a784cbf4ba543f19917a7af8bdd7ce41.zip tcl-91d31a19a784cbf4ba543f19917a7af8bdd7ce41.tar.gz tcl-91d31a19a784cbf4ba543f19917a7af8bdd7ce41.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclStrToD.c')
-rw-r--r-- | generic/tclStrToD.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index fed72c8..39d6b7c 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -538,7 +538,7 @@ TclParseNumber( */ if (bytes == NULL) { - if (endPtrPtr == NULL) { + if (interp == NULL && endPtrPtr == NULL) { if (objPtr->typePtr == &tclDictType) { /* A dict can never be a (single) number */ return TCL_ERROR; |