Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Correct typo detected by valgrind. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8817dafe3430d5629664699e4050f391 |
User & Date: | dgp 2013-06-26 17:26:16 |
Context
2013-06-26
| ||
20:13 | Stop buffer overrun into undefined values detected by valgrind. check-in: b043bd2769 user: dgp tags: trunk | |
17:26 | Correct typo detected by valgrind. check-in: 8817dafe34 user: dgp tags: trunk | |
14:24 | typos. On Cygwin, Tcl_SetPanicProc(NULL) should set back the panic proc to its default, which is no... check-in: 38e74dd2c5 user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclExecute.c.
︙ | ︙ | |||
2762 2763 2764 2765 2766 2767 2768 | * Make sure there is enough room in the stack to expand this list * *and* process the rest of the command (at least up to the next * argument expansion or command end). The operand is the current * stack depth, as seen by the compiler. */ auxObjList->length += objc - 1; | | | 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 | * Make sure there is enough room in the stack to expand this list * *and* process the rest of the command (at least up to the next * argument expansion or command end). The operand is the current * stack depth, as seen by the compiler. */ auxObjList->length += objc - 1; if ((objc > 1) && (auxObjList->length > 0)) { length = auxObjList->length /* Total expansion room we need */ + codePtr->maxStackDepth /* Beyond the original max */ - CURR_DEPTH; /* Relative to where we are */ DECACHE_STACK_INFO(); moved = GrowEvaluationStack(iPtr->execEnvPtr, length, 1) - (Tcl_Obj **) TD; if (moved) { |
︙ | ︙ |