diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:49:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:49:38 (GMT) |
| commit | e7e27b6290efd36e92236eb6f46f4e00dc98e188 (patch) | |
| tree | e240f25b360037743ccde571bf2a499d7d787e2b /generic/tclScan.c | |
| parent | 69e29e6012ec91b1b686c8c246e123758a9f1104 (diff) | |
| parent | 947369a720dc58ad94435918a85bee712448a48e (diff) | |
| download | tcl-e7e27b6290efd36e92236eb6f46f4e00dc98e188.zip tcl-e7e27b6290efd36e92236eb6f46f4e00dc98e188.tar.gz tcl-e7e27b6290efd36e92236eb6f46f4e00dc98e188.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index f018b14..d0fc5a7 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -937,16 +937,16 @@ Tcl_ScanObjCmd( } else if (flags & SCAN_BIG) { if (flags & SCAN_UNSIGNED) { mp_int big; - int code = Tcl_GetBignumFromObj(interp, objPtr, &big); + int res = Tcl_GetBignumFromObj(interp, objPtr, &big); - if (code == TCL_OK) { + if (res == TCL_OK) { if (mp_isneg(&big)) { - code = TCL_ERROR; + res = TCL_ERROR; } mp_clear(&big); } - if (code == TCL_ERROR) { + if (res == TCL_ERROR) { if (objs != NULL) { Tcl_Free(objs); } |