4c76df2a89bb7d1563030c29f4977e040483606e
[projects/cmucl/cmucl.git] / src / lisp / os.h
1 /*
2  * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os.h,v 1.28 2011/09/01 05:18:26 rtoy Exp $
3  *
4  * Common interface for os-dependent functions.
5  *
6  */
7
8 #ifndef _OS_H_
9 #define _OS_H_
10
11 #include "lisp.h"
12
13 #define DPRINTF(t,a) { if (t) fprintf a; }
14
15 #ifdef DARWIN
16 #include "Darwin-os.h"
17 #else
18 #ifdef MACH
19 #include "mach-os.h"
20 #else
21 #ifdef sun
22 #include "sunos-os.h"
23 #else
24 #ifdef hpux
25 #include "hpux-os.h"
26 #else
27 #ifdef osf1
28 #include "osf1-os.h"
29 #else
30 #ifdef irix
31 #include "irix-os.h"
32 #else
33 #ifdef __FreeBSD__
34 #include "FreeBSD-os.h"
35 #else
36 #ifdef __OpenBSD__
37 #include "OpenBSD-os.h"
38 #else
39 #ifdef __NetBSD__
40 #include "NetBSD-os.h"
41 #else
42 #ifdef __linux__
43 #include "Linux-os.h"
44 #endif
45 #endif
46 #endif
47 #endif
48 #endif
49 #endif
50 #endif
51 #endif
52 #endif
53 #endif
54
55 #ifndef os_context_t
56 #define os_context_t struct sigcontext
57 #endif
58 #ifndef HANDLER_ARGS
59 #define HANDLER_ARGS int signal, int code, os_context_t *context
60 #endif
61 #ifndef CODE
62 #define CODE(code)  code
63 #endif
64 #ifndef SAVE_CONTEXT
65 #define SAVE_CONTEXT() do {} while(0)
66 #endif
67 #ifndef RESTORE_FPU
68 #define RESTORE_FPU(context) do {} while (0)
69 #endif
70
71 #define OS_VM_PROT_ALL (OS_VM_PROT_READ|OS_VM_PROT_WRITE|OS_VM_PROT_EXECUTE)
72
73 extern os_vm_size_t os_vm_page_size;
74
75 extern void os_init0(const char *argv[], const char *envp[]);
76 extern void os_init(const char *argv[], const char *envp[]);
77 extern void os_install_interrupt_handlers(void);
78
79 extern os_vm_address_t os_allocate(os_vm_size_t len);
80 extern os_vm_address_t os_allocate_at(os_vm_address_t addr, os_vm_size_t len);
81 extern os_vm_address_t os_reallocate(os_vm_address_t addr,
82                                      os_vm_size_t old_len, os_vm_size_t len);
83 extern void os_deallocate(os_vm_address_t addr, os_vm_size_t len);
84 extern void os_zero(os_vm_address_t addr, os_vm_size_t length);
85
86 extern os_vm_address_t os_validate(os_vm_address_t addr, os_vm_size_t len);
87 extern void os_invalidate(os_vm_address_t addr, os_vm_size_t len);
88 extern os_vm_address_t os_map(int fd, int offset, os_vm_address_t addr,
89                               os_vm_size_t len);
90 extern void os_flush_icache(os_vm_address_t addr, os_vm_size_t len);
91 extern void os_protect(os_vm_address_t addr, os_vm_size_t len,
92
93                        os_vm_prot_t protection);
94 extern boolean valid_addr(os_vm_address_t test);
95
96 #define os_trunc_to_page(addr) \
97     (os_vm_address_t)(((long)(addr))&~(os_vm_page_size-1))
98 #define os_round_up_to_page(addr) \
99     os_trunc_to_page((addr)+(os_vm_page_size-1))
100
101 #define os_trunc_size_to_page(size) \
102     (os_vm_size_t)(((long)(size))&~(os_vm_page_size-1))
103 #define os_round_up_size_to_page(size) \
104     os_trunc_size_to_page((size)+(os_vm_page_size-1))
105
106 extern void os_foreign_linkage_init(void);
107 extern void *os_dlsym(const char *sym_name, lispobj lib_list);
108
109 enum stack_zone_t { BOTH_ZONES, YELLOW_ZONE, RED_ZONE };
110 extern int os_stack_grows_down(void);
111 extern void os_guard_control_stack(int zone, int guard);
112 extern int os_control_stack_overflow(void *, os_context_t *);
113
114 unsigned long *os_sigcontext_reg(ucontext_t *, int);
115 unsigned long *os_sigcontext_pc(ucontext_t *);
116 unsigned char *os_sigcontext_fpu_reg(ucontext_t *, int);
117 unsigned int os_sigcontext_fpu_modes(ucontext_t *);
118
119 #ifdef i386
120 extern boolean os_support_sse2(void);
121 #endif
122
123 char* convert_lisp_string(char* c_string, void* lisp_string, int len);
124
125 #endif /* _OS_H_ */