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/tclStringObj.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/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 d77a56b..42eaa8d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -495,7 +495,7 @@ TclCheckEmptyString( } if (TclListObjIsCanonical(objPtr)) { - TclListObjLengthM(NULL, objPtr, &length); + TclListObjLength(NULL, objPtr, &length); return length == 0; } @@ -2862,7 +2862,7 @@ AppendPrintfToObjVA( } } while (seekingConversion); } - TclListObjGetElementsM(NULL, list, &objc, &objv); + TclListObjGetElements(NULL, list, &objc, &objv); code = Tcl_AppendFormatToObj(NULL, objPtr, format, objc, objv); if (code != TCL_OK) { Tcl_AppendPrintfToObj(objPtr, |