Hitachi SH7750 Programming Manual page 204

#define FPSCR_I
#define FPSCR_RM
#define FR_HEX
#define FR
#define DR
#define XF_HEX
#define XF
#define XD
union {
int l[2][16];
float f[2][16];
double d[2][8];
}frf;
int FPSCR;
int sign_of(int n)
{
return(FR_HEX[n]>>31);
}
int data_type_of(int n) {
int abs;
abs = FR_HEX[n] & 0x7fffffff;
if(FPSCR_PR == 0) { /* Single-precision */
if(abs < 0x00800000){
if((FPSCR_DN == 1) || (abs == 0x00000000)){
}
else
}
else if(abs < 0x7f800000)
else if(abs == 0x7f800000) {
if(sign_of(n) == 0)
else
}
else if(abs < 0x7fc00000)
Rev. 2.0, 03/99, page 190 of 396
FPSCR>>12&1
FPSCR&1
frf.l[ FPSCR_FR]
frf.f[ FPSCR_FR]
frf.d[ FPSCR_FR]
frf.l[~FPSCR_FR]
frf.f[~FPSCR_FR]
frf.d[~FPSCR_FR]
if(sign_of(n) == 0)
else
{zero(n, 0); return(PZERO);}
{zero(n, 1); return(NZERO);}
return(DENORM);
return(NORM);
return(PINF);
return(NINF);
return(qNaN);