From 05ad80b2794b48ecc96b43c43577ae4a7ba2af6b Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Wed, 7 Sep 2005 22:53:19 +0000 Subject: [PATCH] Implement os_context_fpregister_addr for mips. --- src/runtime/mips-linux-os.c | 6 ++++++ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/runtime/mips-linux-os.c b/src/runtime/mips-linux-os.c index 1968c2a..04e106f 100644 --- a/src/runtime/mips-linux-os.c +++ b/src/runtime/mips-linux-os.c @@ -69,6 +69,12 @@ os_context_register_addr(os_context_t *context, int offset) } os_context_register_t * +os_context_fpregister_addr(os_context_t *context, int offset) +{ + return &(((struct sigcontext *)&(context->uc_mcontext))->sc_fpregs[offset]); +} + +os_context_register_t * os_context_pc_addr(os_context_t *context) { /* Why do I get all the silly ports? -- CSR, 2002-08-11 */ diff --git a/version.lisp-expr b/version.lisp-expr index fd4f555..3ba2365 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.4.36" +"0.9.4.37" -- 1.7.10.4