X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.c;h=f91a065a109750c40a5c47842a0044864acb308f;hb=1f23c9f7828d8aebeda92c8c1126114e10461ffa;hp=8d2ae21e00351c13998784d2b7ae3b017fd70087;hpb=34dcb46f78a01d543756703d7ccdf3d999a134d0;p=sbcl.git

diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c
index 8d2ae21..f91a065 100644
--- a/src/runtime/hppa-arch.c
+++ b/src/runtime/hppa-arch.c
@@ -11,9 +11,9 @@
 #include <stdio.h>
 
 /* Copied from sparc-arch.c.  Not all of these are necessary, probably */
+#include "sbcl.h"
 #include "runtime.h"
 #include "arch.h"
-#include "sbcl.h"
 #include "globals.h"
 #include "validate.h"
 #include "os.h"
@@ -416,11 +416,6 @@ 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)
 {