[Git][cmucl/cmucl][master] 2 commits: Update from commit logs

[Raymond Toy]

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/925241a9828267cef4a4796765061fc2204dbddf...810c52ea14a628f22698aee6ecb8affe8a504dc0

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/925241a9828267cef4a4796765061fc2204dbddf...810c52ea14a628f22698aee6ecb8affe8a504dc0
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20181007/fea91118/attachment-0001.html>