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(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)
81 os_map(int fd
, int offset
, os_vm_address_t addr
, os_vm_size_t len
)
84 addr
= mmap(addr
, len
,
86 MAP_PRIVATE
| MAP_FIXED
,
89 if (addr
== MAP_FAILED
) {
91 lose("Unexpected mmap(..) failure\n");
98 os_protect(os_vm_address_t address
, os_vm_size_t length
, os_vm_prot_t prot
)
100 if(mprotect((void*)address
, length
, prot
) == -1) {
105 static boolean
in_range_p(os_vm_address_t a
, lispobj sbeg
, size_t slen
)
107 char* beg
= (char*) sbeg
;
108 char* end
= (char*) sbeg
+ slen
;
109 char* adr
= (char*) a
;
110 return (adr
>= beg
&& adr
< end
);
113 boolean
is_valid_lisp_addr(os_vm_address_t addr
)
115 /* Old CMUCL comment:
117 Just assume address is valid if it lies within one of the known
118 spaces. (Unlike sunos-os which keeps track of every valid page.) */
120 /* FIXME: this looks like a valid definition for all targets with
121 cheney-gc; it may not be impressively smart (witness the
122 comment above) but maybe associating these functions with the
123 GC rather than the OS would be a maintainability win. -- CSR,
126 if(in_range_p(addr
, READ_ONLY_SPACE_START
, READ_ONLY_SPACE_SIZE
) ||
127 in_range_p(addr
, STATIC_SPACE_START
, STATIC_SPACE_SIZE
) ||
128 #ifdef LISP_FEATURE_GENCGC
129 in_range_p(addr
, DYNAMIC_SPACE_START
, dynamic_space_size
)
131 in_range_p(addr
, DYNAMIC_0_SPACE_START
, dynamic_space_size
) ||
132 in_range_p(addr
, DYNAMIC_1_SPACE_START
, dynamic_space_size
)
136 for_each_thread(th
) {
137 if((th
->control_stack_start
<= addr
) && (addr
< th
->control_stack_end
))
139 if(in_range_p(addr
, th
->binding_stack_start
, BINDING_STACK_SIZE
))
146 #if defined LISP_FEATURE_GENCGC
149 sigsegv_handler(int signal
, siginfo_t
*info
, os_context_t
*context
)
151 void* fault_addr
= (void*)info
->si_addr
;
153 #ifdef LISP_FEATURE_SB_SAFEPOINT
154 if (handle_safepoint_violation(context
, fault_addr
))
158 if (!gencgc_handle_wp_violation(fault_addr
))
159 if(!handle_guard_page_triggered(context
, fault_addr
))
160 lisp_memory_fault_error(context
, fault_addr
);
166 sigsegv_handler(int signal
, siginfo_t
*info
, os_context_t
*context
)
168 os_vm_address_t addr
= arch_get_bad_addr(signal
, info
, context
);
170 if (!cheneygc_handle_wp_violation(context
, addr
)) {
171 if (!handle_guard_page_triggered(context
,addr
))
172 lisp_memory_fault_error(context
, addr
);
179 os_install_interrupt_handlers()
181 undoably_install_low_level_interrupt_handler(SIG_MEMORY_FAULT
,
184 /* OAOOM c.f. linux-os.c.
185 * Should we have a reusable function gc_install_interrupt_handlers? */
186 #ifdef LISP_FEATURE_SB_THREAD
187 # ifdef LISP_FEATURE_SB_SAFEPOINT
188 # ifdef LISP_FEATURE_SB_THRUPTION
189 undoably_install_low_level_interrupt_handler(SIGPIPE
, thruption_handler
);
192 undoably_install_low_level_interrupt_handler(SIG_STOP_FOR_GC
,
193 sig_stop_for_gc_handler
);
199 os_get_runtime_executable_path(int external
)
201 char path
[] = "/proc/self/object/a.out";
203 if (external
|| access(path
, R_OK
) == -1)
206 return copied_string(path
);
209 #ifdef LISP_FEATURE_SB_WTIMER
211 * Waitable timer implementation for the safepoint-based (SIGALRM-free)
212 * timer facility using SunOS completion ports.
223 int port
= port_create();
225 perror("port_create");
226 lose("os_create_wtimer");
230 pn
.portnfy_port
= port
;
234 memset(&ev
, 0, sizeof(ev
));
235 ev
.sigev_notify
= SIGEV_PORT
;
236 ev
.sigev_value
.sival_ptr
= &pn
;
239 if (timer_create(CLOCK_HIGHRES
, &ev
, &timer
) == -1
240 && (errno
!= EPERM
|| timer_create(CLOCK_REALTIME
, &ev
, &timer
) == -1))
242 perror("timer_create");
243 lose("os_create_wtimer");
246 struct os_wtimer
*wt
= malloc(sizeof(struct os_wtimer
));
248 lose("os_create_wtimer: malloc");
256 os_wait_for_wtimer(struct os_wtimer
*wt
)
259 if (port_get(wt
->port
, &pe
, 0) == -1) {
263 lose("os_wtimer_listen failed");
269 os_close_wtimer(struct os_wtimer
*wt
)
271 if (close(wt
->port
) == -1) {
273 lose("os_close_wtimer");
275 if (timer_delete(wt
->timer
) == -1) {
276 perror("timer_delete");
277 lose("os_close_wtimer");
283 os_set_wtimer(struct os_wtimer
*wt
, int sec
, int nsec
)
285 struct itimerspec spec
;
286 spec
.it_value
.tv_sec
= sec
;
287 spec
.it_value
.tv_nsec
= nsec
;
288 spec
.it_interval
.tv_sec
= 0;
289 spec
.it_interval
.tv_nsec
= 0;
290 if (timer_settime(wt
->timer
, 0, &spec
, 0) == -1) {
292 perror("timer_settime");
294 lose("os_set_wtimer");
299 os_cancel_wtimer(struct os_wtimer
*wt
)
301 os_set_wtimer(wt
, 0, 0);