diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2001-08-28 14:42:52 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2001-08-28 14:42:52 +0000 |
| commit | c345611817d76ccc3bbd02db1f942774220739f9 (patch) | |
| tree | f716a5cdf5271c134d9c4726e0d0fb9936350cd1 /config/auto-aux | |
| parent | c144e729ba77af2a64fd701bb9d23c55c400d0db (diff) | |
| download | ocaml-c345611817d76ccc3bbd02db1f942774220739f9.tar.gz | |
Placer une limite sur la pile avant d'essayer de la faire deborder! (PR#495)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3676 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'config/auto-aux')
| -rw-r--r-- | config/auto-aux/stackov.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/config/auto-aux/stackov.c b/config/auto-aux/stackov.c index e3ffee3177..2aec6fb5e7 100644 --- a/config/auto-aux/stackov.c +++ b/config/auto-aux/stackov.c @@ -29,8 +29,6 @@ static void segv_handler(int signo, siginfo_t * info, void * context) char * fault_addr = (char *) info->si_addr; #endif struct rlimit limit; - struct sigaction act; - static char buffer[4096]; if (getrlimit(RLIMIT_STACK, &limit) == 0 && ((long) fault_addr & (sizeof(long) - 1)) == 0 && @@ -50,6 +48,8 @@ int main(int argc, char ** argv) { struct sigaltstack stk; struct sigaction act; + struct rlimit limit; + stk.ss_sp = sig_alt_stack; stk.ss_size = SIGSTKSZ; stk.ss_flags = 0; @@ -59,11 +59,13 @@ int main(int argc, char ** argv) #else act.sa_sigaction = segv_handler; act.sa_flags = SA_SIGINFO | SA_ONSTACK | SA_NODEFER; -#endif +#endif sigemptyset(&act.sa_mask); system_stack_top = (char *) &act; + limit.rlim_max = limit.rlim_cur = 0x20000; if (sigaltstack(&stk, NULL) != 0) { perror("sigaltstack"); return 2; } if (sigaction(SIGSEGV, &act, NULL) != 0) { perror("sigaction"); return 2; } + if (setrlimit(RLIMIT_STACK, &limit) != 0) { perror("setrlimit"); return 2; } f(NULL); return 2; } |