Renesas SuperH SH-4A - Page 376

Rev. 1.50, 10/04, page 356 of 448
else if(abs < 0x7f800000) return(NORM);
else if(abs == 0x7f800000) {
if(sign_of(n) == 0) return(PINF);
else return(NINF);
}
else if(abs < 0x7fc00000) return(qNaN);
else return(sNaN);
}
else { /* Double-precision */
if(abs < 0x00100000){
if((FPSCR_DN == 1) ||
((abs == 0x00000000) && (FR_HEX[n+1] == 0x00000000)){
if(sign_of(n) == 0) {zero(n, 0); return(PZERO);}
else {zero(n, 1); return(NZERO);}
}
else return(DENORM);
}
}
else if(abs < 0x7ff00000) return(NORM);
else if((abs == 0x7ff00000) &&
(FR_HEX[n+1] == 0x00000000)) {
if(sign_of(n) == 0) return(PINF);
else return(NINF);
}
else if(abs < 0x7ff80000) return(qNaN);
else return(sNaN);
}
}
void register_copy(int m,n)
{
FR[n] = FR[m];
if(FPSCR_PR == 1) FR[n+1] = FR[m+1];
}
void normal_faddsub(int m,n,type)
{