diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-11-08 02:25:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-11-08 02:25:40 (GMT) |
| commit | 2ba5fab30eefc4f31112e67aeba2dd49a178ff4c (patch) | |
| tree | 2d26257a697f9cf2b4bf34e3d7f9877b73285431 /generic/tclExecute.c | |
| parent | d0665d7a121733fde114a357da8ca7369a14aa39 (diff) | |
| download | tcl-2ba5fab30eefc4f31112e67aeba2dd49a178ff4c.zip tcl-2ba5fab30eefc4f31112e67aeba2dd49a178ff4c.tar.gz tcl-2ba5fab30eefc4f31112e67aeba2dd49a178ff4c.tar.bz2 | |
Modify TclCreateProc to handle arbitrary argument names, not just ASCII.
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 f4c71ec..54c73fd 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1333,12 +1333,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); } |