diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-07 09:59:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-07 09:59:56 (GMT) |
| commit | 816ab7a3aa86fad4029569275897b1d8feb0f89d (patch) | |
| tree | e396476dc8e24496d49e52180c11338f853ad4ef /tests | |
| parent | 0498b26260e48f53a79c30db281432e57c78b966 (diff) | |
| download | tcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.zip tcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.tar.gz tcl-816ab7a3aa86fad4029569275897b1d8feb0f89d.tar.bz2 | |
Don't call "ulimit" on cygwin: On Cygwin the stack size cannot be modified, and the reported stacksize is much lower than the real one.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/stack.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/stack.test b/tests/stack.test index e029bbd..44a960b 100644 --- a/tests/stack.test +++ b/tests/stack.test @@ -21,7 +21,8 @@ if {[lsearch [namespace children] ::tcltest] == -1} { # This doesn't catch all cases, for example threads of lower stacksize # can still squeak through. A core check is really needed. -- JH -if {[string equal $::tcl_platform(platform) "unix"]} { +if {[string equal $::tcl_platform(platform) "unix"] + && ![string equal $::tcl_platform(os) "Windows NT"]} { set stackSize [exec /bin/sh -c "ulimit -s"] if {[string is integer $stackSize] && ($stackSize < 2400)} { puts stderr "WARNING: the default application stacksize of $stackSize\ |