X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsunos-os.c;h=89c0d71867729fd51a0962b4f3cdc7a4997c960c;hb=f2db6743b1fadeea9e72cb583d857851c87efcd4;hp=e2f68e17b46cfb54f1d671b039a09edc53b1d0bd;hpb=64eccd1724e5f1e638bfc574f7f376427ee3dcb1;p=sbcl.git diff --git a/src/runtime/sunos-os.c b/src/runtime/sunos-os.c index e2f68e1..89c0d71 100644 --- a/src/runtime/sunos-os.c +++ b/src/runtime/sunos-os.c @@ -28,7 +28,7 @@ #if defined LISP_FEATURE_SPARC #define OS_VM_DEFAULT_PAGESIZE 8192 -#elif defined LISP_FEATURE_X86 +#elif defined LISP_FEATURE_X86 || defined LISP_FEATURE_X86_64 #define OS_VM_DEFAULT_PAGESIZE 4096 #else #error "Don't know OS_VM_DEFAULT_PAGESIZE" @@ -197,9 +197,8 @@ boolean is_valid_lisp_addr(os_vm_address_t addr) #if defined LISP_FEATURE_GENCGC void -sigsegv_handler(int signal, siginfo_t *info, void* void_context) +sigsegv_handler(int signal, siginfo_t *info, os_context_t *context) { - os_context_t *context = arch_os_get_context(&void_context); void* fault_addr = (void*)info->si_addr; if (!gencgc_handle_wp_violation(fault_addr)) @@ -210,9 +209,8 @@ sigsegv_handler(int signal, siginfo_t *info, void* void_context) #else static void -sigsegv_handler(int signal, siginfo_t *info, void* void_context) +sigsegv_handler(int signal, siginfo_t *info, os_context_t *context) { - os_context_t *context = arch_os_get_context(&void_context); os_vm_address_t addr = arch_get_bad_addr(signal, info, context); if (!cheneygc_handle_wp_violation(context, addr)) {