Optimize CAD*R for &MORE args.
[sbcl.git] / src / runtime / x86-darwin-os.h
1 #ifndef _X86_DARWIN_OS_H
2 #define _X86_DARWIN_OS_H
3
4 #include <architecture/i386/table.h>
5 #include <i386/user_ldt.h>
6
7 #include "darwin-os.h"
8
9 typedef int os_context_register_t;
10
11 static inline os_context_t *arch_os_get_context(void **void_context)
12 {
13     return (os_context_t *) *void_context;
14 }
15
16 void set_data_desc_size(data_desc_t* desc, unsigned long size);
17 void set_data_desc_addr(data_desc_t* desc, void* addr);
18
19 /* On OS X 10.5, the field names for the thread state have changed and
20  * now are prepended with __. Use some #define hackery to deal with
21  * this.
22  */
23 #if __DARWIN_UNIX03
24
25 #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem
26 #define EIP __eip
27 #define ESP __esp
28 #define EBP __ebp
29 #define EAX __eax
30 #define EBX __ebx
31 #define ECX __ecx
32 #define EDX __edx
33 #define ESI __esi
34 #define EDI __edi
35 #define EFLAGS __eflags
36 #define CS __cs
37 #define DS __ds
38 #define ES __es
39 #define FS __fs
40 #define SS __ss
41 #define GS __gs
42
43 #define FPU_FCW __fpu_fcw
44
45 #else
46
47 #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->ss.stem
48 #define EIP eip
49 #define ESP esp
50 #define EBP ebp
51 #define EAX eax
52 #define EBX ebx
53 #define ECX ecx
54 #define EDX edx
55 #define ESI esi
56 #define EDI edi
57 #define EFLAGS eflags
58 #define CS cs
59 #define DS ds
60 #define ES es
61 #define FS fs
62 #define SS ss
63 #define GS gs
64
65 #define FPU_FCW fpu_fcw
66
67 #endif /* __DARWIN_UNIX03 */
68
69 #define RESTORE_FP_CONTROL_FROM_CONTEXT
70 void os_restore_fp_control(os_context_t *context);
71
72 #endif /* _X86_DARWIN_OS_H */