X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=f50e0d4d82df5ba9be0b62adc50ae08889454b44;hb=42f9c07927666c353a5eaf395718da5b6d12ce04;hp=147bd0f8d354dbec1acfa605fb29bed53555cb62;hpb=e4542bc034db18cf98f005b2dac53a6d7d5c7260;p=sbcl.git diff --git a/src/runtime/arch.h b/src/runtime/arch.h index 147bd0f..f50e0d4 100644 --- a/src/runtime/arch.h +++ b/src/runtime/arch.h @@ -43,4 +43,21 @@ extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1, 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__ */