diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-12 21:24:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-12 21:24:14 (GMT) |
| commit | 3b079f137c6a1a8776a9696cbbac0ff4d4b9cedc (patch) | |
| tree | 448e0e818cab2430c5c59271e31123d787f132b2 /generic/tclEncoding.c | |
| parent | b2a28063811abb4c3bbe540d8e42b24c571b4588 (diff) | |
| download | tcl-3b079f137c6a1a8776a9696cbbac0ff4d4b9cedc.zip tcl-3b079f137c6a1a8776a9696cbbac0ff4d4b9cedc.tar.gz tcl-3b079f137c6a1a8776a9696cbbac0ff4d4b9cedc.tar.bz2 | |
Restore TclListObjGetElements()/TclListObjLength() as they were in 8.6 too.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 7d80c45..f60f949 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -406,7 +406,7 @@ Tcl_SetEncodingSearchPath( { Tcl_Size dummy; - if (TCL_ERROR == TclListObjLengthM(NULL, searchPath, &dummy)) { + if (TCL_ERROR == TclListObjLength(NULL, searchPath, &dummy)) { return TCL_ERROR; } TclSetProcessGlobalValue(&encodingSearchPath, searchPath, NULL); @@ -446,7 +446,7 @@ FillEncodingFileMap(void) searchPath = Tcl_GetEncodingSearchPath(); Tcl_IncrRefCount(searchPath); - TclListObjLengthM(NULL, searchPath, &numDirs); + TclListObjLength(NULL, searchPath, &numDirs); map = Tcl_NewDictObj(); Tcl_IncrRefCount(map); @@ -470,7 +470,7 @@ FillEncodingFileMap(void) Tcl_FSMatchInDirectory(NULL, matchFileList, directory, "*.enc", &readableFiles); - TclListObjGetElementsM(NULL, matchFileList, &numFiles, &filev); + TclListObjGetElements(NULL, matchFileList, &numFiles, &filev); for (j=0; j<numFiles; j++) { Tcl_Obj *encodingName, *fileObj; @@ -1774,7 +1774,7 @@ OpenEncodingFileChannel( Tcl_Channel chan = NULL; Tcl_Size i, numDirs; - TclListObjGetElementsM(NULL, searchPath, &numDirs, &dir); + TclListObjGetElements(NULL, searchPath, &numDirs, &dir); Tcl_IncrRefCount(nameObj); Tcl_AppendToObj(fileNameObj, ".enc", TCL_INDEX_NONE); Tcl_IncrRefCount(fileNameObj); @@ -4277,7 +4277,7 @@ InitializeEncodingSearchPath( Tcl_IncrRefCount(searchPathObj); libPathObj = TclGetProcessGlobalValue(&libraryPath); Tcl_IncrRefCount(libPathObj); - TclListObjLengthM(NULL, libPathObj, &numDirs); + TclListObjLength(NULL, libPathObj, &numDirs); for (i = 0; i < numDirs; i++) { Tcl_Obj *directoryObj, *pathObj; |