mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Removed the code for alternative stacks

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-08 20:29:41 +02:00
parent 2425a9ebb9
commit 1472cc91ef
2 changed files with 0 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/c/stacks.d
View file

@ -668,22 +668,4 @@ init_stacks(cl_env_ptr env)
ihs_org.function = Cnil;
ihs_org.lex_env = Cnil;
ihs_org.index = 0;
#if 0 /* defined(HAVE_SIGPROCMASK) && defined(SA_SIGINFO) && defined(SA_ONSTACK) */
if (ecl_option_values[ECL_OPT_SIGALTSTACK_SIZE]) {
stack_t new_stack;
cl_index size = ecl_option_values[ECL_OPT_SIGALTSTACK_SIZE];
if (size < SIGSTKSZ) {
size = SIGSTKSZ + (sizeof(double)*16) +
(sizeof(cl_object)*4);
}
env->altstack_size = size;
env->altstack = ecl_alloc_atomic(size);
memset(&new_stack, 0, sizeof(new_stack));
new_stack.ss_size = env->altstack_size;
new_stack.ss_sp = env->altstack;
new_stack.ss_flags = 0;
sigaltstack(&new_stack, NULL);
}
#endif
}

5
src/c/unixint.d
View file

@ -215,11 +215,6 @@ mysignal(int code, void (*handler)(int, siginfo_t *, void*))
#ifdef SA_SIGINFO
action.sa_sigaction = handler;
action.sa_flags = SA_SIGINFO;
# if 0 && defined(SA_ONSTACK)
if (code == SIGSEGV) {
action.sa_flags |= SA_ONSTACK;
}
# endif
#else
action.sa_handler = handler;
action.sa_flags = 0;