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

fix rounding error in ecl_stack_set_size

Browse source 
The size of the arguments stack would grow quadratically, instead
    of being rounded to the nearest bigger page size.
This commit is contained in:
Marius Gerbershagen 2018-03-23 21:57:45 +01:00
parent 7bfa7e37b6
commit 9fe9334538
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/interpreter.d
View file

@ -30,7 +30,7 @@ ecl_stack_set_size(cl_env_ptr env, cl_index tentative_new_size)
cl_index new_size = tentative_new_size + 2*safety_area;
/* Round to page size */
new_size = (new_size + (LISP_PAGESIZE-1))/LISP_PAGESIZE * new_size;
new_size = ((new_size + LISP_PAGESIZE - 1) / LISP_PAGESIZE) * LISP_PAGESIZE;
if (ecl_unlikely(top > new_size)) {
FEerror("Internal error: cannot shrink stack below stack top.",0);