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/tclIOGT.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/tclIOGT.c')
| -rw-r--r-- | generic/tclIOGT.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclIOGT.c b/generic/tclIOGT.c index 215c6c7..fb80041 100644 --- a/generic/tclIOGT.c +++ b/generic/tclIOGT.c @@ -379,8 +379,7 @@ ExecuteCallback( unsigned char *resBuf; Tcl_InterpState state = NULL; int res = TCL_OK; - Tcl_Obj *command = TclDuplicatePureObj( - interp, dataPtr->command, &tclListType); + Tcl_Obj *command = Tcl_DuplicateObj(dataPtr->command); if (!command) { return TCL_ERROR; } |