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/tclEvent.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/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 68a2c97..eb136af 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -232,7 +232,7 @@ HandleBgErrors( * support one handler setting another handler. */ - Tcl_Obj *copyObj = TclListObjCopy(NULL, assocPtr->cmdPrefix); + Tcl_Obj *copyObj = TclDuplicatePureObj(assocPtr->cmdPrefix); errPtr = assocPtr->firstBgPtr; |