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/tclTest.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/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index c87bb54..665135f 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1750,8 +1750,8 @@ TestdoubledigitsObjCmd(void *unused, status = Tcl_GetDoubleFromObj(interp, objv[1], &d); if (status != TCL_OK) { doubleType = Tcl_GetObjType("double"); - if (objv[1]->typePtr == doubleType - || TclIsNaN(objv[1]->internalRep.doubleValue)) { + if (Tcl_FetchIntRep(objv[1], doubleType) + && TclIsNaN(objv[1]->internalRep.doubleValue)) { status = TCL_OK; memcpy(&d, &(objv[1]->internalRep.doubleValue), sizeof(double)); } |