diff options
| author | Yaroslav Kolomiiets <yarikos@gmail.com> | 2017-02-27 17:23:28 +0200 |
|---|---|---|
| committer | Yaroslav Kolomiiets <yarikos@gmail.com> | 2017-02-27 17:23:28 +0200 |
| commit | 7ef44d652ae9e5e1f5b3465d73684e4a54de73c0 (patch) | |
| tree | 2c76cd7d21332631439d1dc60d87cb66fd47db34 /lib9/setfcr-AIX-power.c | |
| parent | fd29964f362afd85503d5f005122cedf030c6aa1 (diff) | |
add AIX/power port
Diffstat (limited to 'lib9/setfcr-AIX-power.c')
| -rw-r--r-- | lib9/setfcr-AIX-power.c | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/lib9/setfcr-AIX-power.c b/lib9/setfcr-AIX-power.c new file mode 100644 index 00000000..60939a27 --- /dev/null +++ b/lib9/setfcr-AIX-power.c @@ -0,0 +1,39 @@ +#include "lib9.h" + +ulong +getfcr(void) +{ + double fpscr; + + fpscr = __readflm(); + return ((ulong*)&fpscr)[1]; +} + +ulong +getfsr(void) +{ + double fpscr; + + fpscr = __readflm(); + return ((ulong*)&fpscr)[1]; +} + +void +setfsr(ulong fsr) +{ + double fpscr; + + fpscr = __readflm(); + (((ulong*)&fpscr)[1]) = fsr; + __setflm(fpscr); +} + +void +setfcr(ulong fcr) +{ + double fpscr; + + fpscr = __readflm(); + (((ulong*)&fpscr)[1]) = fcr; + __setflm(fpscr); +} |
