X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fmips-arch.c;h=9e7651d79d84216fd3d85f8dfba97d78fe957d9b;hb=929fde778f2e5a422f9bcd8ad5f6dcf1dbfccf15;hp=c1ca525435fd30f8ea6f98136014b6c2a17931cc;hpb=34dcb46f78a01d543756703d7ccdf3d999a134d0;p=sbcl.git

diff --git a/src/runtime/mips-arch.c b/src/runtime/mips-arch.c
index c1ca525..9e7651d 100644
--- a/src/runtime/mips-arch.c
+++ b/src/runtime/mips-arch.c
@@ -1,7 +1,5 @@
 /*
 
- $Header$
-
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
 
@@ -9,9 +7,9 @@
 
 #include <stdio.h>
 
+#include "sbcl.h"
 #include "runtime.h"
 #include "arch.h"
-#include "sbcl.h"
 #include "globals.h"
 #include "validate.h"
 #include "os.h"
@@ -351,11 +349,6 @@ void arch_install_interrupt_handlers()
     undoably_install_low_level_interrupt_handler(SIGFPE,sigfpe_handler);
 }
 
-void get_spinlock(lispobj *word, int value) {
-    /* FIXME: dummy definition */
-    *word = value;
-}
-
 extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
 
 lispobj funcall0(lispobj function)