diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 16:44:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-17 16:44:44 (GMT) |
| commit | 01a48e2369782044a30d922c5f8ed52262ef4fcd (patch) | |
| tree | cded44f524910001e25a40e44637c146b16a5302 /generic/tclCompile.c | |
| parent | e5a2ebd71b2aa2b31ca5128eb47ae0a7fdd20bd5 (diff) | |
| download | tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.zip tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.tar.gz tcl-01a48e2369782044a30d922c5f8ed52262ef4fcd.tar.bz2 | |
Tcl_NewObj() -> TclNewObj()
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 4a50089..9a59b71 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1710,7 +1710,7 @@ TclWordKnownAtCompileTime( } tokenPtr++; if (valuePtr != NULL) { - tempPtr = Tcl_NewObj(); + TclNewObj(tempPtr); Tcl_IncrRefCount(tempPtr); } while (numComponents--) { @@ -1999,7 +1999,7 @@ CompileCommandTokens( Interp *iPtr = (Interp *) interp; Tcl_Token *tokenPtr = parsePtr->tokenPtr; ExtCmdLoc *eclPtr = envPtr->extCmdMapPtr; - Tcl_Obj *cmdObj = Tcl_NewObj(); + Tcl_Obj *cmdObj; Command *cmdPtr = NULL; int code = TCL_ERROR; int cmdKnown, expand = -1; @@ -2010,6 +2010,7 @@ CompileCommandTokens( int startCodeOffset = envPtr->codeNext - envPtr->codeStart; int depth = TclGetStackDepth(envPtr); + TclNewObj(cmdObj); assert (parsePtr->numWords > 0); /* Pre-Compile */ |