X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.c;h=8d2ae21e00351c13998784d2b7ae3b017fd70087;hb=d501bef3a93da4f14f1e85b852c2e01ee1df2907;hp=9e8abb6e76e7b316134a95bb3036ca94f2a7fc10;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c
index 9e8abb6..8d2ae21 100644
--- a/src/runtime/hppa-arch.c
+++ b/src/runtime/hppa-arch.c
@@ -416,6 +416,12 @@ void arch_install_interrupt_handlers(void)
     undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler);
 }
 
+void get_spinlock(lispobj *word, int value) {
+    /* FIXME: dummy definition */
+    *word = value;
+}
+
+
 lispobj funcall0(lispobj function)
 {
     lispobj *args = current_control_stack_pointer;