blob: 405e9cf21c142df13596b16f660e2c6e9d65b11a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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");
}
|
