summaryrefslogtreecommitdiff
path: root/lib9/setfcr-AIX-power.c
diff options
context:
space:
mode:
authorValery Ushakov <uwe@stderr.spb.ru>2019-03-10 03:44:16 +0200
committerValery Ushakov <uwe@stderr.spb.ru>2019-03-10 03:44:16 +0200
commit594bd56378a3a707845dd8813881c427a3a8d16e (patch)
tree5f18116b77d615f40c50d449a332dafd21347c05 /lib9/setfcr-AIX-power.c
parent9b7850d511c2c910abfb42ece20650b97fba5a72 (diff)
parent55520626f59983d296c98c008af92f7c5c27bf5f (diff)
Merged default into NetBSD/pthreads
Diffstat (limited to 'lib9/setfcr-AIX-power.c')
-rw-r--r--lib9/setfcr-AIX-power.c39
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);
+}