X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fglobals.c;h=3d0139abaf519d245d42876d082649e5bd91fd80;hb=5de74c72e5a9522c7fdd3dbb31a39641e9de8877;hp=9c1010e726102453809b901912fe608b315eb16f;hpb=d8e682fdfb7e8ba067e15aea0f3d1f8d37ca9eb1;p=sbcl.git diff --git a/src/runtime/globals.c b/src/runtime/globals.c index 9c1010e..3d0139a 100644 --- a/src/runtime/globals.c +++ b/src/runtime/globals.c @@ -32,7 +32,7 @@ lispobj *current_binding_stack_pointer; /* ALLOCATION_POINTER is x86 or RT. Anyone want to do an RT port? */ -#ifndef ALLOCATION_POINTER +# if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64) /* The Object Formerly Known As current_dynamic_space_free_pointer */ lispobj *dynamic_space_free_pointer; #endif @@ -60,7 +60,7 @@ void globals_init(void) * validate() and coreparse(). */ current_control_frame_pointer = (lispobj *)0; -#ifndef LISP_FEATURE_GENCGC +#ifndef LISP_FEATURE_GENCGC /* no GC trigger yet */ current_auto_gc_trigger = NULL; #endif @@ -69,5 +69,5 @@ void globals_init(void) foreign_function_call_active = 1; #if defined(LISP_FEATURE_SB_THREAD) pthread_key_create(&specials,0); -#endif +#endif }