summaryrefslogtreecommitdiffstats
path: root/generic/tclClock.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-13 09:45:57 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-13 09:45:57 (GMT)
commit9cc68bccbf2916d0295cdfcb5db818c22c0da154 (patch)
treef139c8175f4a5b8428a0ae29570be55f28d47480 /generic/tclClock.c
parent26619872a685f373c6fa06066eb03c5da5951bfa (diff)
downloadtcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.zip
tcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.tar.gz
tcl-9cc68bccbf2916d0295cdfcb5db818c22c0da154.tar.bz2
Restore TclListObjLength()/TclListObjGetElements() macro's, as they were in 8.6
Diffstat (limited to 'generic/tclClock.c')
-rw-r--r--generic/tclClock.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c
index 0b17c55..dee6253 100644
--- a/generic/tclClock.c
+++ b/generic/tclClock.c
@@ -732,7 +732,7 @@ ConvertLocalToUTC(
* Unpack the tz data.
*/
- if (TclListObjGetElementsM(interp, tzdata, &rowc, &rowv) != TCL_OK) {
+ if (TclListObjGetElements(interp, tzdata, &rowc, &rowv) != TCL_OK) {
return TCL_ERROR;
}
@@ -797,7 +797,7 @@ ConvertLocalToUTCUsingTable(
while (!found) {
row = LookupLastTransition(interp, fields->seconds, rowc, rowv);
if ((row == NULL)
- || TclListObjGetElementsM(interp, row, &cellc,
+ || TclListObjGetElements(interp, row, &cellc,
&cellv) != TCL_OK
|| TclGetIntFromObj(interp, cellv[1],
&fields->tzOffset) != TCL_OK) {
@@ -935,7 +935,7 @@ ConvertUTCToLocal(
* Unpack the tz data.
*/
- if (TclListObjGetElementsM(interp, tzdata, &rowc, &rowv) != TCL_OK) {
+ if (TclListObjGetElements(interp, tzdata, &rowc, &rowv) != TCL_OK) {
return TCL_ERROR;
}
@@ -987,7 +987,7 @@ ConvertUTCToLocalUsingTable(
row = LookupLastTransition(interp, fields->seconds, rowc, rowv);
if (row == NULL ||
- TclListObjGetElementsM(interp, row, &cellc, &cellv) != TCL_OK ||
+ TclListObjGetElements(interp, row, &cellc, &cellv) != TCL_OK ||
TclGetIntFromObj(interp, cellv[1], &fields->tzOffset) != TCL_OK) {
return TCL_ERROR;
}