diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:59:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:59:23 (GMT) |
| commit | 0fefbc629fd43067499307e94978d8ab95fa9f74 (patch) | |
| tree | 4e690c542fe0e68904ad3becdb422d4c521991cb /generic/tclStrToD.c | |
| parent | f4c192b1b8852d61c12689fd891918197b21cd85 (diff) | |
| parent | 921a0bbbfb177411e3fe27f4c4654909fd599859 (diff) | |
| download | tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.zip tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.tar.gz tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 85b3e65..9c8c0d4 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -539,11 +539,11 @@ TclParseNumber( if (bytes == NULL) { if (interp == NULL && endPtrPtr == NULL) { - if (objPtr->typePtr == &tclDictType) { + if (TclHasIntRep(objPtr, &tclDictType)) { /* A dict can never be a (single) number */ return TCL_ERROR; } - if (objPtr->typePtr == &tclListType) { + if (TclHasIntRep(objPtr, &tclListType)) { int length; /* A list can only be a (single) number if its length == 1 */ TclListObjLength(NULL, objPtr, &length); |