Fix make-array transforms.
[sbcl.git] / src / runtime / hppa-hpux-os.h
1 #ifndef _HPPA_HPUX_OS_H
2 #define _HPPA_HPUX_OS_H
3
4 typedef struct ucontext_t os_context_t;
5 typedef unsigned long os_context_register_t;
6
7 static inline os_context_t *arch_os_get_context(void **void_context)
8 {
9     return (os_context_t *) *void_context;
10 }
11
12 unsigned long os_context_fp_control(os_context_t *context);
13 void os_restore_fp_control(os_context_t *context);
14
15 #define REGISTER_ACCESS(context,offset) ((os_context_register_t *) ((unsigned int)(&((ucontext_t *) context)->uc_mcontext.ss_wide.ss_64)) + (offset * 2) + 1)
16
17 #endif /* _HPPA_HPUX_OS_H */