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/tclInt.h | |
| 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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f7f8492..46ce7c0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3117,6 +3117,7 @@ MODULE_SCOPE Tcl_Command TclCreateEnsembleInNs(Tcl_Interp *interp, MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); MODULE_SCOPE void TclDeleteNamespaceChildren(Namespace *nsPtr); MODULE_SCOPE Tcl_Size TclDictGetSize(Tcl_Obj *dictPtr); +MODULE_SCOPE Tcl_Obj* TclDuplicatePureObj(Tcl_Obj * objPtr); MODULE_SCOPE int TclFindDictElement(Tcl_Interp *interp, const char *dict, Tcl_Size dictLength, const char **elementPtr, const char **nextPtr, @@ -3249,7 +3250,6 @@ MODULE_SCOPE Tcl_Obj * TclListObjGetElement(Tcl_Obj *listObj, Tcl_Size index); /* TIP #280 */ MODULE_SCOPE void TclListLines(Tcl_Obj *listObj, Tcl_Size line, int n, int *lines, Tcl_Obj *const *elems); -MODULE_SCOPE Tcl_Obj * TclListObjCopy(Tcl_Interp *interp, Tcl_Obj *listPtr); MODULE_SCOPE int TclListObjAppendElements(Tcl_Interp *interp, Tcl_Obj *toObj, Tcl_Size elemCount, Tcl_Obj *const elemObjv[]); |