ref: 82a3f55c5fb7b9f7a82449e4eb943c535ec3e491
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); }