diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-17 12:44:46 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-05-17 12:44:46 (GMT) |
| commit | 00dd4a5b561cb743509bd7cb25129988a00fac4f (patch) | |
| tree | 3317c4bb0a005cba8c0c8ea607fd3f120a2615e4 /generic/tclInt.h | |
| parent | ac555b905c136e91ee92a89d6b225b9a46851e8d (diff) | |
| download | tcl-00dd4a5b561cb743509bd7cb25129988a00fac4f.zip tcl-00dd4a5b561cb743509bd7cb25129988a00fac4f.tar.gz tcl-00dd4a5b561cb743509bd7cb25129988a00fac4f.tar.bz2 | |
Improve TclDuplicatePureObj(), remove unnecessary increment/decrement pairs, and add more error checking.
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 979284d..28ec508 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3117,7 +3117,8 @@ 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 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, |