X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.h;h=65d7295d1b47029ba3e10f1f86f9d6697e8ea601;hb=4ba392170e98744f0ef0b8e08a5d42b988f1d0c9;hp=3a2c96ef95d33b30a250463ca00b09d12c02ef26;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/runtime/hppa-arch.h b/src/runtime/hppa-arch.h
index 3a2c96e..65d7295 100644
--- a/src/runtime/hppa-arch.h
+++ b/src/runtime/hppa-arch.h
@@ -1,6 +1,20 @@
 #ifndef _HPPA_ARCH_H
 #define _HPPA_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
+#define ALIEN_STACK_GROWS_UPWARD
 
 #endif /* _HPPA_ARCH_H */