diff options
| author | griffin <briang42@easystreet.net> | 2023-06-06 20:26:59 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-06 20:26:59 (GMT) |
| commit | dde4e1b094a9713b365ea941be0fb9f5073ea5bf (patch) | |
| tree | 2190835df032b7576df458ef64d6b09e82daf4ae /generic/tclCmdIL.c | |
| parent | ac52dca2ba35a465d8a654ae11a81d088e6f7dd6 (diff) | |
| parent | 5140d2419c9c9705ba10631ce5367690f670dabc (diff) | |
| download | tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.zip tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.tar.gz tcl-dde4e1b094a9713b365ea941be0fb9f5073ea5bf.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index a29af82..b2f4502 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -711,7 +711,7 @@ InfoCommandsCmd( if (entryPtr != NULL) { if (specificNsInPattern) { cmd = (Tcl_Command)Tcl_GetHashValue(entryPtr); - elemObjPtr = Tcl_NewObj(); + TclNewObj(elemObjPtr); Tcl_GetCommandFullName(interp, cmd, elemObjPtr); } else { cmdName = (const char *)Tcl_GetHashKey(&nsPtr->cmdTable, entryPtr); @@ -762,7 +762,7 @@ InfoCommandsCmd( || Tcl_StringMatch(cmdName, simplePattern)) { if (specificNsInPattern) { cmd = (Tcl_Command)Tcl_GetHashValue(entryPtr); - elemObjPtr = Tcl_NewObj(); + TclNewObj(elemObjPtr); Tcl_GetCommandFullName(interp, cmd, elemObjPtr); } else { elemObjPtr = Tcl_NewStringObj(cmdName, -1); @@ -989,7 +989,8 @@ InfoDefaultCmd( } Tcl_SetObjResult(interp, Tcl_NewWideIntObj(1)); } else { - Tcl_Obj *nullObjPtr = Tcl_NewObj(); + Tcl_Obj *nullObjPtr; + TclNewObj(nullObjPtr); valueObjPtr = Tcl_ObjSetVar2(interp, objv[3], NULL, nullObjPtr, TCL_LEAVE_ERR_MSG); @@ -1905,7 +1906,7 @@ InfoProcsCmd( } else { simpleProcOK: if (specificNsInPattern) { - elemObjPtr = Tcl_NewObj(); + TclNewObj(elemObjPtr); Tcl_GetCommandFullName(interp, (Tcl_Command) cmdPtr, elemObjPtr); } else { @@ -1933,7 +1934,7 @@ InfoProcsCmd( } else { procOK: if (specificNsInPattern) { - elemObjPtr = Tcl_NewObj(); + TclNewObj(elemObjPtr); Tcl_GetCommandFullName(interp, (Tcl_Command) cmdPtr, elemObjPtr); } else { @@ -2255,7 +2256,7 @@ Tcl_JoinObjCmd( } else { Tcl_Size i; - resObjPtr = Tcl_NewObj(); + TclNewObj(resObjPtr); for (i = 0; i < listLen; i++) { if (i > 0) { |