X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=c8ef4802deee65097222f7234884fdb83c864698;hb=0e3c4b4db102bd204a30402d7e5a0de44aea57ce;hp=ade8d9235b1bd979ecc128344cbfd71d84a313ea;hpb=d8e682fdfb7e8ba067e15aea0f3d1f8d37ca9eb1;p=sbcl.git diff --git a/src/runtime/arch.h b/src/runtime/arch.h index ade8d92..c8ef480 100644 --- a/src/runtime/arch.h +++ b/src/runtime/arch.h @@ -22,24 +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 int 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__ */