diff options
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index f6d815b..170a85e 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3757,7 +3757,7 @@ GetEndOffsetFromObj( if (*bytes != 'e') { int numType; const char *opPtr; - int length, t1 = 0, t2 = 0; + int t1 = 0, t2 = 0; /* Value doesn't start with "e" */ @@ -3774,7 +3774,7 @@ GetEndOffsetFromObj( * Quick scan to see if multi-value list is even possible. * This relies on TclGetString() returning a NUL-terminated string. */ - if ((TclMaxListLength(TclGetString(objPtr), -1, NULL) > 1) + if ((TclMaxListLength(bytes, -1, NULL) > 1) /* If it's possible, do the full list parse. */ && (TCL_OK == Tcl_ListObjLength(NULL, objPtr, &length)) |