X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-darwin-os.c;h=46c9ef0ac35e592ae4af4ca90297d9e823260ba2;hb=4e6e3fc3fb6d530d489462fb2cbbe378a2ab0337;hp=46c7b738e5973effa49a54d480f8b8a5932e26e5;hpb=2aa6e79b681cf29b047ca66215c1544f0fac0067;p=sbcl.git

diff --git a/src/runtime/ppc-darwin-os.c b/src/runtime/ppc-darwin-os.c
index 46c7b73..46c9ef0 100644
--- a/src/runtime/ppc-darwin-os.c
+++ b/src/runtime/ppc-darwin-os.c
@@ -124,15 +124,13 @@ os_context_lr_addr(os_context_t *context)
 os_context_register_t *
 os_context_ctr_addr(os_context_t *context)
 {
-    /* FIXME: Figure out how to make this happen. */
-    lose("was asked for context Counter (CTR) register, but don't know how");
+    return (os_context_register_t *) &context->uc_mcontext->PPC_DARWIN_REGIFY(ss).PPC_DARWIN_REGIFY(ctr);
 }
 
 os_context_register_t *
 os_context_cr_addr(os_context_t *context)
 {
-    /* FIXME: Figure out how to make this happen. */
-    lose("was asked for context Condition (CR) register, but don't know how");
+    return (os_context_register_t *) &context->uc_mcontext->PPC_DARWIN_REGIFY(ss).PPC_DARWIN_REGIFY(cr);
 }
 
 os_context_register_t *