diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-02-15 18:30:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-02-15 18:30:34 (GMT) |
| commit | 64ef84994aa9f4ad84bf70ecee9886c1cb6c8d5e (patch) | |
| tree | a9215b72e1ef35b2201c765b8b6b441f020e5590 /generic/tclUtil.c | |
| parent | 494a47ee6e15ade053dcbb81f273b71c3322c62c (diff) | |
| parent | cce4368acee1315cdc42e9d8c5db59a8f479edf7 (diff) | |
| download | tcl-64ef84994aa9f4ad84bf70ecee9886c1cb6c8d5e.zip tcl-64ef84994aa9f4ad84bf70ecee9886c1cb6c8d5e.tar.gz tcl-64ef84994aa9f4ad84bf70ecee9886c1cb6c8d5e.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 988d4b5..f9b92c8 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3335,16 +3335,7 @@ TclGetIntForIndex( * be converted to one, use it. */ - Tcl_WideInt value = endValue + objPtr->internalRep.wideValue; - if (endValue > 0 && value < objPtr->internalRep.wideValue) { - *indexPtr = INT_MAX; /* numerical overflow */ - } else if (value < INT_MIN || (endValue < 0 && value > objPtr->internalRep.wideValue)) { - *indexPtr = INT_MIN; /* numerical underflow or value < INT_MIN */ - } else if (value > INT_MAX) { - *indexPtr = INT_MAX;/* value > INT_MAX */ - } else { - *indexPtr = (int) value; - } + *indexPtr = endValue + (int)objPtr->internalRep.wideValue; return TCL_OK; } |