Rev. 1.50, 10/04, page 379 of 448
} break;
case PZERO: switch (data_type_of(n)){
case PZERO:
case NZERO: invalid(n);break;
case PINF:
case NINF: break;
default: dz(n,sign_of(m)^sign_of(n));break;
} break;
case NZERO: switch (data_type_of(n)){
case PZERO:
case NZERO: invalid(n); break;
case PINF: inf(n,1); break;
case NINF: inf(n,0); break;
default: dz(FR[n],sign_of(m)^sign_of(n)); break;
} break;
case DENORM: set_E(); break;
case PINF :
case NINF : switch (data_type_of(n)){
case DENORM: set_E(); break;
case PINF:
case NINF: invalid(n); break;
default: zero(n,sign_of(m)^sign_of(n));break
} break;
}
}
void normal_fdiv(int m,n)
{
union {
float f;
int l;
} dstf,tmpf;
union {
double d;
int l[2];
} dstd,tmpd;
union {
int double x;