Table of Contents
Advertisement
else
}
/* Double-precision */
else {
if(abs < 0x00100000){
if((FPSCR_DN == 1) ||
((abs == 0x00000000) && (FR_HEX[n+1] == 0x00000000)){
}
else
}
else if(abs < 0x7ff00000) return(NORM);
else if((abs == 0x7ff00000) &&
if(sign_of(n) == 0) return(PINF);
else
}
else if(abs < 0x7ff80000) return(qNaN);
else
}
}
void register_copy(int m,n)
{
if(FPSCR_PR == 1)
}
void normal_faddsub(int m,n,type)
{
union {
float f;
int l;
}
dstf,srcf;
union {
long d;
int l[2];
}
dstd,srcd;
union {
if(sign_of(n) == 0)
else
(FR_HEX[n+1] == 0x00000000)) {
FR[n]
FR[n+1] = FR[m+1];
/* "long double" format:
return(sNaN);
{zero(n, 0); return(PZERO);}
{zero(n, 1); return(NZERO);}
return(DENORM);
return(NINF);
return(sNaN);
= FR[m];
*/
Rev. 2.0, 03/99, page 191 of 396
Advertisement
Table of Contents
