1.0.19.16: derive the type of (AREF (THE STRING X) Y) as CHARACTER
[sbcl.git] / src / runtime / sparc-sunos-os.h
1 #ifndef _SPARC_SOLARIS_OS_H
2 #define _SPARC_SOLARIS_OS_H
3
4 typedef ucontext_t os_context_t;
5
6 static inline os_context_t *arch_os_get_context(void **void_context)
7 {
8     asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */
9     return (os_context_t *) (*void_context);
10 }
11
12 #endif /* _SPARC_SOLARIS_OS_H */