-/*
-
- $Header$
-
- This code was written as part of the CMU Common Lisp project at
- Carnegie Mellon University, and has been placed in the public domain.
-
-*/
-
#include <stdio.h>
#include "arch.h"
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;
}
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;
int badinst;
u32 code;
sigset_t *mask;
+#ifdef LISP_FEATURE_LINUX
+ os_restore_fp_control(context);
+#endif
mask=(os_context_sigmask_addr(context));
sigsetmask(mask);
code=*((u32 *)(*os_context_pc_addr(context)));