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

We had introduced redundant lines: si_{set,get}_limit already had support for changing the heap size.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-05-20 20:11:52 +02:00
parent 42fdda5e1c
commit a692c9c50f
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/stacks.d
View file

@ -486,10 +486,6 @@ si_set_limit(cl_object type, cl_object size)
cs_set_size(env, the_size);
} else if (type == @'ext::lisp-stack') {
ecl_stack_set_size(env, the_size);
#ifdef GBC_BOEHM
} else if (type == @'ext::heap-size') {
si_heap_size(1, size);
#endif
} else {
_ecl_set_max_heap_size(the_size);
}
@ -509,10 +505,6 @@ si_get_limit(cl_object type)
output = env->cs_size;
} else if (type == @'ext::lisp-stack') {
output = env->stack_size;
#ifdef GBC_BOEHM
} else if (type == @'ext::heap-size') {
output = si_heap_size(0);
#endif
} else {
output = cl_core.max_heap_size;
}