From: Christophe R. <cr...@us...> - 2004-01-09 10:44:59
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs1:/tmp/cvs-serv2239/src/runtime Modified Files: ppc-linux-os.c Log Message: 0.8.7.12: Merge patch (Eric Marsden sbcl-devel 2004-01-08) for build on PPC/Linux ... less fragile than my version, so in it goes Index: ppc-linux-os.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-linux-os.c,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- ppc-linux-os.c 3 Oct 2003 10:59:34 -0000 1.10 +++ ppc-linux-os.c 9 Jan 2004 10:44:55 -0000 1.11 @@ -53,7 +53,7 @@ #if defined(GLIBC231_STYLE_UCONTEXT) return &((context->uc_mcontext.regs)->gpr[offset]); #elif defined(GLIBC232_STYLE_UCONTEXT) - return &((context->uc_regs->gregs)[offset]); + return &((context->uc_mcontext.uc_regs->gregs)[offset]); #endif } @@ -63,7 +63,7 @@ #if defined(GLIBC231_STYLE_UCONTEXT) return &((context->uc_mcontext.regs)->nip); #elif defined(GLIBC232_STYLE_UCONTEXT) - return &((context->uc_regs->gregs)[PT_NIP]); + return &((context->uc_mcontext.uc_regs->gregs)[PT_NIP]); #endif } @@ -73,7 +73,7 @@ #if defined(GLIBC231_STYLE_UCONTEXT) return &((context->uc_mcontext.regs)->link); #elif defined(GLIBC232_STYLE_UCONTEXT) - return &((context->uc_regs->gregs)[PT_LNK]); + return &((context->uc_mcontext.uc_regs->gregs)[PT_LNK]); #endif } @@ -83,7 +83,7 @@ #if defined(GLIBC231_STYLE_UCONTEXT) return &context->uc_sigmask; #elif defined(GLIBC232_STYLE_UCONTEXT) - return &context->uc_oldsigmask; + return &context->uc_sigmask; #endif } @@ -98,7 +98,7 @@ #if defined(GLIBC231_STYLE_UCONTEXT) return context->uc_mcontext.regs->gpr[PT_FPSCR]; #elif defined(GLIBC232_STYLE_UCONTEXT) - return context->uc_regs->gregs[PT_FPSCR]; + return context->uc_mcontext.uc_regs->gregs[PT_FPSCR]; #endif } |