fix bug in SYMBOL-VALUE CAS expansion for constant arguments
[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 typedef int os_context_register_t ;
6
7 static inline os_context_t *arch_os_get_context(void **void_context)
8 {
9     asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */
10     return (os_context_t *) (*void_context);
11 }
12
13 #endif /* _SPARC_SOLARIS_OS_H */