diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-11-08 00:39:17 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2017-11-08 00:39:17 (GMT) |
| commit | a982dd11fa97fd5c0f45076a0662f40a80f43503 (patch) | |
| tree | 58a0f23afd8fccef57a3959bac90e6391b4fff87 /generic/tclExecute.c | |
| parent | 2c1224dce7ce2f827991e0abf968d2ccdb31f32b (diff) | |
| download | tcl-a982dd11fa97fd5c0f45076a0662f40a80f43503.zip tcl-a982dd11fa97fd5c0f45076a0662f40a80f43503.tar.gz tcl-a982dd11fa97fd5c0f45076a0662f40a80f43503.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 d43ddfd..3eba833 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); } |