diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 13:48:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 13:48:12 (GMT) |
commit | 733b7a43a45ee6be75ccd99172f66b35b69841c5 (patch) | |
tree | 2c38bde59af6c90ad19dbda96878de709d5859d0 /generic/tclOO.c | |
parent | bc10bf6d03a6c8685c64e36a6095e289e2b1ef33 (diff) | |
download | tcl-733b7a43a45ee6be75ccd99172f66b35b69841c5.zip tcl-733b7a43a45ee6be75ccd99172f66b35b69841c5.tar.gz tcl-733b7a43a45ee6be75ccd99172f66b35b69841c5.tar.bz2 |
Eliminate many usages of Tcl_NewObj (-> TclNewObj) and Tcl_NewIntObj (-> TclNewIntObj or Tcl_NewWideIntObj)
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r-- | generic/tclOO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 21018ac..b60ab1f 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -3035,7 +3035,7 @@ TclOOObjectName( if (oPtr->cachedNameObj) { return oPtr->cachedNameObj; } - namePtr = Tcl_NewObj(); + TclNewObj(namePtr); Tcl_GetCommandFullName(interp, oPtr->command, namePtr); Tcl_IncrRefCount(namePtr); oPtr->cachedNameObj = namePtr; |