diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-12-28 14:00:58 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-12-28 14:00:58 (GMT) |
| commit | 477921f598c4b28d43faafe2bd478d358fc9051c (patch) | |
| tree | f37c0cfaa4326f7f80de8b15112172209282aa8c /generic/tclBasic.c | |
| parent | c96fff9fc1d126e5cc439f2f5ea79f3714f46f07 (diff) | |
| download | tcl-477921f598c4b28d43faafe2bd478d358fc9051c.zip tcl-477921f598c4b28d43faafe2bd478d358fc9051c.tar.gz tcl-477921f598c4b28d43faafe2bd478d358fc9051c.tar.bz2 | |
small speed-up for FP classification of int (simple cast wide to double)
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index a3fe901..b8bd6ca 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8739,6 +8739,9 @@ DoubleObjClass( case TCL_NUMBER_DOUBLE: d = *((const double *) ptr); break; + case TCL_NUMBER_INT: + d = (double)*((const Tcl_WideInt *) ptr); + break; default: if (Tcl_GetDoubleFromObj(interp, objPtr, &d) != TCL_OK) { return TCL_ERROR; |