2 * This file (along with os.h) exports an OS-independent interface to
3 * the operating system VM facilities. Surprise surprise, this
4 * interface looks a lot like the Mach interface (but simpler in some
5 * places). For some operating systems, a subset of these functions
6 * will have to be emulated.
8 * This is the OSF/1 version, based on the Linux version, itself based
9 * on the OSF1 version from CMUCL by Sean Hallgren. Now _there's_
10 * a metacircularity for you ...
14 * This software is part of the SBCL system. See the README file for
17 * This software is derived from the CMU CL system, which was
18 * written at Carnegie Mellon University and released into the
19 * public domain. The software is in the public domain and is
20 * provided with absolutely no warranty. See the COPYING and CREDITS
21 * files for more information.
25 #include <sys/param.h>
32 #include "interrupt.h"
35 #include <sys/socket.h>
36 #include <sys/utsname.h>
38 #include <sys/sysinfo.h>
41 #include <machine/hal_sysinfo.h>
43 #include <sys/types.h>
50 size_t os_vm_page_size
;
55 os_init(char *argv
[], char *envp
[])
57 os_vm_page_size
= BACKEND_PAGE_BYTES
;
62 os_validate(boolean movable
, os_vm_address_t addr
, os_vm_size_t len
)
64 int flags
= MAP_PRIVATE
|MAP_ANONYMOUS
;
65 if (addr
) flags
|= MAP_FIXED
;
66 else flags
|= MAP_VARIABLE
;
68 if((addr
=mmap(addr
,len
,OS_VM_PROT_ALL
,flags
,-1,0)) == (os_vm_address_t
) -1)
75 os_invalidate(os_vm_address_t addr
, os_vm_size_t len
)
77 if (munmap(addr
,len
) == -1) {
83 os_protect(os_vm_address_t address
, os_vm_size_t length
, os_vm_prot_t prot
)
85 if (mprotect(address
, length
, prot
) == -1) {
91 * any OS-dependent special low-level handling for signals
96 sigsegv_handler(int signal
, siginfo_t
*info
, os_context_t
*context
)
98 os_vm_address_t addr
= arch_get_bad_addr(signal
,info
,context
);
101 *os_context_register_addr(context
,reg_ALLOC
) & (1L<<63)){
102 /* this is lifted from linux-os.c, so violates OOAO */
103 *os_context_register_addr(context
,reg_ALLOC
) -= (1L<<63);
104 interrupt_handle_pending(context
);
105 } else if (!cheneygc_handle_wp_violation(context
, addr
)) {
106 if(!handle_guard_page_triggered(context
,addr
))
107 lisp_memory_fault_error(context
, addr
);
113 os_install_interrupt_handlers(void)
115 undoably_install_low_level_interrupt_handler(SIG_MEMORY_FAULT
,
120 os_get_runtime_executable_path(int external
)