diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:42:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 08:42:43 (GMT) |
| commit | da5c2b08af1531f171e79ee0d09a5288eabbec46 (patch) | |
| tree | 38775495b0b57457df9be9a6a02b804955ba7da2 /generic/tclFileName.c | |
| parent | 58aa27c456e8787c6b178a0c68265201b6803c74 (diff) | |
| download | tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.zip tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.tar.gz tcl-da5c2b08af1531f171e79ee0d09a5288eabbec46.tar.bz2 | |
Same with TclListObjGetElements
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 2f10a01..38e87e0 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -2016,7 +2016,7 @@ TclGlob( } } - Tcl_ListObjGetElements(NULL, filenamesObj, &objc, &objv); + TclListObjGetElements(NULL, filenamesObj, &objc, &objv); for (i = 0; i< objc; i++) { size_t len; const char *oldStr = Tcl_GetStringFromObj(objv[i], &len); @@ -2345,7 +2345,7 @@ DoGlob( size_t i, subdirc, repair = TCL_INDEX_NONE; Tcl_Obj **subdirv; - result = Tcl_ListObjGetElements(interp, subdirsPtr, + result = TclListObjGetElements(interp, subdirsPtr, &subdirc, &subdirv); for (i=0; result==TCL_OK && i<subdirc; i++) { Tcl_Obj *copy = NULL; |