diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-09 15:12:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-09 15:12:15 (GMT) |
| commit | 0d7b899e3e250cec1e77fad6defd1b044871379f (patch) | |
| tree | 208e4eb424a6e85b23e188931d3c044ecb1f5140 /generic/tclTest.c | |
| parent | 72baa1c787232e495b2fe7691a5c332e11f8ed89 (diff) | |
| parent | 2be590933b8f279e5c7e7f11b6b6d1150018cbf2 (diff) | |
| download | tcl-0d7b899e3e250cec1e77fad6defd1b044871379f.zip tcl-0d7b899e3e250cec1e77fad6defd1b044871379f.tar.gz tcl-0d7b899e3e250cec1e77fad6defd1b044871379f.tar.bz2 | |
Rebase to trunk
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 10c17c7..d706c2d 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -22,11 +22,6 @@ # define USE_TCL_STUBS #endif #include "tclInt.h" -#ifdef TCL_WITH_EXTERNAL_TOMMATH -# include "tommath.h" -#else -# include "tclTomMath.h" -#endif #include "tclOO.h" #include <math.h> @@ -3436,29 +3431,12 @@ TestlinkCmd( tmp = Tcl_NewWideIntObj(longVar); Tcl_AppendElement(interp, Tcl_GetString(tmp)); Tcl_DecrRefCount(tmp); -#ifdef TCL_WIDE_INT_IS_LONG - if (ulongVar > WIDE_MAX) { - mp_int bignumValue; - if (mp_init_u64(&bignumValue, ulongVar) != MP_OKAY) { - Tcl_Panic("%s: memory overflow", "Tcl_SetWideUIntObj"); - } - tmp = Tcl_NewBignumObj(&bignumValue); - } else -#endif /* TCL_WIDE_INT_IS_LONG */ - tmp = Tcl_NewWideIntObj((Tcl_WideInt)ulongVar); + tmp = Tcl_NewWideUIntObj(ulongVar); Tcl_AppendElement(interp, Tcl_GetString(tmp)); Tcl_DecrRefCount(tmp); Tcl_PrintDouble(NULL, (double)floatVar, buffer); Tcl_AppendElement(interp, buffer); - if (uwideVar > WIDE_MAX) { - mp_int bignumValue; - if (mp_init_u64(&bignumValue, uwideVar) != MP_OKAY) { - Tcl_Panic("%s: memory overflow", "Tcl_SetWideUIntObj"); - } - tmp = Tcl_NewBignumObj(&bignumValue); - } else { - tmp = Tcl_NewWideIntObj((Tcl_WideInt)uwideVar); - } + tmp = Tcl_NewWideUIntObj(uwideVar); Tcl_AppendElement(interp, Tcl_GetString(tmp)); Tcl_DecrRefCount(tmp); } else if (strcmp(argv[1], "set") == 0) { |