diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-13 16:01:05 (GMT) |
| commit | 40ee63b6ff6901dea05f4cef62d51bfa188630ed (patch) | |
| tree | 51ec8a3c9ae020781cd27b8c0a4f94ddbb6fc942 /generic/tclExecute.c | |
| parent | 38670f6730f5eb4274e4abe14a00c8ccaf3f176a (diff) | |
| parent | 6f905e1f0fa598055c516aa33529d41d2fadbe4a (diff) | |
| download | tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.zip tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.gz tcl-40ee63b6ff6901dea05f4cef62d51bfa188630ed.tar.bz2 | |
merge trunk
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 ebcf37d..968ed0e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -912,9 +912,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; |