diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:05:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:05:25 (GMT) |
| commit | 921a0bbbfb177411e3fe27f4c4654909fd599859 (patch) | |
| tree | f10affcc12787513eab5ade51bdaf65c4e4c2f32 /generic/tclStrToD.c | |
| parent | 5a0260cbcca3fe75e95b352ccd9df4d82cc6a1ae (diff) | |
| download | tcl-921a0bbbfb177411e3fe27f4c4654909fd599859.zip tcl-921a0bbbfb177411e3fe27f4c4654909fd599859.tar.gz tcl-921a0bbbfb177411e3fe27f4c4654909fd599859.tar.bz2 | |
More use of TclHasIntRep() macro. Add vfs build director to fossil ignore-glob
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 a46b29a..0770b88 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -540,11 +540,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); |