SH-2A Datasheet, PDF (94/501 Pages) Renesas Technology Corp – Renesas 32-Bit RISC Microcomputer SuperH™ RISC engine Family

Section 6 Instruction Descriptions
}
}
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)
{
union {
float f;
int l;
} dstf,srcf;
union {
long d;
int l[2];
} dstd,srcd;
union {
/* “long double” format: */
long double x; /* 1-bit sign
*/
int l[4];
/* 15-bit exponent */
} dstx;
/* 112-bit mantissa */
if(FPSCR_PR == 0) {
if(type == FADD)
srcf.f = FR[m];
else
srcf.f = -FR[m];
dstd.d = FR[n]; /* Conversion from single-precision to double-precision */
dstd.d += srcf.f;
if(((dstd.d == FR[n]) && (srcf.f != 0.0)) ||
((dstd.d == srcf.f) && (FR[n] != 0.0))) {
set_I();
if(sign_of(m)^ sign_of(n)) {
dstd.l[1] -= 1;
if(dstd.l[1] == 0xffffffff) dstd.l[0] -= 1;
}
}
if(dstd.l[1] & 0x1fffffff) set_I();
Rev. 3.00 Jul 08, 2005 page 80 of 484
REJ09B0051-0300