Skip to content
Snippets Groups Projects
Commit 41ac3a86 authored by wlott's avatar wlott
Browse files

Conditionalize current_flags_register for the mips only.

parent 7e2421a2
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/globals.c,v 1.5 1990/10/13 04:49:57 wlott Exp $ */
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/globals.c,v 1.6 1990/10/23 00:04:06 wlott Exp $ */
/* Variables everybody needs to look at or frob on. */
......@@ -13,12 +13,12 @@ int foreign_function_call_active;
#ifdef mips
unsigned long saved_global_pointer;
unsigned long current_flags_register;
#endif
lispobj *current_control_stack_pointer;
lispobj *current_control_frame_pointer;
lispobj *current_binding_stack_pointer;
unsigned long current_flags_register;
lispobj *read_only_space;
lispobj *static_space;
......@@ -39,6 +39,9 @@ globals_init()
#ifdef mips
/* Get the current value of GP. */
saved_global_pointer = current_global_pointer();
/* Set the Atomic flag */
current_flags_register = 1<<flag_Atomic;
#endif
/* No GC trigger yet */
......@@ -51,5 +54,4 @@ globals_init()
current_control_stack_pointer = control_stack;
current_control_frame_pointer = (lispobj *)0;
current_binding_stack_pointer = binding_stack;
current_flags_register = 1<<flag_Atomic;
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment