X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=5734ac1183b85734d7d2cfa8a3b5de41ca162061;hb=ded744f74ab2f1a97679ad4f91e0eb8d995daef2;hp=cb465733844aa0b13960ab0cb6259bf0de3b8ea5;hpb=9ab3c4123f5802bc5d4771eda564680d1a2c1a2f;p=sbcl.git diff --git a/src/runtime/interr.c b/src/runtime/interr.c index cb46573..5734ac1 100644 --- a/src/runtime/interr.c +++ b/src/runtime/interr.c @@ -17,11 +17,11 @@ #include #include +#include "sbcl.h" #include "arch.h" #include "signal.h" #include "runtime.h" -#include "sbcl.h" #include "interr.h" #include "print.h" #include "lispregs.h" @@ -114,7 +114,7 @@ describe_internal_error(os_context_t *context) case sc_BaseCharReg: ch = *os_context_register_addr(context, offset); -#ifdef __i386__ +#ifdef LISP_FEATURE_X86 if (offset&1) ch = ch>>8; ch = ch & 0xff;