2 * This is the SPARC 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>
24 #include "interrupt.h"
28 #include <sys/socket.h>
29 #include <sys/utsname.h>
31 #include <sys/types.h>
38 size_t os_vm_page_size
;
41 os_context_register_t
*
42 os_context_register_addr(os_context_t
*context
, int offset
)
48 } else if (offset
< 16) {
49 return &context
->si_regs
.u_regs
[offset
];
50 } else if (offset
< 32) {
51 int *sp
= (int*) context
->si_regs
.u_regs
[14]; /* Stack Pointer */
52 return &(sp
[offset
-16]);
57 os_context_register_t
*
58 os_context_pc_addr(os_context_t
*context
)
60 return &(context
->si_regs
.pc
);
63 os_context_register_t
*
64 os_context_npc_addr(os_context_t
*context
)
66 return &(context
->si_regs
.npc
);
70 os_context_sigmask_addr(os_context_t
*context
)
72 return &(context
->si_mask
);
76 os_restore_fp_control(os_context_t
*context
)
78 /* Included here, for reference, is an attempt at the PPC
79 variant. If it weren't the case that SPARC/Linux gave a Bus
80 Error on floating point exceptions, something like this would
81 have to be done. -- CSR, 2002-07-13
83 asm ("msfsf $255, %0" : : "m"
84 (os_context_fp_control(context) &
85 ~ (FLOAT_STICKY_BITS_MASK | FLOAT_EXCEPTIONS_BYTE_MASK)));
90 os_flush_icache(os_vm_address_t address
, os_vm_size_t length
)
92 /* This is the same for linux and solaris, so see sparc-assem.S */
93 sparc_flush_icache(address
,length
);