xref: /inferno-os/lib9/setfcr-AIX-power.c (revision 0195c4e25fc394097552c7f5ebf3085ec2d201f5) 
1 #include "lib9.h"
2 
3 ulong
getfcr(void)4 getfcr(void)
5 {
6 	double fpscr;
7 
8 	fpscr = __readflm();
9 	return ((ulong*)&fpscr)[1];
10 }
11 
12 ulong
getfsr(void)13 getfsr(void)
14 {
15 	double fpscr;
16 
17 	fpscr = __readflm();
18 	return ((ulong*)&fpscr)[1];
19 }
20 
21 void
setfsr(ulong fsr)22 setfsr(ulong fsr)
23 {
24 	double fpscr;
25 
26 	fpscr = __readflm();
27 	(((ulong*)&fpscr)[1]) = fsr;
28 	__setflm(fpscr);
29 }
30 
31 void
setfcr(ulong fcr)32 setfcr(ulong fcr)
33 {
34 	double fpscr;
35 
36 	fpscr = __readflm();
37 	(((ulong*)&fpscr)[1]) = fcr;
38 	__setflm(fpscr);
39 }
40