X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=2e62266d55be768c64088f72631c5162d918d48d;hb=ed1910efb36f71b5ebe33b5ffffd7195e15644de;hp=ade8d9235b1bd979ecc128344cbfd71d84a313ea;hpb=d8e682fdfb7e8ba067e15aea0f3d1f8d37ca9eb1;p=sbcl.git diff --git a/src/runtime/arch.h b/src/runtime/arch.h index ade8d92..2e62266 100644 --- a/src/runtime/arch.h +++ b/src/runtime/arch.h @@ -22,15 +22,17 @@ 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); extern int arch_os_thread_cleanup(struct thread *thread); @@ -39,7 +41,24 @@ 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 fpu_save(void *); +extern void fpu_restore(void *); + +#ifdef LISP_FEATURE_X86 +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__ */