diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-11-08 03:23:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-11-08 03:23:35 (GMT) |
| commit | dee7abd87b35462e5ce0b8a90d9e19c23033f55b (patch) | |
| tree | fc43eea1d4201ba7b52fb5e2e6d47c7eba6226a1 /generic/tclExecute.c | |
| parent | 7417e2c917cb95b23924d92c441410571ed17a52 (diff) | |
| parent | e82d7fb7538c87bbe0c63263e2032fe02a5a100b (diff) | |
| download | tcl-dee7abd87b35462e5ce0b8a90d9e19c23033f55b.zip tcl-dee7abd87b35462e5ce0b8a90d9e19c23033f55b.tar.gz tcl-dee7abd87b35462e5ce0b8a90d9e19c23033f55b.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 e881c8c..f55cfb9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1276,12 +1276,12 @@ TclStackAlloc( int numBytes) { Interp *iPtr = (Interp *) interp; - int numWords = (numBytes + (sizeof(Tcl_Obj *) - 1))/sizeof(Tcl_Obj *); + int numWords; if (iPtr == NULL || iPtr->execEnvPtr == NULL) { return (void *) ckalloc(numBytes); } - + numWords = (numBytes + (sizeof(Tcl_Obj *) - 1))/sizeof(Tcl_Obj *); return (void *) StackAllocWords(interp, numWords); } |