Table of Contents
Advertisement
case PZERO: switch (data_type_of(n)){
case PZERO:
case NZERO: invalid(n);break;
case PINF:
case NINF:
default:
case NZERO: switch (data_type_of(n)){
case PZERO:
case NZERO:
case PINF:
case NINF:
default:
}
case DENORM:
case PINF :
case NINF : switch (data_type_of(n)){
case DENORM: set_E(); break;
case PINF:
case NINF: invalid(n);
default:
}
}
}
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;
int l[4];
break;
dz(n,sign_of(m)^sign_of(n));break;
}
break;
invalid(n);
inf(n,1);
inf(n,0);
dz(FR[n],sign_of(m)^sign_of(n)); break;
break;
set_E();
zero(n,sign_of(m)^sign_of(n));break
break;
break;
break;
break;
break;
break;
Rev. 2.0, 03/99, page 255 of 396
Advertisement
Table of Contents
