From 7ef44d652ae9e5e1f5b3465d73684e4a54de73c0 Mon Sep 17 00:00:00 2001 From: Yaroslav Kolomiiets Date: Mon, 27 Feb 2017 17:23:28 +0200 Subject: add AIX/power port --- lib9/setfcr-AIX-power.c | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 lib9/setfcr-AIX-power.c (limited to 'lib9/setfcr-AIX-power.c') 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); +} -- cgit v1.2.3