diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-07 15:23:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-07 15:23:11 (GMT) |
| commit | 061893f84e1d06c45531c7a4d7a7384e144dc69b (patch) | |
| tree | 9a33e4cd8437df9dde9b7b7d4a5c2fb9d5d333a6 /generic/tclBasic.c | |
| parent | f5fa2726ea8bf7971595d20e6e423641710e5d13 (diff) | |
| parent | 68be5b2b62dfcf1b9b7e348a71c4d88e08f19ef9 (diff) | |
| download | tcl-061893f84e1d06c45531c7a4d7a7384e144dc69b.zip tcl-061893f84e1d06c45531c7a4d7a7384e144dc69b.tar.gz tcl-061893f84e1d06c45531c7a4d7a7384e144dc69b.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 154c555..9d1e98d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3561,7 +3561,7 @@ OldMathFuncProc( args[k].type = TCL_INT; break; } - if (Tcl_GetWideIntFromObj(interp, valuePtr, &args[k].wideValue) + if (TclGetWideIntFromObj(interp, valuePtr, &args[k].wideValue) == TCL_OK) { args[k].type = TCL_WIDE_INT; break; @@ -3587,7 +3587,7 @@ OldMathFuncProc( return TCL_ERROR; } valuePtr = Tcl_GetObjResult(interp); - Tcl_GetWideIntFromObj(NULL, valuePtr, &args[k].wideValue); + TclGetWideIntFromObj(NULL, valuePtr, &args[k].wideValue); Tcl_ResetResult(interp); break; } @@ -7196,7 +7196,7 @@ ExprIsqrtFunc( } break; default: - if (Tcl_GetWideIntFromObj(interp, objv[1], &w) != TCL_OK) { + if (TclGetWideIntFromObj(interp, objv[1], &w) != TCL_OK) { return TCL_ERROR; } if (w < 0) { @@ -7639,7 +7639,7 @@ ExprWideFunc( return TCL_ERROR; } objPtr = Tcl_GetObjResult(interp); - if (Tcl_GetWideIntFromObj(NULL, objPtr, &wResult) != TCL_OK) { + if (TclGetWideIntFromObj(NULL, objPtr, &wResult) != TCL_OK) { /* * Truncate the bignum; keep only bits in wide int range. */ @@ -7650,7 +7650,7 @@ ExprWideFunc( mp_mod_2d(&big, (int) CHAR_BIT * sizeof(Tcl_WideInt), &big); objPtr = Tcl_NewBignumObj(&big); Tcl_IncrRefCount(objPtr); - Tcl_GetWideIntFromObj(NULL, objPtr, &wResult); + TclGetWideIntFromObj(NULL, objPtr, &wResult); Tcl_DecrRefCount(objPtr); } Tcl_SetObjResult(interp, Tcl_NewWideIntObj(wResult)); |