X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fppc-arch.c;h=3d209e935afc2555128bd245a09f1e4c509af97b;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=5e44b6319aaa386ec367c135ef56881aab93182c;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/runtime/ppc-arch.c b/src/runtime/ppc-arch.c
index 5e44b63..3d209e9 100644
--- a/src/runtime/ppc-arch.c
+++ b/src/runtime/ppc-arch.c
@@ -49,7 +49,7 @@ arch_get_bad_addr(int sig, siginfo_t *code, os_context_t *context)
     if ((((unsigned long)pc) & 3) != 0 ||
 	((pc < READ_ONLY_SPACE_START ||
 	  pc >= READ_ONLY_SPACE_START+READ_ONLY_SPACE_SIZE) &&
-	 ((lispobj *)pc < current_dynamic_space &&
+	 ((lispobj *)pc < current_dynamic_space || 
 	  (lispobj *)pc >= current_dynamic_space + DYNAMIC_SPACE_SIZE)))
 	return 0;
     
@@ -98,6 +98,14 @@ arch_install_breakpoint(void *pc)
 }
 
 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;