#include "sbcl.h"
#include "globals.h"
+#include "runtime.h"
#include <signal.h>
#include <ucontext.h>
+#include <limits.h>
+#include <mach-o/dyld.h>
#include "bsd-os.h"
+#ifdef LISP_FEATURE_SB_THREAD
+#error "Define threading support functions"
+#else
+int arch_os_thread_init(struct thread *thread) {
+ return 1; /* success */
+}
+int arch_os_thread_cleanup(struct thread *thread) {
+ return 1; /* success */
+}
+#endif
+
os_context_register_t *
os_context_register_addr(os_context_t *context, int offset)
{
return &context->uc_mcontext->ss.lr;
}
+os_context_register_t *
+os_context_pc_addr(os_context_t *context)
+{
+ return &context->uc_mcontext->ss.srr0;
+}
+
void
os_flush_icache(os_vm_address_t address, os_vm_size_t length)
{
/* see ppc-arch.c */
ppc_flush_icache(address,length);
}
+