X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Farch.h;h=7e745ab01ed86f95a78a2b64fff52551d5dcbba3;hb=cf4cb9554515c59eddbde38d1cf236339c37f55f;hp=02a5d1897693ce6622cfc3022e0b0d43fe9c4e1b;hpb=62272dd0e7254b19a484fa1a2050ba15504d3ece;p=sbcl.git

diff --git a/src/runtime/arch.h b/src/runtime/arch.h
index 02a5d18..7e745ab 100644
--- a/src/runtime/arch.h
+++ b/src/runtime/arch.h
@@ -15,7 +15,11 @@
 #include "os.h"
 #include "signal.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,7 +29,7 @@ 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 lispobj funcall0(lispobj function);
 extern lispobj funcall1(lispobj function, lispobj arg0);
 extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1);