X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsunos-os.c;h=a6ab92fb4a3c05c40496f67b268efda1914844e7;hb=98f3f617894ce24a40764aa98606ce68c5482cf0;hp=4ed611d4c4c44a6429d168a73dfdaaa9dc515015;hpb=409c08485fd358c78107d91f9e3aec4d17b3fd0d;p=sbcl.git diff --git a/src/runtime/sunos-os.c b/src/runtime/sunos-os.c index 4ed611d..a6ab92f 100644 --- a/src/runtime/sunos-os.c +++ b/src/runtime/sunos-os.c @@ -50,10 +50,10 @@ void os_init(void) lose("sunos major version=%d (which isn't 5!)", major_version); } minor_version = atoi(name.release+2); - if (minor_version == 8) { + if ((minor_version == 8) || (minor_version == 9)) { KLUDGE_MAYBE_MAP_ANON = 0x100; - } else if (minor_version > 8) { - FSHOW((stderr, "os_init: Solaris version greater than 8?\nUnknown MAP_ANON behaviour.\n")); + } else if (minor_version > 9) { + FSHOW((stderr, "os_init: Solaris version greater than 9?\nUnknown MAP_ANON behaviour.\n")); lose("Unknown mmap() interaction with MAP_ANON"); } else { /* minor_version < 8 */ kludge_mmap_fd = open("/dev/zero",O_RDONLY); @@ -160,11 +160,6 @@ boolean is_valid_lisp_addr(os_vm_address_t addr) -#if defined GENCGC - -#error "GENCGC is not yet supported (presumably on x86 solaris?)" - -#else static void sigsegv_handler(int signal, siginfo_t *info, void* void_context) @@ -173,17 +168,15 @@ sigsegv_handler(int signal, siginfo_t *info, void* void_context) os_vm_address_t addr; addr = arch_get_bad_addr(signal, info, context); - /* There's some complicated recovery code in linux-os.c here - that I'm currently too confused to understand. FIXME. */ if(!interrupt_maybe_gc(signal, info, context)) { - interrupt_handle_now(signal, info, context); + if(!handle_control_stack_guard_triggered(context,addr)) + interrupt_handle_now(signal, info, context); } } -#endif - void os_install_interrupt_handlers() { - undoably_install_low_level_interrupt_handler(SIGSEGV,sigsegv_handler); + undoably_install_low_level_interrupt_handler(SIG_MEMORY_FAULT, + sigsegv_handler); }