X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=c8ef4802deee65097222f7234884fdb83c864698;hb=961c6bf2eda5d492d5dbb7e275fe4e0931f7adf8;hp=2d7c10aa032a0620f29a58c87ce08028f8373a28;hpb=3a0a9c16a4ccaebd6423f4fe7870111c4dab25a8;p=sbcl.git

diff --git a/src/runtime/arch.h b/src/runtime/arch.h
index 2d7c10a..c8ef480 100644
--- a/src/runtime/arch.h
+++ b/src/runtime/arch.h
@@ -14,6 +14,7 @@
 
 #include "os.h"
 #include "signal.h"
+#include "thread.h"
 
 /* Do anything we need to do when starting up the runtime environment
  * on this architecture. */
@@ -21,20 +22,46 @@ extern void arch_init(void);
 
 /* FIXME: It would be good to document these too! */
 extern void arch_skip_instruction(os_context_t*);
+extern void arch_handle_allocation_trap(os_context_t*);
 extern boolean arch_pseudo_atomic_atomic(os_context_t*);
 extern void arch_set_pseudo_atomic_interrupted(os_context_t*);
+extern void arch_clear_pseudo_atomic_interrupted(os_context_t*);
 extern os_vm_address_t arch_get_bad_addr(int, siginfo_t*, os_context_t*);
 extern unsigned char *arch_internal_error_arguments(os_context_t*);
-extern unsigned long arch_install_breakpoint(void *pc);
-extern void arch_remove_breakpoint(void *pc, unsigned long orig_inst);
+extern unsigned int arch_install_breakpoint(void *pc);
+extern void arch_remove_breakpoint(void *pc, unsigned int orig_inst);
 extern void arch_install_interrupt_handlers(void);
 extern void arch_do_displaced_inst(os_context_t *context,
-				   unsigned long orig_inst);
+                                   unsigned int orig_inst);
+
+extern int arch_os_thread_init(struct thread *thread);
+#if defined(LISP_FEATURE_X86) && defined(LISP_FEATURE_SB_THREAD)
+extern void arch_os_load_ldt(struct thread *thread);
+#endif
+extern int arch_os_thread_cleanup(struct thread *thread);
+
 extern lispobj funcall0(lispobj function);
 extern lispobj funcall1(lispobj function, lispobj arg0);
 extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1);
 extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1,
-			lispobj arg2);
+                        lispobj arg2);
 extern lispobj *component_ptr_from_pc(lispobj *pc);
 
+extern void AMD64_SYSV_ABI fpu_save(void *);
+extern void AMD64_SYSV_ABI fpu_restore(void *);
+
+#if defined(LISP_FEATURE_X86)||defined(LISP_FEATURE_X86_64)
+extern unsigned int * single_stepping;
+extern void restore_breakpoint_from_single_step(os_context_t * context);
+#endif
+
+extern void arch_handle_breakpoint(os_context_t* context);
+extern void arch_handle_fun_end_breakpoint(os_context_t *context);
+#ifdef trap_AfterBreakpoint
+extern void arch_handle_after_breakpoint(os_context_t *context);
+#endif
+#ifdef trap_SingleStepAround
+extern void arch_handle_single_step_trap(os_context_t *context, int trap);
+#endif
+
 #endif /* __ARCH_H__ */