X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fmips-arch.h;h=ee04c3e78f0c99ff8b97866dc6bdb494da4fd96d;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=0e9a729aeb65ab9ee9af5b3681889318561a0707;hpb=428b60fff4247e34ff601810f33976908f22bbc0;p=sbcl.git

diff --git a/src/runtime/mips-arch.h b/src/runtime/mips-arch.h
index 0e9a729..ee04c3e 100644
--- a/src/runtime/mips-arch.h
+++ b/src/runtime/mips-arch.h
@@ -3,13 +3,43 @@
 
 
 static inline void 
-get_spinlock(lispobj *word,long value)
+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;
 }