From f029161eb76f8c022ce2d07098f8c92967bd12f2 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Mon, 5 Dec 2022 13:10:20 +0000 Subject: Eliminate (gcc) warning in tclTest.c --- generic/tclTest.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/generic/tclTest.c b/generic/tclTest.c index c5eb6eb..f4450ff 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3122,15 +3122,16 @@ 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 { - tmp = Tcl_NewWideIntObj((Tcl_WideInt)ulongVar); - } + } else +#endif /* TCL_WIDE_INT_IS_LONG */ + tmp = Tcl_NewWideIntObj((Tcl_WideInt)ulongVar); Tcl_AppendElement(interp, Tcl_GetString(tmp)); Tcl_DecrRefCount(tmp); Tcl_PrintDouble(NULL, (double)floatVar, buffer); -- cgit v0.12