blob: 4f593aa83acebeed2d2a0e9ada202f1c1563ec9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- sbcl-1.0.49.orig/src/runtime/mips-arch.h 2011-06-25 16:13:44.103101571 +0200
+++ sbcl-1.0.49/src/runtime/mips-arch.h 2011-06-25 16:14:31.279501569 +0200
@@ -1,6 +1,8 @@
#ifndef _MIPS_ARCH_H
#define _MIPS_ARCH_H
+/* For lose. */
+#include "interr.h"
static inline void
get_spinlock(volatile lispobj *word, long value)
@@ -31,7 +33,7 @@
[__new] "r" (value)
: "memory");
- if (!cmp)
+ if (!__cmp)
lose("recursive get_spinlock: 0x%x,%d\n", word, value);
#else /* LISP_FEATURE_SB_THREAD */
*word=value;
|
