X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-arch.h;h=c3d82f7cce5ecb36a2e4a35a1111cacaba1da7fd;hb=bf40ae88bc289fd765a33861cc4bc0853ed483ba;hp=16aac2bf9e9df12a77fd4f998e9bc3d375287b2a;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/runtime/alpha-arch.h b/src/runtime/alpha-arch.h
index 16aac2b..c3d82f7 100644
--- a/src/runtime/alpha-arch.h
+++ b/src/runtime/alpha-arch.h
@@ -1,6 +1,19 @@
 #ifndef _ALPHA_ARCH_H
 #define _ALPHA_ARCH_H
 
+
+static inline void
+get_spinlock(lispobj *word,long value)
+{
+    *word=value;                /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+    *word=0;
+}
+
 #define ARCH_HAS_FLOAT_REGISTERS
 
 #endif /* _ALPHA_ARCH_H */