X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fglobals.h;h=fc8ad968452cdda1b696c212d88277948b1361e0;hb=eac461c1f1ca91cfe282c779291d582ed6b336cb;hp=7d424a8feaac8312da90c6d8402ba8d162c53315;hpb=1d329efe312141d5385af1d2e98f72f938b5f7b6;p=sbcl.git diff --git a/src/runtime/globals.h b/src/runtime/globals.h index 7d424a8..fc8ad96 100644 --- a/src/runtime/globals.h +++ b/src/runtime/globals.h @@ -16,6 +16,7 @@ # include # include # include "runtime.h" +# include "runtime-options.h" #endif #include "sbcl.h" @@ -31,8 +32,8 @@ extern int foreign_function_call_active; foreign_function_call_active #endif -extern size_t dynamic_space_size; -extern size_t thread_control_stack_size; +extern os_vm_size_t dynamic_space_size; +extern os_vm_size_t thread_control_stack_size; extern struct runtime_options *runtime_options; @@ -47,8 +48,12 @@ extern char **ENVIRON; extern pthread_key_t specials; #endif +#if !defined(LISP_FEATURE_SB_THREAD) extern lispobj *current_control_stack_pointer; +#endif +#if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64) || !defined(LISP_FEATURE_SB_THREAD) extern lispobj *current_control_frame_pointer; +#endif #if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64) && !defined(LISP_FEATURE_SB_THREAD) extern lispobj *current_binding_stack_pointer; #endif @@ -72,6 +77,11 @@ extern lispobj *current_dynamic_space; extern void globals_init(void); +#ifdef LISP_FEATURE_SB_SAFEPOINT +# define GC_SAFEPOINT_PAGE_ADDR ((lispobj) gc_safepoint_page) +extern char gc_safepoint_page[]; +#endif + #else /* LANGUAGE_ASSEMBLY */ # ifdef LISP_FEATURE_MIPS @@ -118,7 +128,9 @@ extern void globals_init(void); EXTERN(foreign_function_call_active, 4) #endif +#if !defined(LISP_FEATURE_SB_THREAD) && !defined(LISP_FEATURE_C_STACK_IS_CONTROL_STACK) EXTERN(current_control_stack_pointer, POINTERSIZE) +#endif EXTERN(current_control_frame_pointer, POINTERSIZE) # if !defined(LISP_FEATURE_X86) && !defined(LISP_FEATURE_X86_64) EXTERN(current_binding_stack_pointer, POINTERSIZE)