diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 16:52:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-20 16:52:23 (GMT) |
| commit | 7a134ab1444deb772e3d8c41d111000f2beed986 (patch) | |
| tree | e9e62aa2e94b8ffb3655ee7002f12f97e99a7a08 /generic/tclTest.c | |
| parent | 0633ea0692c6c2fa21979878ceb35102ff137a80 (diff) | |
| parent | b4088024a52289a663d42a8ca2d640c90d013f31 (diff) | |
| download | tcl-7a134ab1444deb772e3d8c41d111000f2beed986.zip tcl-7a134ab1444deb772e3d8c41d111000f2beed986.tar.gz tcl-7a134ab1444deb772e3d8c41d111000f2beed986.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 7360c94..3731b3a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -28,11 +28,6 @@ # define TCL_UTF_MAX 3 #endif #include "tclInt.h" -#ifdef TCL_WITH_EXTERNAL_TOMMATH -# include "tommath.h" -#else -# include "tclTomMath.h" -#endif #include "tclOO.h" #include <math.h> @@ -3401,29 +3396,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) { |