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 | 88c9b081c24aa8e1dc95b24e9752307efcc18fcf (patch) | |
| tree | 258bd09a845a8e39da2a436068b5607fba955084 /generic | |
| parent | 2326287079501642fa96f68c988af53a5e92a6b9 (diff) | |
| download | tcl-88c9b081c24aa8e1dc95b24e9752307efcc18fcf.zip tcl-88c9b081c24aa8e1dc95b24e9752307efcc18fcf.tar.gz tcl-88c9b081c24aa8e1dc95b24e9752307efcc18fcf.tar.bz2 | |
amend to [e2f55d6060] (fix for [7179c6724cd38271]): wideint-type dependency
Diffstat (limited to 'generic')
| -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; } |