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/getcallerpc-AIX-power.c | 12 ++++++++++++ lib9/setfcr-AIX-power.c | 39 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 51 insertions(+) create mode 100644 lib9/getcallerpc-AIX-power.c create mode 100644 lib9/setfcr-AIX-power.c (limited to 'lib9') diff --git a/lib9/getcallerpc-AIX-power.c b/lib9/getcallerpc-AIX-power.c new file mode 100644 index 00000000..4a4e4fb5 --- /dev/null +++ b/lib9/getcallerpc-AIX-power.c @@ -0,0 +1,12 @@ +#include + +ulong +getcallerpc(void *x) +{ +ulong *lp; + + lp = x; + + return lp[-1]; +} + 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