[Sbcl-commits] CVS: sbcl/src/runtime mips-linux-os.c,1.8,1.9

[Thiemo S. <th...@us...>]

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13343/src/runtime

Modified Files:
	mips-linux-os.c 
Log Message:
Implement os_context_fpregister_addr for mips.


Index: mips-linux-os.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/mips-linux-os.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- mips-linux-os.c	19 Aug 2005 22:21:02 -0000	1.8
+++ mips-linux-os.c	7 Sep 2005 22:53:19 -0000	1.9
@@ -69,6 +69,12 @@
 }
 
 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 */