From 04d2181bc05242c53f5fd4cb782191bafe53ded1 Mon Sep 17 00:00:00 2001 From: Charles Forsyth Date: Sat, 18 Jul 2015 12:33:55 +0100 Subject: move setfcr to lib9 --- lib9/setfcr-Solaris-sparc.c | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 lib9/setfcr-Solaris-sparc.c (limited to 'lib9') diff --git a/lib9/setfcr-Solaris-sparc.c b/lib9/setfcr-Solaris-sparc.c new file mode 100644 index 00000000..405e9cf2 --- /dev/null +++ b/lib9/setfcr-Solaris-sparc.c @@ -0,0 +1,42 @@ +/* This code is a little awkward. If somebody who understands Solaris + better would tell me an idiomatic way to invoke equivalent + behavior, I'd be grateful. ehg@bell-labs.com */ + +#include "lib9.h" + +ulong +getfcr(void) +{ + ulong v; + + asm(" st %fsr, [%fp-8]"); + return v; +} + +void +setfcr(ulong v) +{ + ulong vv; + + vv = (getfcr() & ~FPFCR) | (v & FPFCR); + asm(" ld [%fp-4], %fsr"); +} + +ulong +getfsr(void) +{ + ulong v; + + asm(" st %fsr, [%fp-8]"); + return v; +} + +void +setfsr(ulong v) +{ + ulong vv; + + vv = (getfsr() & ~FPFSR) | (v & FPFSR); + asm(" ld [%fp-4], %fsr"); +} + -- cgit v1.2.3