shithub: purgatorio

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