Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
-
8355e971
by Raymond Toy at 2017-01-03T19:58:04-08:00
1 changed file:
Changes:
| ... | ... | @@ -130,11 +130,14 @@ validate_stacks() |
| 130 | 130 |
#else
|
| 131 | 131 |
/* Map the conrol stack wherever we have space */
|
| 132 | 132 |
control_stack = (lispobj*) os_validate(NULL, control_stack_size);
|
| 133 |
- |
|
| 134 | 133 |
#if (defined(i386) || defined(__x86_64))
|
| 135 | 134 |
control_stack_end = (void*)control_stack + control_stack_size;
|
| 136 | 135 |
#endif
|
| 137 | 136 |
#endif
|
| 137 |
+#ifdef PRINTNOISE
|
|
| 138 |
+ fprintf(stderr, "control_stack at 0x%o12lx size %ld\n",
|
|
| 139 |
+ (unsigned long) control_stack, (unsigned long) control_stack_size);
|
|
| 140 |
+#endif
|
|
| 138 | 141 |
|
| 139 | 142 |
/* Binding Stack */
|
| 140 | 143 |
#ifdef BINDING_STACK_START
|
| ... | ... | @@ -144,6 +147,10 @@ validate_stacks() |
| 144 | 147 |
/* Map the binding stack wherever we have space */
|
| 145 | 148 |
binding_stack = (lispobj*) os_validate(NULL, binding_stack_size);
|
| 146 | 149 |
#endif
|
| 150 |
+#ifdef PRINTNOISE
|
|
| 151 |
+ fprintf(stderr, "binding_stack at 0x%o12lx size %ld\n",
|
|
| 152 |
+ (unsigned long) binding_stack, (unsigned long) binding_stack_size);
|
|
| 153 |
+#endif
|
|
| 147 | 154 |
#ifdef sparc
|
| 148 | 155 |
make_stack_holes();
|
| 149 | 156 |
#endif
|