0.8.21.18:

[sbcl.git] / src / runtime / mips-arch.h

diff --git a/src/runtime/mips-arch.h b/src/runtime/mips-arch.h
index 17c1886..7cde570 100644 (file)
--- a/src/runtime/mips-arch.h
+++ b/src/runtime/mips-arch.h
@@ -1,4 +1,17 @@
 #ifndef _MIPS_ARCH_H
 #define _MIPS_ARCH_H
 
+
+static inline void 
+get_spinlock(volatile lispobj *word, long value)
+{
+    *word=value;               /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(volatile lispobj *word)
+{
+    *word=0;
+}
+
 #endif /* _MIPS_ARCH_H */