0.9.0.39:
[sbcl.git] / src / runtime / alpha-arch.h
1 #ifndef _ALPHA_ARCH_H
2 #define _ALPHA_ARCH_H
3
4
5 static inline void 
6 get_spinlock(lispobj *word,long value)
7 {
8     *word=value;                /* FIXME for threads */
9 }
10
11 static inline void
12 release_spinlock(lispobj *word)
13 {
14     *word=0;
15 }
16
17 #define ARCH_HAS_FLOAT_REGISTERS
18
19 #endif /* _ALPHA_ARCH_H */