X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-arch.h;h=a811ac4b856a7ee835acf6c878d85dfa586d6a43;hb=3b3086ad5ad36a66302e1e6c5b7c8246c7963462;hp=b43e78e250b9c9e9ecc1a8bfd6d12ae1313f5e4b;hpb=c1b4849c95bad4f3535fba2b9307fd37e15bcf6d;p=sbcl.git

diff --git a/src/runtime/ppc-arch.h b/src/runtime/ppc-arch.h
index b43e78e..a811ac4 100644
--- a/src/runtime/ppc-arch.h
+++ b/src/runtime/ppc-arch.h
@@ -1,6 +1,19 @@
 #ifndef _PPC_ARCH_H
 #define _PPC_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_LINK_REGISTER
 
 #endif /* _PPC_ARCH_H */