X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsparc-arch.h;h=6a7b52e6ca56ea8646d9c33f2d7ecca1654a5337;hb=eac461c1f1ca91cfe282c779291d582ed6b336cb;hp=b75247d99675e0c2f4d6b9aafffa63a7d7ac128a;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/runtime/sparc-arch.h b/src/runtime/sparc-arch.h
index b75247d..6a7b52e 100644
--- a/src/runtime/sparc-arch.h
+++ b/src/runtime/sparc-arch.h
@@ -1,6 +1,18 @@
 #ifndef _SPARC_ARCH_H
 #define _SPARC_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_NPC_REGISTER
 
 #endif /* _SPARC_ARCH_H */