X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-64-linux-os.c;h=d6b1cb92ca705957269dabb83484258de0793c3d;hb=7e24349c17298e2959e853ea411b5f65d9f7f332;hp=0579730a63ec4ba253ecced0c27a93d6fd771a9c;hpb=1c6e1e0ccbad4cefe1984f4a1a45d81181718f65;p=sbcl.git diff --git a/src/runtime/x86-64-linux-os.c b/src/runtime/x86-64-linux-os.c index 0579730..d6b1cb9 100644 --- a/src/runtime/x86-64-linux-os.c +++ b/src/runtime/x86-64-linux-os.c @@ -48,7 +48,7 @@ #include #include #include -#include "thread.h" /* dynamic_values_bytes */ +#include "thread.h" /* dynamic_values_bytes */ #include "validate.h" size_t os_vm_page_size; @@ -87,25 +87,25 @@ os_context_register_addr(os_context_t *context, int offset) #define RCASE(name) case reg_ ## name: return &context->uc_mcontext.gregs[REG_ ## name]; switch(offset) { RCASE(RAX) - RCASE(RCX) - RCASE(RDX) - RCASE(RBX) - RCASE(RSP) - RCASE(RBP) - RCASE(RSI) - RCASE(RDI) - RCASE(R8) - RCASE(R9) - RCASE(R10) - RCASE(R11) - RCASE(R12) - RCASE(R13) - RCASE(R14) - RCASE(R15) - default: - if(offsetuc_mcontext.gregs[offset/2+4]; - else return 0; + RCASE(RCX) + RCASE(RDX) + RCASE(RBX) + RCASE(RSP) + RCASE(RBP) + RCASE(RSI) + RCASE(RDI) + RCASE(R8) + RCASE(R9) + RCASE(R10) + RCASE(R11) + RCASE(R12) + RCASE(R13) + RCASE(R14) + RCASE(R15) + default: + if(offsetuc_mcontext.gregs[offset/2+4]; + else return 0; } return &context->uc_mcontext.gregs[offset]; } @@ -118,7 +118,7 @@ os_context_pc_addr(os_context_t *context) os_context_register_t * os_context_sp_addr(os_context_t *context) -{ +{ return &context->uc_mcontext.gregs[REG_RSP]; } @@ -131,7 +131,7 @@ os_context_fp_addr(os_context_t *context) unsigned long os_context_fp_control(os_context_t *context) { - /* return the x87 exception flags ored in with the sse2 + /* return the x87 exception flags ored in with the sse2 * control+status flags */ unsigned int result = (context->uc_mcontext.fpregs->swd & 0x3F) | context->uc_mcontext.fpregs->mxcsr; /* flip exception mask bits */