diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 14:59:43 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 14:59:43 (GMT) |
commit | 3fc1392c92078e35e6a35efc90ce598c1c2fc192 (patch) | |
tree | 5b6f3de70fca08f3638540445bd5f25b522f87b6 /generic/tclMain.c | |
parent | 81e7623b785648f4b7c7ffdd8f1647c876bd4c45 (diff) | |
download | tcl-3fc1392c92078e35e6a35efc90ce598c1c2fc192.zip tcl-3fc1392c92078e35e6a35efc90ce598c1c2fc192.tar.gz tcl-3fc1392c92078e35e6a35efc90ce598c1c2fc192.tar.bz2 |
More usage of TclNewObj() in stead of Tcl_NewObj() and TclNewIntObj() in stead of Tcl_NewIntObj()
Diffstat (limited to 'generic/tclMain.c')
-rw-r--r-- | generic/tclMain.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index cef4543..f0b2682 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -306,7 +306,7 @@ Tcl_MainEx( is.interp = interp; is.prompt = PROMPT_START; - is.commandPtr = Tcl_NewObj(); + TclNewObj(is.commandPtr); /* * If the application has not already set a startup script, parse the @@ -521,7 +521,7 @@ Tcl_MainEx( TCL_EVAL_GLOBAL); is.input = Tcl_GetStdChannel(TCL_STDIN); Tcl_DecrRefCount(is.commandPtr); - is.commandPtr = Tcl_NewObj(); + TclNewObj(is.commandPtr); Tcl_IncrRefCount(is.commandPtr); if (code != TCL_OK) { chan = Tcl_GetStdChannel(TCL_STDERR); @@ -805,7 +805,8 @@ StdinProc( code = Tcl_RecordAndEvalObj(interp, commandPtr, TCL_EVAL_GLOBAL); isPtr->input = chan = Tcl_GetStdChannel(TCL_STDIN); Tcl_DecrRefCount(commandPtr); - isPtr->commandPtr = commandPtr = Tcl_NewObj(); + TclNewObj(commandPtr); + isPtr->commandPtr = commandPtr; Tcl_IncrRefCount(commandPtr); if (chan != NULL) { Tcl_CreateChannelHandler(chan, TCL_READABLE, StdinProc, isPtr); |