diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-05 08:07:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-05 08:07:25 (GMT) |
| commit | cf341f6a190899707244af7587233908155b3728 (patch) | |
| tree | fce4ff6f18216ccd1f10ccc328b0bc89a42944e7 /generic/tclBasic.c | |
| parent | ce13b82329a8d21bac1a5858b8a6192f8f3911e2 (diff) | |
| parent | fdf1df3b29531c5031a33f2e3c1f4668937c1c5f (diff) | |
| download | tcl-cf341f6a190899707244af7587233908155b3728.zip tcl-cf341f6a190899707244af7587233908155b3728.tar.gz tcl-cf341f6a190899707244af7587233908155b3728.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b31d5bd..f8ebbe9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -7684,7 +7684,7 @@ ExprWideFunc( if (ExprIntFunc(NULL, interp, objc, objv) != TCL_OK) { return TCL_ERROR; } - TclGetLeastSign64bits(NULL, Tcl_GetObjResult(interp), &wResult); + TclGetWideBitsFromObj(NULL, Tcl_GetObjResult(interp), &wResult); Tcl_SetObjResult(interp, Tcl_NewWideIntObj(wResult)); return TCL_OK; } @@ -7942,7 +7942,7 @@ ExprSrandFunc( return TCL_ERROR; } - if (TclGetLeastSign64bits(NULL, objv[1], &w) != TCL_OK) { + if (TclGetWideBitsFromObj(NULL, objv[1], &w) != TCL_OK) { return TCL_ERROR; } |