diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-17 06:28:58 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-17 06:28:58 (GMT) |
| commit | 3efac837b7faf61a95ce12cb74f0253ecb21f6e4 (patch) | |
| tree | 75982e5da8b17dd9cad4b05f4c23a17f229656e2 /generic/tclCmdIL.c | |
| parent | f17ea65e32ef173137f72ac7dac855fd1bb1c940 (diff) | |
| download | tcl-3efac837b7faf61a95ce12cb74f0253ecb21f6e4.zip tcl-3efac837b7faf61a95ce12cb74f0253ecb21f6e4.tar.gz tcl-3efac837b7faf61a95ce12cb74f0253ecb21f6e4.tar.bz2 | |
Add test for lassign/lseq memory
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 1f60c2f..bbdfae5 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2321,7 +2321,7 @@ Tcl_LassignObjCmd( } Tcl_IncrRefCount(listCopyPtr); /* Important! fs */ - code = Tcl_ListObjLength(interp, listCopyPtr, &listObjc); + code = TclListObjLengthM(interp, listCopyPtr, &listObjc); if (code != TCL_OK) { Tcl_DecrRefCount(listCopyPtr); return code; |