diff options
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; |