diff --git a/ldb/globals.c b/ldb/globals.c index 06f24be50aa83bc5cef670b32f3520f2d68e47c4..af7af54389dfd495e2185261a2d88ee9c3001c35 100644 --- a/ldb/globals.c +++ b/ldb/globals.c @@ -1,4 +1,4 @@ -/* $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; }