X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fbsd-os.h;h=880c5f7e6ce36b16002e98065dffdbbff6ecfedd;hb=bf40ae88bc289fd765a33861cc4bc0853ed483ba;hp=1cdc422f82fffbe9248e08afb7c7c3be5ac42c24;hpb=7f76d571fe545578e3bd26e627d181a39a8f1eb7;p=sbcl.git diff --git a/src/runtime/bsd-os.h b/src/runtime/bsd-os.h index 1cdc422..880c5f7 100644 --- a/src/runtime/bsd-os.h +++ b/src/runtime/bsd-os.h @@ -17,8 +17,18 @@ #include #include +#ifdef LISP_FEATURE_DARWIN +#include +#endif + typedef caddr_t os_vm_address_t; +#if defined __NetBSD__ +typedef vsize_t os_vm_size_t; +#elif defined __OpenBSD__ +typedef size_t os_vm_size_t; +#else typedef vm_size_t os_vm_size_t; +#endif typedef off_t os_vm_offset_t; typedef int os_vm_prot_t; @@ -27,24 +37,53 @@ typedef int os_vm_prot_t; * is an mcontext_t, but according to comments by Raymond Wiker in the * original FreeBSD port of SBCL, that's wrong, it's actually a * ucontext_t. */ + +#include typedef ucontext_t os_context_t; -/* KLUDGE: A hack inherited from CMU CL used to be conditional on - * !defined(__linux__), and has now been made conditional on - * CANNOT_GET_TO_SINGLE_STEP_FLAG: if the OS won't let us flip the - * single-step flag bit in the state stored in a signal context, then - * we need to mess around with overwriting preceding code with - * bit-flipping code. This isn't needed in Linux or OpenBSD; I haven't - * been able to test whether it's still needed in FreeBSD, so for - * conservatism it's left in. -- WHN 2000-10-24 */ +/* As the sbcl-devel message from Raymond Wiker 2000-12-01, FreeBSD + * (unlike Linux and OpenBSD) doesn't let us tweak the CPU's single + * step flag bit by messing with the flags stored in a signal context, + * so we need to implement single stepping in a more roundabout way. */ #define CANNOT_GET_TO_SINGLE_STEP_FLAG +/* Sometime in late 2005 FreeBSD was changed to signal SIGSEGV instead + * of SIGBUS for memory faults, as required by POSIX. In order to + * support both new and old FreeBSD at the same time, both signals are + * hooked to the GC write barrier machinery. If you're reading this + * message in the far future where FreeBSD 6 and earlier are just + * quaint memories, feel free to delete this hack (and any code that's + * #ifdef SIG_MEMORY_FAULT2'ed). -- JES, 2005-12-30 + */ +/* Hooking both SIGBUS and SIGSEGV causes troubles on some situation, + * so use a variable. + */ +extern int sig_memory_fault; +#define SIG_MEMORY_FAULT (sig_memory_fault) + +#define SIG_STOP_FOR_GC (SIGUSR2) + #elif defined __OpenBSD__ + typedef struct sigcontext os_context_t; +#define SIG_MEMORY_FAULT SIGSEGV +#if defined(LISP_FEATURE_X86) +extern int openbsd_use_fxsave; +#endif + +#elif defined __NetBSD__ + +#include +typedef ucontext_t os_context_t; +#define SIG_MEMORY_FAULT SIGSEGV + +#elif defined LISP_FEATURE_DARWIN +#include "darwin-os.h" #else #error unsupported BSD variant #endif +#include "target-arch-os.h" +#include "target-arch.h" + #define OS_VM_PROT_READ PROT_READ #define OS_VM_PROT_WRITE PROT_WRITE #define OS_VM_PROT_EXECUTE PROT_EXEC - -#define OS_VM_DEFAULT_PAGESIZE 4096