diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-31 14:12:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-31 14:12:12 (GMT) |
| commit | c8ff4cae81a4a80f22f1b6ceb2475b2483e31592 (patch) | |
| tree | eddeeae749b9dd0ae9e14f643e0c4e0d5bf77f7e /generic/tclInt.h | |
| parent | b87d0095dc09d7d1fc1dc4b000f3ed0141aa8b6a (diff) | |
| download | tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.zip tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.tar.gz tcl-c8ff4cae81a4a80f22f1b6ceb2475b2483e31592.tar.bz2 | |
Use TclDuplicatePureObj() in stead of TclListObjCopy() where appropriate. Backported from 9.0
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e40c5bc..e2c0bde 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3126,6 +3126,8 @@ MODULE_SCOPE Tcl_Command TclCreateEnsembleInNs(Tcl_Interp *interp, Tcl_Namespace *ensembleNamespacePtr, int flags); MODULE_SCOPE void TclDeleteNamespaceVars(Namespace *nsPtr); MODULE_SCOPE void TclDeleteNamespaceChildren(Namespace *nsPtr); +MODULE_SCOPE Tcl_Obj *TclDuplicatePureObj(Tcl_Interp *interp, + Tcl_Obj * objPtr, const Tcl_ObjType *typPtr); MODULE_SCOPE int TclFindDictElement(Tcl_Interp *interp, const char *dict, Tcl_Size dictLength, const char **elementPtr, const char **nextPtr, @@ -3255,7 +3257,6 @@ MODULE_SCOPE Tcl_Obj * TclLindexFlat(Tcl_Interp *interp, Tcl_Obj *listPtr, /* 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[]); |