Rev. 1.50, 10/04, page 371 of 448
case PINF : switch(data_type_of(n)){
case PINF :return(EQ); break;
default:return(LT); break;
} break;
case NINF : switch(data_type_of(n)){
case NINF :return(EQ); break;
default:return(GT); break;
} break;
}
if(FPSCR_PR == 0) {
if(FR[n] == FR[m]) return(EQ);
else if(FR[n] > FR[m]) return(GT);
else return(LT);
}else {
if(DR[n>>1] == DR[m>>1]) return(EQ);
else if(DR[n>>1] > DR[m>>1]) return(GT);
else return(LT);
}
}
void fcmp_invalid()
{
set_V(); if((FPSCR & ENABLE_V) == 0) T = 0;
else fpu_exception_trap();
}