// // 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; }
*/ REBINT Float_Int16(REBD32 f) /* ***********************************************************************/ { if (fabs(f) > (REBD32)(0x7FFF)) { DS_PUSH_DECIMAL(f); Trap_Range(DS_TOP); } return (REBINT)f; }