ref: fb7dd4b3a868cb8987049c95bb32e6425a73c8b9
dir: purgatorio/lib9/setfcr-AIX-power.c
#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); }