ref: acc58dfee42368825f7595d63240fd6e88559776
dir: /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); }