X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Farch.h;h=15b5d7239f376431a4e2733462b78ce300f03ff8;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=02a5d1897693ce6622cfc3022e0b0d43fe9c4e1b;hpb=62272dd0e7254b19a484fa1a2050ba15504d3ece;p=sbcl.git diff --git a/src/runtime/arch.h b/src/runtime/arch.h index 02a5d18..15b5d72 100644 --- a/src/runtime/arch.h +++ b/src/runtime/arch.h @@ -14,8 +14,13 @@ #include "os.h" #include "signal.h" +#include "thread.h" +/* Do anything we need to do when starting up the runtime environment + * on this architecture. */ extern void arch_init(void); + +/* FIXME: It would be good to document these too! */ extern void arch_skip_instruction(os_context_t*); extern boolean arch_pseudo_atomic_atomic(os_context_t*); extern void arch_set_pseudo_atomic_interrupted(os_context_t*); @@ -25,12 +30,16 @@ extern unsigned long arch_install_breakpoint(void *pc); extern void arch_remove_breakpoint(void *pc, unsigned long 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); +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); #endif /* __ARCH_H__ */