X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=15b5d7239f376431a4e2733462b78ce300f03ff8;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=2d7c10aa032a0620f29a58c87ce08028f8373a28;hpb=3a0a9c16a4ccaebd6423f4fe7870111c4dab25a8;p=sbcl.git diff --git a/src/runtime/arch.h b/src/runtime/arch.h index 2d7c10a..15b5d72 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. */ @@ -29,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__ */