From fdfe998f97dbd6d08afaedaabe7d982776cff186 Mon Sep 17 00:00:00 2001 From: sebres Date: Mon, 12 Aug 2024 16:12:23 +0000 Subject: amend to [e2f55d6060] (fix for [7179c6724cd38271]): wideint-type dependency --- generic/tclCompCmdsGR.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 8143c9e..b32440c 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -510,10 +510,12 @@ TclCompileIncrCmd( if ( (code == TCL_OK) && (-127 <= immValue) && (immValue <= 127) /* avoid overflow during string to int conversion (wide 0xFFFFFFFF to signed int -1): */ +#ifndef TCL_WIDE_INT_IS_LONG && ( (immValue >= 0) || (intObj->typePtr != &tclWideIntType) || ((-127 <= intObj->internalRep.wideValue) && (intObj->internalRep.wideValue <= 127)) ) +#endif ) { haveImmValue = 1; } -- cgit v0.12