diff options
| author | Valery Ushakov <uwe@stderr.spb.ru> | 2019-03-10 03:44:16 +0200 |
|---|---|---|
| committer | Valery Ushakov <uwe@stderr.spb.ru> | 2019-03-10 03:44:16 +0200 |
| commit | 594bd56378a3a707845dd8813881c427a3a8d16e (patch) | |
| tree | 5f18116b77d615f40c50d449a332dafd21347c05 /lib9/setfcr-AIX-power.c | |
| parent | 9b7850d511c2c910abfb42ece20650b97fba5a72 (diff) | |
| parent | 55520626f59983d296c98c008af92f7c5c27bf5f (diff) | |
Merged default into NetBSD/pthreads
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); +} |
