diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-08-12 16:12:23 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-08-12 16:12:23 (GMT) |
| commit | fdfe998f97dbd6d08afaedaabe7d982776cff186 (patch) | |
| tree | 258bd09a845a8e39da2a436068b5607fba955084 | |
| parent | 2c075cf9feda92d6a8c6a436a2d95a90da620e8d (diff) | |
| download | tcl-fdfe998f97dbd6d08afaedaabe7d982776cff186.zip tcl-fdfe998f97dbd6d08afaedaabe7d982776cff186.tar.gz tcl-fdfe998f97dbd6d08afaedaabe7d982776cff186.tar.bz2 | |
amend to [e2f55d6060] (fix for [7179c6724cd38271]): wideint-type dependency
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; } |