X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fmips-arch.h;h=eba16e4f6317eab81f991ed15db105249e78fb22;hb=d4d6c4b16a3655ce99a87d43f411391363531260;hp=50b0776587c830f414fe123827e761460d51475b;hpb=2378b4fe567a8fea78b1e4915b9497d8c18ca92f;p=sbcl.git

diff --git a/src/runtime/mips-arch.h b/src/runtime/mips-arch.h
index 50b0776..eba16e4 100644
--- a/src/runtime/mips-arch.h
+++ b/src/runtime/mips-arch.h
@@ -2,14 +2,44 @@
 #define _MIPS_ARCH_H
 
 
-static inline void 
-get_spinlock(lispobj *word,int value)
+static inline void
+get_spinlock(volatile lispobj *word, long value)
 {
-    *word=value;		/* FIXME for threads */
+#ifdef LISP_FEATURE_SB_THREAD
+    unsigned long __old = (volatile lispobj)*word;
+    unsigned long __prev;
+    int __cmp;
+
+    __asm__ __volatile__ (
+        "       .set push\n"
+        "       .set mips2\n"
+        "       .set noreorder\n"
+        "1:     ll      %[__prev],%[__mem]\n"
+        "       bne     %[__prev],%[__old],2f\n"
+        "        li     %[__cmp],0\n"
+        "       move    %[__cmp],%[__new]\n"
+        "       sc      %[__cmp],%[__mem]\n"
+        "       beqz    %[__cmp],1b\n"
+        "        nop\n"
+        "       sync\n"
+        "2:\n"
+        "       .set pop"
+        : [__prev] "=&r" (__prev),
+          [__cmp] "=&r" (__cmp)
+        : [__mem] "R" (*word),
+          [__old] "r" (__old),
+          [__new] "r" (value)
+        : "memory");
+
+    if (!cmp)
+        lose("recursive get_spinlock: 0x%x,%d\n", word, value);
+#else /* LISP_FEATURE_SB_THREAD */
+    *word=value;
+#endif
 }
 
 static inline void
-release_spinlock(lispobj *word)
+release_spinlock(volatile lispobj *word)
 {
     *word=0;
 }