diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-13 08:38:18 (GMT) |
| commit | 084c8b2259399cfa7c22283d77abb1820207afad (patch) | |
| tree | 88e761607718492f5525bd50f6afbb0fa84da34d /generic/tclExecute.c | |
| parent | 75196e7136a3ae04c019ee0dfa18309ff741cf86 (diff) | |
| download | tcl-084c8b2259399cfa7c22283d77abb1820207afad.zip tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.gz tcl-084c8b2259399cfa7c22283d77abb1820207afad.tar.bz2 | |
Eliminate internal use of TclNewBooleanObj()/TclSetBooleanObj()/TclSetIntObj(). Replace Tcl_DbNewBooleanObj() with trivial macro.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c244b08..e3fa730 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -910,9 +910,9 @@ TclCreateExecEnv( + (size_t) (size-1) * sizeof(Tcl_Obj *)); eePtr->execStackPtr = esPtr; - TclNewBooleanObj(eePtr->constants[0], 0); + TclNewLongObj(eePtr->constants[0], 0); Tcl_IncrRefCount(eePtr->constants[0]); - TclNewBooleanObj(eePtr->constants[1], 1); + TclNewLongObj(eePtr->constants[1], 1); Tcl_IncrRefCount(eePtr->constants[1]); eePtr->interp = interp; eePtr->callbackPtr = NULL; |