-
- /* Read-Only Space */
- read_only_space = (lispobj *) READ_ONLY_SPACE_START;
- ensure_space(read_only_space, READ_ONLY_SPACE_SIZE);
-
- /* Static Space */
- static_space = (lispobj *) STATIC_SPACE_START;
- ensure_space(static_space, STATIC_SPACE_SIZE);
-
- /* Dynamic-0 Space */
- ensure_space(DYNAMIC_SPACE_START, DYNAMIC_SPACE_SIZE);
-
- /* Control Stack */
- control_stack = (lispobj *) CONTROL_STACK_START;
-#ifdef __i386__
- control_stack_end = (lispobj *) (CONTROL_STACK_START
- + CONTROL_STACK_SIZE);
+
+ ensure_space( (lispobj *)READ_ONLY_SPACE_START, READ_ONLY_SPACE_SIZE);
+ ensure_space( (lispobj *)STATIC_SPACE_START , STATIC_SPACE_SIZE);
+#ifdef LISP_FEATURE_GENCGC
+ ensure_space( (lispobj *)DYNAMIC_SPACE_START , DYNAMIC_SPACE_SIZE);
+#else
+ ensure_space( (lispobj *)DYNAMIC_0_SPACE_START , DYNAMIC_SPACE_SIZE);
+ ensure_space( (lispobj *)DYNAMIC_1_SPACE_START , DYNAMIC_SPACE_SIZE);
+#endif
+ ensure_space( (lispobj *)CONTROL_STACK_START , CONTROL_STACK_SIZE);
+ ensure_space( (lispobj *)BINDING_STACK_START , BINDING_STACK_SIZE);
+#ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
+ ensure_space( (lispobj *) ALTERNATE_SIGNAL_STACK_START, SIGSTKSZ);