Beispiel #1
0
//
//  Float_Int16: C
//
REBINT Float_Int16(REBD32 f)
{
    if (fabs(f) > (REBD32)(0x7FFF)) {
        DS_PUSH_DECIMAL(f);
        fail (Error_Out_Of_Range(DS_TOP));
    }
    return (REBINT)f;
}
Beispiel #2
0
*/	REBINT Float_Int16(REBD32 f)
/*
***********************************************************************/
{
	if (fabs(f) > (REBD32)(0x7FFF)) {
		DS_PUSH_DECIMAL(f);
		Trap_Range(DS_TOP);
	}
	return (REBINT)f;
}