diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-03-07 22:23:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-03-07 22:23:11 (GMT) |
| commit | 510b9e1bd84eeaee50e9153f4730d552eb8af83c (patch) | |
| tree | 9530bd9ba3ed58012f99ee81e59968a409052318 | |
| parent | 95663715b2beead67589bffa8d5d2ec13221c0c2 (diff) | |
| download | tcl-510b9e1bd84eeaee50e9153f4730d552eb8af83c.zip tcl-510b9e1bd84eeaee50e9153f4730d552eb8af83c.tar.gz tcl-510b9e1bd84eeaee50e9153f4730d552eb8af83c.tar.bz2 | |
Fix [Bug 3166410]: "out of stack space" on AIX
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | unix/tclUnixInit.c | 10 |
2 files changed, 14 insertions, 0 deletions
@@ -1,3 +1,7 @@ +2011-03-07 Jan Nijtmans <nijtmans@users.sf.net> + + * unix/tclUnixInit: + 2011-03-06 Don Porter <dgp@users.sourceforge.net> * generic/tclBasic.c: More replacements of Tcl_UtfBackslash() calls diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index a798ccb..5111746 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -1092,9 +1092,19 @@ TclpGetCStackParams( if (stackGrowsDown) { tsdPtr->stackBound = (int *) ((char *)tsdPtr->outerVarPtr - stackSize); + if (tsdPtr->stackBound > tsdPtr->outerVarPtr) { + /* Overflow, that should never happen, just set it to NULL. + * See [Bug #3166410] */ + tsdPtr->stackBound = NULL; + } } else { tsdPtr->stackBound = (int *) ((char *)tsdPtr->outerVarPtr + stackSize); + if (tsdPtr->stackBound < tsdPtr->outerVarPtr) { + /* Overflow, that should never happen, just set it to NULL. + * See [Bug #3166410] */ + tsdPtr->stackBound = NULL; + } } } |