Utility predicates for packing: UNBOUNDED-SC-P and UNBOUNDED-TN-P
[sbcl.git] / src / runtime / hppa-linux-os.h
1 #ifndef _HPPA_LINUX_OS_H
2 #define _HPPA_LINUX_OS_H
3
4 typedef struct ucontext os_context_t;
5 /* FIXME: This will change if the parisc-linux people implement
6    wide-sigcontext for 32-bit kernels */
7 typedef unsigned long os_context_register_t;
8
9 static inline os_context_t *arch_os_get_context(void **void_context)
10 {
11     return (os_context_t *) *void_context;
12 }
13
14 unsigned long os_context_fp_control(os_context_t *context);
15 void os_restore_fp_control(os_context_t *context);
16
17 #define SC_REG(sc, n) (((unsigned long *)((sc)->sc_ap))[n])
18 #define SC_PC(sc) ((sc)->sc_pcoqh)
19 #define SC_NPC(sc) ((sc)->sc_pcoqt)
20
21 #endif /* _HPPA_LINUX_OS_H */