diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-20 01:36:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-20 01:36:10 (GMT) |
| commit | ea65a9b87515afd2e9c9738a219a02a437892ed7 (patch) | |
| tree | 394fc3dfe5f9a3af610de9fdea532cfd151326dc /generic/tclStringObj.c | |
| parent | ff93a19122b26c504edd512b4692b935c0a3646c (diff) | |
| parent | 5a02d5db9cec007d16a60b24bd8cd0b1912d123f (diff) | |
| download | tcl-ea65a9b87515afd2e9c9738a219a02a437892ed7.zip tcl-ea65a9b87515afd2e9c9738a219a02a437892ed7.tar.gz tcl-ea65a9b87515afd2e9c9738a219a02a437892ed7.tar.bz2 | |
Merge trunk. All callers of TclIndexDecode and related functions now adapted for enhanced index range.
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 715dbc1..084e2b0 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -651,8 +651,8 @@ Tcl_GetRange( String *stringPtr; size_t length; - if (first == TCL_AUTO_LENGTH) { - first = 0; + if (first == TCL_INDEX_NONE) { + first = TCL_INDEX_START; } if (last + 2 <= first + 1) { return Tcl_NewObj(); |