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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/925241a9828267cef4a479676... You're receiving this email because of your account on gitlab.common-lisp.net.