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.
20 /* for cacheflush() */
21 #include <sys/cachectl.h>
24 #include <asm/mipsregs.h>
30 size_t os_vm_page_size;
33 arch_os_thread_init(struct thread *thread)
35 #ifdef LISP_FEATURE_SB_THREAD
36 #warning "Check threading support functions"
38 return 1; /* success */
42 arch_os_thread_cleanup(struct thread *thread)
44 #ifdef LISP_FEATURE_SB_THREAD
45 #warning "Check threading support functions"
47 return 1; /* success */
50 os_context_register_t *
51 os_context_register_addr(os_context_t *context, int offset)
53 return &(((struct sigcontext *)&(context->uc_mcontext))->sc_regs[offset]);
56 os_context_register_t *
57 os_context_fpregister_addr(os_context_t *context, int offset)
59 return &(((struct sigcontext *)&(context->uc_mcontext))->sc_fpregs[offset]);
62 os_context_register_t *
63 os_context_pc_addr(os_context_t *context)
65 /* Why do I get all the silly ports? -- CSR, 2002-08-11 */
66 return &(((struct sigcontext *)&(context->uc_mcontext))->sc_pc);
70 os_context_sigmask_addr(os_context_t *context)
72 return &(context->uc_sigmask);
76 os_context_fp_control(os_context_t *context)
78 /* FIXME: Probably do something. */
83 os_restore_fp_control(os_context_t *context)
85 /* FIXME: Probably do something. */
89 os_context_bd_cause(os_context_t *context)
91 /* We need to see if whatever happened, happened because of a
93 /* FIXME: However, I'm not convinced that the values that Linux
94 puts in this slot are actually right; specifically, attempting
95 to compile sbcl with sbcl-0.7.7.7 lead to an "infinite SIGTRAP
96 loop" where a (BREAK 16) not in a branch delay slot would have
97 CAUSEF_BD filled. So, we comment
99 return (((struct sigcontext *) &(context->uc_mcontext))->sc_cause
102 out and return 0 always. -- CSR, 2002-09-02 */
103 /* Unfortunately, returning 0 fails for taken branches because
104 os_context_bd_cause is also used to find out if a branch
105 emulation is needed. We work around that by checking if the
106 current instruction is a jump or a branch. */
107 extern boolean arch_insn_with_bdelay_p(unsigned int insn);
110 = (os_vm_address_t)(unsigned int)*os_context_pc_addr(context);
111 unsigned int insn = *(unsigned int *)addr;
113 if (arch_insn_with_bdelay_p(insn))
120 os_flush_icache(os_vm_address_t address, os_vm_size_t length)
122 if (cacheflush(address, length, ICACHE) == -1)
123 perror("cacheflush");