diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 22:23:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 22:23:45 (GMT) |
| commit | 18b9232ac3956eb3a46a2fdf933bc46268f1ac11 (patch) | |
| tree | 3b6bc85dd3c22260f2880497df13aad94502fc28 /generic/tclTest.c | |
| parent | 9f25592044c6dea3438bab934c5f39de9e5bbb2f (diff) | |
| parent | 7a134ab1444deb772e3d8c41d111000f2beed986 (diff) | |
| download | tcl-18b9232ac3956eb3a46a2fdf933bc46268f1ac11.zip tcl-18b9232ac3956eb3a46a2fdf933bc46268f1ac11.tar.gz tcl-18b9232ac3956eb3a46a2fdf933bc46268f1ac11.tar.bz2 | |
TIP #648: New functions Tcl_NewWideUIntObj()/Tcl_SetWideUIntObj()
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 d8fbb00..d04b715 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) { |