diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-05 13:10:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-05 13:10:20 (GMT) |
| commit | f029161eb76f8c022ce2d07098f8c92967bd12f2 (patch) | |
| tree | f0751c140de4b7b67cdad400cb1447d62cd8c5b8 /generic/tclTest.c | |
| parent | ef8a00717e0d5134035b7e2c70ec8808e851f6e0 (diff) | |
| download | tcl-f029161eb76f8c022ce2d07098f8c92967bd12f2.zip tcl-f029161eb76f8c022ce2d07098f8c92967bd12f2.tar.gz tcl-f029161eb76f8c022ce2d07098f8c92967bd12f2.tar.bz2 | |
Eliminate (gcc) warning in tclTest.c
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 7 |
1 files 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); |