diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-28 18:59:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-28 18:59:25 (GMT) |
| commit | e754f7aad1e363879fa76d58a12631d804a1260b (patch) | |
| tree | 9c00a8f5096f9f76da112f1041f30c8ddedc8dc6 /generic/tclBasic.c | |
| parent | 62c8a18cdc61772151a423b43a6252e4c89a5a43 (diff) | |
| parent | b3993adcfb19f12c2fe6accbaec020a9599a6294 (diff) | |
| download | tcl-e754f7aad1e363879fa76d58a12631d804a1260b.zip tcl-e754f7aad1e363879fa76d58a12631d804a1260b.tar.gz tcl-e754f7aad1e363879fa76d58a12631d804a1260b.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index afba606..87f411d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6946,7 +6946,7 @@ ExprEntierFunc( if (type == TCL_NUMBER_DOUBLE) { d = *((const double *) ptr); - if ((d >= (double)LONG_MAX) || (d <= (double)LONG_MIN)) { + if ((d >= (double)LLONG_MAX) || (d <= (double)LLONG_MIN)) { mp_int big; if (Tcl_InitBignumFromDouble(interp, d, &big) != TCL_OK) { @@ -6956,9 +6956,9 @@ ExprEntierFunc( Tcl_SetObjResult(interp, Tcl_NewBignumObj(&big)); return TCL_OK; } else { - long result = (long) d; + Tcl_WideInt result = (Tcl_WideInt) d; - Tcl_SetObjResult(interp, Tcl_NewLongObj(result)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(result)); return TCL_OK; } } |