X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-bsd-os.c;h=c71912d0c3b26eca7da836aa5874796525abad03;hb=1d06300e09f767a38bbe6d5b38232ca334ab1913;hp=a9f0ce56b620a153e7c6929a4ceea86422de1306;hpb=8694b0dfc9f55890eaff390453896b5f9c64e319;p=sbcl.git

diff --git a/src/runtime/ppc-bsd-os.c b/src/runtime/ppc-bsd-os.c
index a9f0ce5..c71912d 100644
--- a/src/runtime/ppc-bsd-os.c
+++ b/src/runtime/ppc-bsd-os.c
@@ -46,6 +46,26 @@ os_context_lr_addr(os_context_t *context)
 #endif
 }
 
+os_context_register_t *
+os_context_ctr_addr(os_context_t *context)
+{
+#if defined(LISP_FEATURE_NETBSD)
+    return &context->uc_mcontext.__gregs[_REG_CTR];
+#elif defined(LISP_FEATURE_OPENBSD)
+    return &context->sc_frame.ctr;
+#endif
+}
+
+os_context_register_t *
+os_context_cr_addr(os_context_t *context)
+{
+#if defined(LISP_FEATURE_NETBSD)
+    return &context->uc_mcontext.__gregs[_REG_CR];
+#elif defined(LISP_FEATURE_OPENBSD)
+    return &context->sc_frame.cr;
+#endif
+}
+
 /* FIXME: If this can be a no-op on BSD/x86, then it
  * deserves a more precise name.
  *