diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-31 13:21:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-31 13:21:27 (GMT) |
| commit | 9a09623d6c548e978f082f7c44503299747680c1 (patch) | |
| tree | 5b459bb2847901494a56ed821e3df528f0cc401c /generic/tclScan.c | |
| parent | dab97b07424213f14d3122ba1936e388a97de5e4 (diff) | |
| download | tcl-9a09623d6c548e978f082f7c44503299747680c1.zip tcl-9a09623d6c548e978f082f7c44503299747680c1.tar.gz tcl-9a09623d6c548e978f082f7c44503299747680c1.tar.bz2 | |
Make last test-cases pass
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index ca27f77..e4511bf 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -605,7 +605,7 @@ Tcl_ScanObjCmd( const char *format; int numVars, nconversions, totalVars = -1; int objIndex, offset, i, result, code; - long value; + int value; const char *string, *end, *baseString; char op = 0; int underflow = 0; @@ -1006,19 +1006,7 @@ Tcl_ScanObjCmd( } } if ((flags & SCAN_UNSIGNED) && (value < 0)) { -#ifdef TCL_WIDE_INT_IS_LONG - mp_int big; - if (mp_init_u64(&big, (unsigned long)value) != MP_OKAY) { - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "insufficient memory to create bignum", -1)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); - return TCL_ERROR; - } else { - Tcl_SetBignumObj(objPtr, &big); - } -#else - Tcl_SetWideIntObj(objPtr, (unsigned long)value); -#endif + Tcl_SetWideIntObj(objPtr, (unsigned int)value); } else { TclSetIntObj(objPtr, value); } |