diff options
| author | griffin <briang42@easystreet.net> | 2023-08-12 17:56:23 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-08-12 17:56:23 (GMT) |
| commit | c29c4e023f1dd583ec4c95eb3f3ee111401cac90 (patch) | |
| tree | 669237ea1f702798e82585fbe5f11d06d18c4980 /generic/tclCmdIL.c | |
| parent | 997617cd7d6c1368f0853db01bbbd1bc3da32c2c (diff) | |
| download | tcl-c29c4e023f1dd583ec4c95eb3f3ee111401cac90.zip tcl-c29c4e023f1dd583ec4c95eb3f3ee111401cac90.tar.gz tcl-c29c4e023f1dd583ec4c95eb3f3ee111401cac90.tar.bz2 | |
More replacements of DuplicateObj with ListObjCopy.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index b6b4900..9c77eed 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2315,7 +2315,10 @@ Tcl_LassignObjCmd( return TCL_ERROR; } - listCopyPtr = Tcl_DuplicateObj(objv[1]); + listCopyPtr = TclListObjCopy(interp, objv[1]); + if (listCopyPtr == NULL) { + return TCL_ERROR; + } Tcl_IncrRefCount(listCopyPtr); /* Important! fs */ code = TclListObjGetElementsM( @@ -2482,7 +2485,7 @@ Tcl_LinsertObjCmd( listPtr = objv[1]; if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); + listPtr = TclListObjCopy(NULL, listPtr); copied = 1; } @@ -2684,7 +2687,7 @@ Tcl_LpopObjCmd( if (objc == 2) { if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); + listPtr = TclListObjCopy(NULL, listPtr); copied = 1; } result = Tcl_ListObjReplace(interp, listPtr, listLen - 1, 1, 0, NULL); @@ -2874,7 +2877,7 @@ Tcl_LremoveObjCmd( */ if (Tcl_IsShared(listObj)) { - listObj = Tcl_DuplicateObj(listObj); + listObj = TclListObjCopy(NULL, listObj); copied = 1; } num = 0; @@ -3126,7 +3129,7 @@ Tcl_LreplaceObjCmd( listPtr = objv[1]; if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); + listPtr = TclListObjCopy(NULL, listPtr); } /* @@ -4759,7 +4762,7 @@ Tcl_LsortObjCmd( * 1675116] */ - listObj = Tcl_DuplicateObj(listObj); + listObj = TclListObjCopy(interp, listObj); if (listObj == NULL) { sortInfo.resultCode = TCL_ERROR; goto done; @@ -5115,7 +5118,7 @@ Tcl_LeditObjCmd( } if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); + listPtr = TclListObjCopy(NULL, listPtr); createdNewObj = 1; } else { createdNewObj = 0; |