Table of Contents
Advertisement
}
}
if((dstx.l[2] & 0x0fffffff) || dstx.l[3]) set_I();
dst.d += srcd.d; /* Round to nearest */
if(FPSCR_RM == 1) {
dstx.l[2] &= 0xf0000000; /* Round to zero */
dstx.l[3]
dst.d = dstx.x;
}
check_double_exception(&DR[n>>1] ,dst.d);
}
}
void normal_fmul(int m,n)
{
union {
float f;
int l;
}
tmpf;
union {
double d;
int l[2];
}
tmpd;
union {
long double x;
int l[4];
}
tmpx;
if(FPSCR_PR == 0) {
tmpd.d = FR[n]; /* Single-precision to double-precision */
tmpd.d *= FR[m]; /* Precise creation */
tmpf.f *= FR[m]; /* Round to nearest */
if(tmpf.f != tmpd.d) set_I();
if((tmpf.f > tmpd.d) && (FPSCR_RM == 1)) {
tmpf.l -= 1; /* Round to zero */
}
check_single_exception(&FR[n],tmpf.f);
}else {
tmpx.x = DR[n>>1]; /* Single-precision to double-precision */
= 0x00000000;
Rev. 2.0, 03/99, page 193 of 396
Advertisement
Table of Contents
