mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 07:20:29 -07:00
Code Issues Projects Releases Packages Wiki Activity

[nucl] smaller stacks

Browse source
This commit is contained in:
Daniel Kochmański 2025-06-06 12:56:39 +02:00
parent 829bd4173c
commit c4bbfad258
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/nucl.c
View file

@ -1214,6 +1214,13 @@ void nucl_repl (void)
int main() {
cl_env_ptr the_env = ecl_core.first_env;
ecl_set_option(ECL_OPT_BIND_STACK_SIZE, 32);
ecl_set_option(ECL_OPT_BIND_STACK_SAFETY_AREA, 8);
ecl_set_option(ECL_OPT_FRAME_STACK_SIZE, 32);
ecl_set_option(ECL_OPT_FRAME_STACK_SAFETY_AREA, 8);
ecl_set_option(ECL_OPT_LISP_STACK_SIZE, 32);
ecl_set_option(ECL_OPT_LISP_STACK_SAFETY_AREA, 8);
ecl_boot();
ecl_add_module(ecl_module_process);
ecl_add_module(ecl_module_stacks);