2 * This is the MIPS Linux incarnation of arch-dependent OS-dependent
3 * routines. 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.
18 #include <sys/param.h>
25 #include "interrupt.h"
28 #include <sys/socket.h>
29 #include <sys/utsname.h>
31 #include <sys/types.h>
37 /* for cacheflush() */
38 #include <sys/cachectl.h>
41 #include <asm/mipsregs.h>
45 size_t os_vm_page_size;
48 arch_os_thread_init(struct thread *thread)
50 #ifdef LISP_FEATURE_SB_THREAD
51 #warning "Check threading support functions"
53 return 1; /* success */
57 arch_os_thread_cleanup(struct thread *thread)
59 #ifdef LISP_FEATURE_SB_THREAD
60 #warning "Check threading support functions"
62 return 1; /* success */
65 os_context_register_t *
66 os_context_register_addr(os_context_t *context, int offset)
68 return &(((struct sigcontext *)&(context->uc_mcontext))->sc_regs[offset]);
71 os_context_register_t *
72 os_context_pc_addr(os_context_t *context)
74 /* Why do I get all the silly ports? -- CSR, 2002-08-11 */
75 return &(((struct sigcontext *)&(context->uc_mcontext))->sc_pc);
79 os_context_sigmask_addr(os_context_t *context)
81 return &(context->uc_sigmask);
85 os_context_fp_control(os_context_t *context)
87 /* FIXME: Probably do something. */
92 os_restore_fp_control(os_context_t *context)
94 /* FIXME: Probably do something. */
98 os_context_bd_cause(os_context_t *context)
100 /* We need to see if whatever happened, happened because of a
101 branch delay event */
102 /* FIXME: However, I'm not convinced that the values that Linux
103 puts in this slot are actually right; specifically, attempting
104 to compile sbcl with sbcl-0.7.7.7 lead to an "infinite SIGTRAP
105 loop" where a (BREAK 16) not in a branch delay slot would have
106 CAUSEF_BD filled. So, we comment
108 return (((struct sigcontext *) &(context->uc_mcontext))->sc_cause
111 out and return 0 always. -- CSR, 2002-09-02 */
112 /* Unfortunately, returning 0 fails for taken branches because
113 os_context_bd_cause is also used to find out if a branch
114 emulation is needed. We work around that by checking if the
115 current instruction is a jump or a branch. */
116 unsigned int inst = *((unsigned int *)(unsigned int)(*os_context_pc_addr(context)));
118 switch (inst >> 26) {
119 case 0x0: /* immediate jumps */
120 switch (inst & 0x3f) {
126 /* branches and register jumps */
140 os_flush_icache(os_vm_address_t address, os_vm_size_t length)
142 if (cacheflush(address, length, ICACHE) == -1)
143 perror("cacheflush");