예제 #1
0
파일: f-stubs.c 프로젝트: kjanz1899/ren-c
//
//  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;
}
예제 #2
0
파일: f-stubs.c 프로젝트: 51weekend/r3
*/	REBINT Float_Int16(REBD32 f)
/*
***********************************************************************/
{
	if (fabs(f) > (REBD32)(0x7FFF)) {
		DS_PUSH_DECIMAL(f);
		Trap_Range(DS_TOP);
	}
	return (REBINT)f;
}