diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-16 05:25:31 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-16 05:25:31 (GMT) |
| commit | 50dde26caf2055ef3a7d925be870a923f20d1afd (patch) | |
| tree | 4e3d41784a3ebeaf9dab2596b1778d71feead8c2 /generic/tclBasic.c | |
| parent | 49c4458a2581a68296335a427e1c67f5e7462983 (diff) | |
| download | tcl-50dde26caf2055ef3a7d925be870a923f20d1afd.zip tcl-50dde26caf2055ef3a7d925be870a923f20d1afd.tar.gz tcl-50dde26caf2055ef3a7d925be870a923f20d1afd.tar.bz2 | |
New function, TclDuplicatePureObj(), doesn't duplicate the string
representation when duplicating an object, unless necessary. Remove
TclListObjCopy() in favor of TclDuplicatePureObj(), allowing internal
representation to change after the copy rather than before.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 02940e7..c42b5e3 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6152,7 +6152,7 @@ TclNREvalObjEx( */ Tcl_IncrRefCount(objPtr); - listPtr = TclListObjCopy(interp, objPtr); + listPtr = TclDuplicatePureObj(objPtr); Tcl_IncrRefCount(listPtr); if (word != INT_MIN) { |