code: purgatorio

ref: 76f5318cbd58fbe2bfc8cb51856bfa217c673bb7
dir: /lib9/setfcr-AIX-power.c/

View raw version 
#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);
}