2 * The x86 Linux incarnation of arch-dependent OS-dependent routines.
3 * See also "linux-os.c".
7 * This software is part of the SBCL system. See the README file for
10 * This software is derived from the CMU CL system, which was
11 * written at Carnegie Mellon University and released into the
12 * public domain. The software is in the public domain and is
13 * provided with absolutely no warranty. See the COPYING and CREDITS
14 * files for more information.
19 #include <sys/param.h>
21 #include <sys/types.h>
28 #include "interrupt.h"
32 #include <sys/socket.h>
33 #include <sys/utsname.h>
35 #include <sys/types.h>
37 /* #include <sys/sysinfo.h> */
42 #include <linux/unistd.h>
44 #include "thread.h" /* dynamic_values_bytes */
46 _syscall3(int, modify_ldt, int, func, void *, ptr, unsigned long, bytecount );
49 size_t os_vm_page_size;
51 u32 local_ldt_copy[LDT_ENTRIES*LDT_ENTRY_SIZE/sizeof(u32)];
53 /* XXX this could be conditionally compiled based on some
54 * "debug-friendly" flag. But it doesn't really make stuff slower,
55 * just the runtime gets fractionally larger */
59 int n=modify_ldt (0, local_ldt_copy, sizeof local_ldt_copy);
60 printf("%d bytes in ldt: print/x local_ldt_copy\n", n);
63 lispobj modify_ldt_lock; /* protect all calls to modify_ldt */
65 int arch_os_thread_init(struct thread *thread) {
67 #ifdef LISP_FEATURE_SB_THREAD
68 /* this must be called from a function that has an exclusive lock
71 struct modify_ldt_ldt_s ldt_entry = {
72 1, 0, 0, /* index, address, length filled in later */
73 1, MODIFY_LDT_CONTENTS_DATA, 0, 0, 0, 1
76 get_spinlock(&modify_ldt_lock,thread);
77 n=modify_ldt(0,local_ldt_copy,sizeof local_ldt_copy);
78 /* get next free ldt entry */
82 for(n=0,p=local_ldt_copy;*p;p+=LDT_ENTRY_SIZE/sizeof(u32))
85 ldt_entry.entry_number=n;
86 ldt_entry.base_addr=(unsigned long) thread;
87 ldt_entry.limit=dynamic_values_bytes;
88 ldt_entry.limit_in_pages=0;
89 if (modify_ldt (1, &ldt_entry, sizeof (ldt_entry)) != 0) {
91 /* modify_ldt call failed: something magical is not happening */
94 __asm__ __volatile__ ("movw %w0, %%fs" : : "q"
95 ((n << 3) /* selector number */
96 + (1 << 2) /* TI set = LDT */
97 + 3)); /* privilege level */
103 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
104 /* Signal handlers are run on the control stack, so if it is exhausted
105 * we had better use an alternate stack for whatever signal tells us
106 * we've exhausted it */
107 sigstack.ss_sp=((void *) thread)+dynamic_values_bytes;
109 sigstack.ss_size = 32*SIGSTKSZ;
110 sigaltstack(&sigstack,0);
115 /* if you can't do something like this (maybe because you're using a
116 * register for thread base that is only available in Lisp code)
117 * you'll just have to find_thread_by_pid(getpid())
119 struct thread *arch_os_get_current_thread() {
120 #ifdef LISP_FEATURE_SB_THREAD
121 register struct thread *me=0;
123 __asm__ ("movl %%fs:%c1,%0" : "=r" (me)
124 : "i" (offsetof (struct thread,this)));
131 /* free any arch/os-specific resources used by thread, which is now
132 * defunct. Not called on live threads
135 int arch_os_thread_cleanup(struct thread *thread) {
136 struct modify_ldt_ldt_s ldt_entry = {
138 0, MODIFY_LDT_CONTENTS_DATA, 0, 0, 0, 0
141 ldt_entry.entry_number=thread->tls_cookie;
142 get_spinlock(&modify_ldt_lock,thread);
143 if (modify_ldt (1, &ldt_entry, sizeof (ldt_entry)) != 0) {
145 /* modify_ldt call failed: something magical is not happening */
154 /* KLUDGE: As of kernel 2.2.14 on Red Hat 6.2, there's code in the
155 * <sys/ucontext.h> file to define symbolic names for offsets into
156 * gregs[], but it's conditional on __USE_GNU and not defined, so
157 * we need to do this nasty absolute index magic number thing
159 os_context_register_t *
160 os_context_register_addr(os_context_t *context, int offset)
163 case 0: return &context->uc_mcontext.gregs[11]; /* EAX */
164 case 2: return &context->uc_mcontext.gregs[10]; /* ECX */
165 case 4: return &context->uc_mcontext.gregs[9]; /* EDX */
166 case 6: return &context->uc_mcontext.gregs[8]; /* EBX */
167 case 8: return &context->uc_mcontext.gregs[7]; /* ESP */
168 case 10: return &context->uc_mcontext.gregs[6]; /* EBP */
169 case 12: return &context->uc_mcontext.gregs[5]; /* ESI */
170 case 14: return &context->uc_mcontext.gregs[4]; /* EDI */
173 return &context->uc_mcontext.gregs[offset];
176 os_context_register_t *
177 os_context_pc_addr(os_context_t *context)
179 return &context->uc_mcontext.gregs[14]; /* REG_EIP */
182 os_context_register_t *
183 os_context_sp_addr(os_context_t *context)
185 return &context->uc_mcontext.gregs[17]; /* REG_UESP */
188 os_context_register_t *
189 os_context_fp_addr(os_context_t *context)
191 return &context->uc_mcontext.gregs[6]; /* REG_EBP */
195 os_context_fp_control(os_context_t *context)
197 return ((((context->uc_mcontext.fpregs->cw) & 0xffff) ^ 0x3f) |
198 (((context->uc_mcontext.fpregs->sw) & 0xffff) << 16));
202 os_context_sigmask_addr(os_context_t *context)
204 return &context->uc_sigmask;
208 os_restore_fp_control(os_context_t *context)
210 asm ("fldcw %0" : : "m" (context->uc_mcontext.fpregs->cw));
214 os_flush_icache(os_vm_address_t address, os_vm_size_t length)