- /* 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 */
- dynamic_0_space = (lispobj *) DYNAMIC_0_SPACE_START;
- ensure_space(dynamic_0_space, DYNAMIC_SPACE_SIZE);
-
- current_dynamic_space = dynamic_0_space;
-
- /* Dynamic-1 Space */
- dynamic_1_space = (lispobj *) DYNAMIC_1_SPACE_START;
-#ifndef GENCGC
- ensure_space(dynamic_1_space, DYNAMIC_SPACE_SIZE);
-#endif
-
- /* 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 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);