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/tclEnsemble.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/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 9e13c93..671656e 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1904,7 +1904,7 @@ NsEnsembleImplementationCmdNR( TclListObjLengthM(NULL, prefixObj, &prefixObjc); if (objc == 2) { - copyPtr = Tcl_DuplicateObj(prefixObj); + copyPtr = TclListObjCopy(NULL, prefixObj); } else { copyPtr = Tcl_NewListObj(objc - 2 + prefixObjc, NULL); Tcl_ListObjAppendList(NULL, copyPtr, prefixObj); |