X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.c;h=f91a065a109750c40a5c47842a0044864acb308f;hb=83312cce6ee1c74fe99805831afb5cfbcb4248bd;hp=9e8abb6e76e7b316134a95bb3036ca94f2a7fc10;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c index 9e8abb6..f91a065 100644 --- a/src/runtime/hppa-arch.c +++ b/src/runtime/hppa-arch.c @@ -11,9 +11,9 @@ #include /* Copied from sparc-arch.c. Not all of these are necessary, probably */ +#include "sbcl.h" #include "runtime.h" #include "arch.h" -#include "sbcl.h" #include "globals.h" #include "validate.h" #include "os.h" @@ -416,6 +416,7 @@ void arch_install_interrupt_handlers(void) undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler); } + lispobj funcall0(lispobj function) { lispobj *args = current_control_stack_pointer;