2 * This is the PowerPC/Darwin incarnation of arch-dependent
3 * OS-dependent routines. See also "bsdos.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.
17 #include "genesis/sbcl.h"
23 #include <mach-o/dyld.h>
25 #include "interr.h" /* for declaration of lose */
27 int arch_os_thread_init(struct thread
*thread
) {
28 return 1; /* success */
31 #ifdef LISP_FEATURE_SB_THREAD
32 /* fix for "ld: absolute address to symbol _pthread_getspecific in a different linkage unit not supported" */
33 void *arch_os_thread_getspecific(pthread_key_t key
) {
34 return pthread_getspecific(key
);
38 int arch_os_thread_cleanup(struct thread
*thread
) {
39 return 1; /* success */
42 os_context_register_t
*
43 os_context_register_addr(os_context_t
*context
, int offset
)
45 ppc_ss_struct_t
*state
= &context
->uc_mcontext
->PPC_DARWIN_REGIFY(ss
);
48 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r0
);
50 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r1
);
52 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r2
);
54 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r3
);
56 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r4
);
58 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r5
);
60 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r6
);
62 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r7
);
64 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r8
);
66 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r9
);
68 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r10
);
70 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r11
);
72 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r12
);
74 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r13
);
76 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r14
);
78 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r15
);
80 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r16
);
82 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r17
);
84 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r18
);
86 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r19
);
88 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r20
);
90 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r21
);
92 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r22
);
94 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r23
);
96 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r24
);
98 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r25
);
100 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r26
);
102 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r27
);
104 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r28
);
106 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r29
);
108 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r30
);
110 return (os_context_register_t
*) &state
->PPC_DARWIN_REGIFY(r31
);
113 return (os_context_register_t
*) &context
->uc_mcontext
->PPC_DARWIN_REGIFY(es
).PPC_DARWIN_REGIFY(dar
);
116 return (os_context_register_t
*) &context
->uc_mcontext
->PPC_DARWIN_REGIFY(es
).PPC_DARWIN_REGIFY(dsisr
);
118 lose("bad offset to os_context_register_addr");
122 os_context_register_t
*
123 os_context_lr_addr(os_context_t
*context
)
125 return (os_context_register_t
*) &context
->uc_mcontext
->PPC_DARWIN_REGIFY(ss
).PPC_DARWIN_REGIFY(lr
);
128 os_context_register_t
*
129 os_context_ctr_addr(os_context_t
*context
)
131 return (os_context_register_t
*) &context
->uc_mcontext
->PPC_DARWIN_REGIFY(ss
).PPC_DARWIN_REGIFY(ctr
);
134 os_context_register_t
*
135 os_context_cr_addr(os_context_t
*context
)
137 return (os_context_register_t
*) &context
->uc_mcontext
->PPC_DARWIN_REGIFY(ss
).PPC_DARWIN_REGIFY(cr
);
141 os_flush_icache(os_vm_address_t address
, os_vm_size_t length
)
144 ppc_flush_icache(address
,length
);