diff options
| author | griffin <briang42@easystreet.net> | 2023-08-10 17:48:37 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-08-10 17:48:37 (GMT) |
| commit | 45a4664dc23302120e0f70efc82413b2c6a15a20 (patch) | |
| tree | 113b7e7ffd9cba03d77f0b662f35c97b951cc293 /generic/tclEnsemble.c | |
| parent | 5b6a975221d0976507e6af812c7755143a269ab6 (diff) | |
| parent | 946847b4b9f3b9b7aa252d830921d41033d5175b (diff) | |
| download | tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.zip tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.tar.gz tcl-45a4664dc23302120e0f70efc82413b2c6a15a20.tar.bz2 | |
Revert DupolicatePureObj back to DuplicateObj.
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index deabfe2..b6c0931 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -312,8 +312,7 @@ TclNamespaceEnsembleCmd( Tcl_AppendObjToObj(newCmd, listv[0]); Tcl_ListObjReplace(NULL, newList, 0, 1, 1, &newCmd); if (patchedDict == NULL) { - patchedDict = TclDuplicatePureObj( - interp, objv[1], &tclDictType); + patchedDict = Tcl_DuplicateObj(objv[1]); if (!patchedDict) { if (allocatedMapFlag) { Tcl_DecrRefCount(mapObj); @@ -606,8 +605,7 @@ TclNamespaceEnsembleCmd( } cmd = TclGetString(listv[0]); if (!(cmd[0] == ':' && cmd[1] == ':')) { - Tcl_Obj *newList = TclDuplicatePureObj( - interp, listObj, &tclListType); + Tcl_Obj *newList = Tcl_DuplicateObj(listObj); if (!newList) { if (patchedDict) { Tcl_DecrRefCount(patchedDict); @@ -623,8 +621,7 @@ TclNamespaceEnsembleCmd( Tcl_ListObjReplace(NULL, newList, 0, 1, 1, &newCmd); if (patchedDict == NULL) { - patchedDict = TclDuplicatePureObj( - interp, objv[1], &tclListType); + patchedDict = Tcl_DuplicateObj(objv[1]); if (!patchedDict) { goto freeMapAndError; } @@ -1925,8 +1922,7 @@ NsEnsembleImplementationCmdNR( TclListObjLengthM(NULL, prefixObj, &prefixObjc); if (objc == 2) { - copyPtr = TclDuplicatePureObj( - interp, prefixObj, &tclListType); + copyPtr = Tcl_DuplicateObj(prefixObj); if (!copyPtr) { return TCL_ERROR; } @@ -2329,8 +2325,7 @@ EnsembleUnknownCallback( * Create the "unknown" command callback to determine what to do. */ - unknownCmd = TclDuplicatePureObj( - interp, ensemblePtr->unknownHandler, &tclListType); + unknownCmd = Tcl_DuplicateObj(ensemblePtr->unknownHandler); if (!unknownCmd) { return TCL_ERROR; } |