diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 20:10:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-24 20:10:25 (GMT) |
| commit | f786cb097f2b4dedaf17c38b8246e76df1a73ce5 (patch) | |
| tree | 44800cd8681e698777665467b8e06d5b2432d9df /generic/tclFileName.c | |
| parent | 5a02d5db9cec007d16a60b24bd8cd0b1912d123f (diff) | |
| download | tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.zip tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.tar.gz tcl-f786cb097f2b4dedaf17c38b8246e76df1a73ce5.tar.bz2 | |
Another round of int -> size_t modifications, so strings > 2Gb are handled correctly on 64-bit platforms.
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index f7d1e76..33980eb 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1457,7 +1457,7 @@ Tcl_GlobObjCmd( globTypes->macCreator = NULL; while (--length >= 0) { - int len; + size_t len; const char *str; Tcl_ListObjIndex(interp, typePtr, length, &look); @@ -1515,9 +1515,10 @@ Tcl_GlobObjCmd( } else { Tcl_Obj *item; + int llen; - if ((Tcl_ListObjLength(NULL, look, &len) == TCL_OK) - && (len == 3)) { + if ((Tcl_ListObjLength(NULL, look, &llen) == TCL_OK) + && (llen == 3)) { Tcl_ListObjIndex(interp, look, 0, &item); if (!strcmp("macintosh", Tcl_GetString(item))) { Tcl_ListObjIndex(interp, look, 1, &item); |