Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1:/tmp/cvs-serv3470/src/runtime
Modified Files:
Tag: stop_the_world_branch
alpha-arch.c alpha-arch.h hppa-arch.c hppa-arch.h interrupt.c
mips-arch.c mips-arch.h ppc-arch.c ppc-arch.h sparc-arch.c
sparc-arch.h
Log Message:
0.8.2.38.stop_the_world.9
Fixes to build on non-x86 ports:
Moved get_spinlock into foo-arch.h and made it static inline.
Added release_spinlock for parity
Index: alpha-arch.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/alpha-arch.c,v
retrieving revision 1.15
retrieving revision 1.15.10.1
diff -u -d -r1.15 -r1.15.10.1
--- alpha-arch.c 7 Apr 2003 13:16:57 -0000 1.15
+++ alpha-arch.c 24 Aug 2003 21:00:44 -0000 1.15.10.1
@@ -369,11 +369,6 @@
undoably_install_low_level_interrupt_handler(SIGTRAP, sigtrap_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)
Index: alpha-arch.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/alpha-arch.h,v
retrieving revision 1.1
retrieving revision 1.1.28.1
diff -u -d -r1.1 -r1.1.28.1
--- alpha-arch.h 15 Feb 2002 17:10:02 -0000 1.1
+++ alpha-arch.h 24 Aug 2003 21:00:44 -0000 1.1.28.1
@@ -1,6 +1,19 @@
#ifndef _ALPHA_ARCH_H
#define _ALPHA_ARCH_H
+
+static inline void
+get_spinlock(lispobj *word,int value)
+{
+ *word=value; /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+ *word=0;
+}
+
#define ARCH_HAS_FLOAT_REGISTERS
#endif /* _ALPHA_ARCH_H */
Index: hppa-arch.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/hppa-arch.c,v
retrieving revision 1.2
retrieving revision 1.2.10.1
diff -u -d -r1.2 -r1.2.10.1
--- hppa-arch.c 7 Apr 2003 13:16:59 -0000 1.2
+++ hppa-arch.c 24 Aug 2003 21:00:44 -0000 1.2.10.1
@@ -416,11 +416,6 @@
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)
{
Index: hppa-arch.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/hppa-arch.h,v
retrieving revision 1.1
retrieving revision 1.1.26.1
diff -u -d -r1.1 -r1.1.26.1
--- hppa-arch.h 19 Aug 2002 12:14:03 -0000 1.1
+++ hppa-arch.h 24 Aug 2003 21:00:44 -0000 1.1.26.1
@@ -1,6 +1,19 @@
#ifndef _HPPA_ARCH_H
#define _HPPA_ARCH_H
+
+static inline void
+get_spinlock(lispobj *word,int value)
+{
+ *word=value; /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+ *word=0;
+}
+
#define ARCH_HAS_NPC_REGISTER
#endif /* _HPPA_ARCH_H */
Index: interrupt.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interrupt.c,v
retrieving revision 1.41.2.4
retrieving revision 1.41.2.5
diff -u -d -r1.41.2.4 -r1.41.2.5
--- interrupt.c 22 Aug 2003 01:24:48 -0000 1.41.2.4
+++ interrupt.c 24 Aug 2003 21:00:44 -0000 1.41.2.5
@@ -67,6 +67,8 @@
void *handler, int signal,
siginfo_t *info,
os_context_t *context);
+boolean interrupt_maybe_gc_int(int signal, siginfo_t *info, void *v_context);
+
extern lispobj all_threads_lock;
extern int countdown_to_gc;
Index: mips-arch.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/mips-arch.c,v
retrieving revision 1.3
retrieving revision 1.3.10.1
diff -u -d -r1.3 -r1.3.10.1
--- mips-arch.c 7 Apr 2003 13:17:04 -0000 1.3
+++ mips-arch.c 24 Aug 2003 21:00:44 -0000 1.3.10.1
@@ -351,11 +351,6 @@
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)
Index: mips-arch.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/mips-arch.h,v
retrieving revision 1.1
retrieving revision 1.1.26.1
diff -u -d -r1.1 -r1.1.26.1
--- mips-arch.h 1 Sep 2002 22:34:18 -0000 1.1
+++ mips-arch.h 24 Aug 2003 21:00:44 -0000 1.1.26.1
@@ -1,4 +1,17 @@
#ifndef _MIPS_ARCH_H
#define _MIPS_ARCH_H
+
+static inline void
+get_spinlock(lispobj *word,int value)
+{
+ *word=value; /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+ *word=0;
+}
+
#endif /* _MIPS_ARCH_H */
Index: ppc-arch.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-arch.c,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -u -d -r1.6 -r1.6.2.1
--- ppc-arch.c 29 Jul 2003 13:01:56 -0000 1.6
+++ ppc-arch.c 24 Aug 2003 21:00:44 -0000 1.6.2.1
@@ -95,14 +95,6 @@
}
void
-get_spinlock(lispobj *word,int value)
-{
- /* FIXME */
- *word=value;
-}
-
-
-void
arch_remove_breakpoint(void *pc, unsigned long orig_inst)
{
*(unsigned long *)pc = orig_inst;
Index: ppc-arch.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-arch.h,v
retrieving revision 1.1
retrieving revision 1.1.28.1
diff -u -d -r1.1 -r1.1.28.1
--- ppc-arch.h 18 Mar 2002 17:59:37 -0000 1.1
+++ ppc-arch.h 24 Aug 2003 21:00:44 -0000 1.1.28.1
@@ -1,6 +1,19 @@
#ifndef _PPC_ARCH_H
#define _PPC_ARCH_H
+static inline void
+get_spinlock(lispobj *word,int value)
+{
+ *word=value; /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+ *word=0;
+}
+
+
#define ARCH_HAS_LINK_REGISTER
#endif /* _PPC_ARCH_H */
Index: sparc-arch.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/sparc-arch.c,v
retrieving revision 1.9
retrieving revision 1.9.8.1
diff -u -d -r1.9 -r1.9.8.1
--- sparc-arch.c 26 Apr 2003 22:32:30 -0000 1.9
+++ sparc-arch.c 24 Aug 2003 21:00:44 -0000 1.9.8.1
@@ -351,11 +351,6 @@
undoably_install_low_level_interrupt_handler(SIGEMT, sigemt_handler);
}
-void get_spinlock(lispobj *word, int value) {
- /* FIXME: dummy definition */
- *word = value;
-}
-
extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
Index: sparc-arch.h
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/sparc-arch.h,v
retrieving revision 1.1
retrieving revision 1.1.28.1
diff -u -d -r1.1 -r1.1.28.1
--- sparc-arch.h 15 Feb 2002 17:10:02 -0000 1.1
+++ sparc-arch.h 24 Aug 2003 21:00:44 -0000 1.1.28.1
@@ -1,6 +1,18 @@
#ifndef _SPARC_ARCH_H
#define _SPARC_ARCH_H
+static inline void
+get_spinlock(lispobj *word,int value)
+{
+ *word=value; /* FIXME for threads */
+}
+
+static inline void
+release_spinlock(lispobj *word)
+{
+ *word=0;
+}
+
#define ARCH_HAS_NPC_REGISTER
#endif /* _SPARC_ARCH_H */
|