diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-16 12:32:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-16 12:32:49 (GMT) |
| commit | c44181ecafaa160b94728593527ebca0260dc51f (patch) | |
| tree | 0ec29da0c538b7360a29c01ede019832d514d796 /generic/tclUtil.c | |
| parent | 14994d8a856c6e59890aad6023793a6760c98e1a (diff) | |
| parent | 824f6218752373b6a11e1e9dfaa7d7f2eedc6c42 (diff) | |
| download | tcl-c44181ecafaa160b94728593527ebca0260dc51f.zip tcl-c44181ecafaa160b94728593527ebca0260dc51f.tar.gz tcl-c44181ecafaa160b94728593527ebca0260dc51f.tar.bz2 | |
Change signature of Tcl_GetRange() to use size_t. Merge trunk.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 0b31370..65dc55c 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3436,6 +3436,7 @@ TclGetIntForIndex( const char *bytes; if (TclGetIntFromObj(NULL, objPtr, indexPtr) == TCL_OK) { + if (*indexPtr < -1) *indexPtr = -1; return TCL_OK; } @@ -3480,6 +3481,7 @@ TclGetIntForIndex( } else { *indexPtr = first - second; } + if (*indexPtr < -1) *indexPtr = -1; return TCL_OK; } @@ -3533,6 +3535,7 @@ GetEndOffsetFromObj( /* TODO: Handle overflow cases sensibly */ *indexPtr = endValue + (int)objPtr->internalRep.wideValue; + if ((*indexPtr < -1) && (endValue < 0)) *indexPtr = -1; return TCL_OK; } |