X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=15b5d7239f376431a4e2733462b78ce300f03ff8;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=14ba2f4b011f50df38be2b022a49f8a424a7c6dd;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/arch.h b/src/runtime/arch.h
index 14ba2f4..15b5d72 100644
--- a/src/runtime/arch.h
+++ b/src/runtime/arch.h
@@ -9,17 +9,18 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #ifndef __ARCH_H__
 #define __ARCH_H__
 
 #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*);
@@ -29,11 +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__ */