9 #include <sys/utsname.h>
15 #include "interrupt.h"
18 #include "target-arch-os.h"
20 #ifdef LISP_FEATURE_X86
21 #include "genesis/static-symbols.h"
22 #include "genesis/fdefn.h"
25 #ifdef LISP_FEATURE_GENCGC
26 #include "gencgc-internal.h"
29 #ifdef LISP_FEATURE_SB_WTIMER
35 os_vm_size_t os_vm_page_size
=0;
38 os_init(char *argv
[], char *envp
[])
41 * historically, this used sysconf to select the runtime page size
42 * per recent changes on other arches and discussion on sbcl-devel,
43 * however, this is not necessary -- the VM page size need not match
44 * the OS page size (and the default backend page size has been
45 * ramped up accordingly for efficiency reasons).
47 os_vm_page_size
= BACKEND_PAGE_BYTES
;
50 os_vm_address_t
os_validate(boolean movable
, os_vm_address_t addr
, os_vm_size_t len
)
52 int flags
= MAP_PRIVATE
| MAP_NORESERVE
| MAP_ANON
;
56 addr
= mmap(addr
, len
, OS_VM_PROT_ALL
, flags
, -1, 0);
58 if (addr
== MAP_FAILED
) {
60 /* While it is generally hard to recover from out-of-memory
61 * situations, we require callers to decide on the right course
62 * of action here. Consider thread creation: Failure to mmap
63 * here is common if users have started too many threads, and
64 * often we can recover from that and treat it as an ordinary
72 void os_invalidate(os_vm_address_t addr
, os_vm_size_t len
)
74 if(munmap((void*) addr
, len
) == -1)
80 os_protect(os_vm_address_t address
, os_vm_size_t length
, os_vm_prot_t prot
)
82 if(mprotect((void*)address
, length
, prot
) == -1) {
87 #if defined LISP_FEATURE_GENCGC
90 sigsegv_handler(int signal
, siginfo_t
*info
, os_context_t
*context
)
92 void* fault_addr
= (void*)info
->si_addr
;
94 #ifdef LISP_FEATURE_SB_SAFEPOINT
95 if (handle_safepoint_violation(context
, fault_addr
))
99 if (!gencgc_handle_wp_violation(fault_addr
))
100 if(!handle_guard_page_triggered(context
, fault_addr
))
101 lisp_memory_fault_error(context
, fault_addr
);
107 sigsegv_handler(int signal
, siginfo_t
*info
, os_context_t
*context
)
109 os_vm_address_t addr
= arch_get_bad_addr(signal
, info
, context
);
111 if (!cheneygc_handle_wp_violation(context
, addr
)) {
112 if (!handle_guard_page_triggered(context
,addr
))
113 lisp_memory_fault_error(context
, addr
);
120 os_install_interrupt_handlers()
122 undoably_install_low_level_interrupt_handler(SIG_MEMORY_FAULT
,
125 /* OAOOM c.f. linux-os.c.
126 * Should we have a reusable function gc_install_interrupt_handlers? */
127 #ifdef LISP_FEATURE_SB_THREAD
128 # ifdef LISP_FEATURE_SB_SAFEPOINT
129 # ifdef LISP_FEATURE_SB_THRUPTION
130 undoably_install_low_level_interrupt_handler(SIGPIPE
, thruption_handler
);
133 undoably_install_low_level_interrupt_handler(SIG_STOP_FOR_GC
,
134 sig_stop_for_gc_handler
);
140 os_get_runtime_executable_path(int external
)
142 char path
[] = "/proc/self/object/a.out";
144 if (external
|| access(path
, R_OK
) == -1)
147 return copied_string(path
);
150 #ifdef LISP_FEATURE_SB_WTIMER
152 * Waitable timer implementation for the safepoint-based (SIGALRM-free)
153 * timer facility using SunOS completion ports.
164 int port
= port_create();
166 perror("port_create");
167 lose("os_create_wtimer");
171 pn
.portnfy_port
= port
;
175 memset(&ev
, 0, sizeof(ev
));
176 ev
.sigev_notify
= SIGEV_PORT
;
177 ev
.sigev_value
.sival_ptr
= &pn
;
180 if (timer_create(CLOCK_HIGHRES
, &ev
, &timer
) == -1
181 && (errno
!= EPERM
|| timer_create(CLOCK_REALTIME
, &ev
, &timer
) == -1))
183 perror("timer_create");
184 lose("os_create_wtimer");
187 struct os_wtimer
*wt
= malloc(sizeof(struct os_wtimer
));
189 lose("os_create_wtimer: malloc");
197 os_wait_for_wtimer(struct os_wtimer
*wt
)
200 if (port_get(wt
->port
, &pe
, 0) == -1) {
204 lose("os_wtimer_listen failed");
210 os_close_wtimer(struct os_wtimer
*wt
)
212 if (close(wt
->port
) == -1) {
214 lose("os_close_wtimer");
216 if (timer_delete(wt
->timer
) == -1) {
217 perror("timer_delete");
218 lose("os_close_wtimer");
224 os_set_wtimer(struct os_wtimer
*wt
, int sec
, int nsec
)
226 struct itimerspec spec
;
227 spec
.it_value
.tv_sec
= sec
;
228 spec
.it_value
.tv_nsec
= nsec
;
229 spec
.it_interval
.tv_sec
= 0;
230 spec
.it_interval
.tv_nsec
= 0;
231 if (timer_settime(wt
->timer
, 0, &spec
, 0) == -1) {
233 perror("timer_settime");
235 lose("os_set_wtimer");
240 os_cancel_wtimer(struct os_wtimer
*wt
)
242 os_set_wtimer(wt
, 0, 0);