diff options
Diffstat (limited to 'tests/012/stack.tl')
| -rw-r--r-- | tests/012/stack.tl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/012/stack.tl b/tests/012/stack.tl index 62df252b..b3cea078 100644 --- a/tests/012/stack.tl +++ b/tests/012/stack.tl @@ -10,10 +10,15 @@ (test (so (recur)) :so) -(if stack-limited +(if (fboundp 'setrlimit) (test (let ((pid (fork))) (cond - ((zerop pid) (set-stack-limit 0) (recur)) + ((zerop pid) + (set-stack-limit 0) + (let ((rlim (getrlimit rlimit-stack))) + (set rlim.cur 32768) + (setrlimit rlimit-stack rlim)) + (recur)) (t (let ((status (wait pid))) (w-ifsignaled status))))) t)) |