Merged in yk/inferno-os/AIX-power (pull request #17)

AIX-power port

Approved-by: Charles Forsyth <charles.forsyth@gmail.com>

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);
+}