Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
4 changed files:
Changes:
| ... | ... | @@ -37,6 +37,7 @@ public domain. |
| 37 | 37 |
* ~~#58~~ Bogus type error in comparison of complex number with `THE` form
|
| 38 | 38 |
* ~~#61~~ Segfault when compiling call to `ARRAY-HAS-FILL-POINTER-P` on bit vector constant
|
| 39 | 39 |
* ~~#62~~ Segfault when compiling `ARRAY-DISPLACEMENT` on a string constant
|
| 40 |
+ * ~~#69~~ GC assertions compiled in and allow user to enable them.
|
|
| 40 | 41 |
* Other changes:
|
| 41 | 42 |
* Improvements to the PCL implementation of CLOS:
|
| 42 | 43 |
* Changes to building procedure:
|
| ... | ... | @@ -27,10 +27,7 @@ lispobj *dynamic_0_space; |
| 27 | 27 |
lispobj *dynamic_1_space;
|
| 28 | 28 |
unsigned dynamic_space_size;
|
| 29 | 29 |
lispobj *control_stack;
|
| 30 |
- |
|
| 31 |
-#if (defined(i386) || defined(__x86_64))
|
|
| 32 | 30 |
lispobj *control_stack_end;
|
| 33 |
-#endif
|
|
| 34 | 31 |
lispobj *binding_stack;
|
| 35 | 32 |
|
| 36 | 33 |
lispobj *current_dynamic_space;
|
| ... | ... | @@ -37,9 +37,7 @@ extern unsigned long binding_stack_size; |
| 37 | 37 |
extern unsigned long static_space_size;
|
| 38 | 38 |
extern unsigned long control_stack_size;
|
| 39 | 39 |
|
| 40 |
-#if (defined(i386) || defined(__x86_64))
|
|
| 41 | 40 |
extern lispobj *control_stack_end;
|
| 42 |
-#endif
|
|
| 43 | 41 |
extern lispobj *current_dynamic_space;
|
| 44 | 42 |
|
| 45 | 43 |
#if !defined(ibmrt) && !defined(i386)
|
| ... | ... | @@ -118,17 +118,12 @@ validate_stacks() |
| 118 | 118 |
#ifdef CONTROL_STACK_START
|
| 119 | 119 |
/* Map the control stack at a fixed location */
|
| 120 | 120 |
control_stack = (lispobj *) CONTROL_STACK_START;
|
| 121 |
-#if (defined(i386) || defined(__x86_64))
|
|
| 122 | 121 |
control_stack_end = (lispobj *) (CONTROL_STACK_START + control_stack_size);
|
| 123 |
-#endif
|
|
| 124 | 122 |
ensure_space(control_stack, control_stack_size);
|
| 125 | 123 |
#else
|
| 126 | 124 |
/* Map the conrol stack wherever we have space */
|
| 127 | 125 |
control_stack = (lispobj*) os_validate(NULL, control_stack_size);
|
| 128 |
- |
|
| 129 |
-#if (defined(i386) || defined(__x86_64))
|
|
| 130 | 126 |
control_stack_end = (void*)control_stack + control_stack_size;
|
| 131 |
-#endif
|
|
| 132 | 127 |
#endif
|
| 133 | 128 |
|
| 134 | 129 |
/* Binding Stack */
|