Raymond Toy pushed to branch master at cmucl / cmucl

Commits: 08a948e1 by Raymond Toy at 2018-09-22T20:02:05Z Update from commit logs

- - - - - 810c52ea by Raymond Toy at 2018-10-07T21:10:41Z Define control_stack_end for all platforms

- - - - -

4 changed files:

- src/general-info/release-21d.md - src/lisp/globals.c - src/lisp/globals.h - src/lisp/validate.c

Changes:

===================================== src/general-info/release-21d.md ===================================== @@ -37,6 +37,7 @@ public domain. * ~~#58~~ Bogus type error in comparison of complex number with `THE` form * ~~#61~~ Segfault when compiling call to `ARRAY-HAS-FILL-POINTER-P` on bit vector constant * ~~#62~~ Segfault when compiling `ARRAY-DISPLACEMENT` on a string constant + * ~~#69~~ GC assertions compiled in and allow user to enable them. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure:

===================================== src/lisp/globals.c ===================================== @@ -27,10 +27,7 @@ lispobj *dynamic_0_space; lispobj *dynamic_1_space; unsigned dynamic_space_size; lispobj *control_stack; - -#if (defined(i386) || defined(__x86_64)) lispobj *control_stack_end; -#endif lispobj *binding_stack;

lispobj *current_dynamic_space;

===================================== src/lisp/globals.h ===================================== @@ -37,9 +37,7 @@ extern unsigned long binding_stack_size; extern unsigned long static_space_size; extern unsigned long control_stack_size;

-#if (defined(i386) || defined(__x86_64)) extern lispobj *control_stack_end; -#endif extern lispobj *current_dynamic_space;

#if !defined(ibmrt) && !defined(i386)

===================================== src/lisp/validate.c ===================================== @@ -118,17 +118,12 @@ validate_stacks() #ifdef CONTROL_STACK_START /* Map the control stack at a fixed location */ control_stack = (lispobj *) CONTROL_STACK_START; -#if (defined(i386) || defined(__x86_64)) control_stack_end = (lispobj *) (CONTROL_STACK_START + control_stack_size); -#endif ensure_space(control_stack, control_stack_size); #else /* Map the conrol stack wherever we have space */ control_stack = (lispobj*) os_validate(NULL, control_stack_size); - -#if (defined(i386) || defined(__x86_64)) control_stack_end = (void*)control_stack + control_stack_size; -#endif #endif

/* Binding Stack */

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/925241a9828267cef4a479676...