TItype __fixhfti (HFtype a) { FP_DECL_EX; FP_DECL_H (A); UTItype r; FP_INIT_EXCEPTIONS; FP_UNPACK_RAW_H (A, a); FP_TO_INT_H (r, A, TI_BITS, 1); FP_HANDLE_EXCEPTIONS; return r; }
TFtype __extendhftf2 (HFtype a) { FP_DECL_EX; FP_DECL_H (A); FP_DECL_Q (R); TFtype r; FP_INIT_EXCEPTIONS; FP_UNPACK_RAW_H (A, a); #if (2 * _FP_W_TYPE_SIZE) < _FP_FRACBITS_Q FP_EXTEND (Q, H, 4, 1, R, A); #else FP_EXTEND (Q, H, 2, 1, R, A); #endif FP_PACK_RAW_Q (r, R); FP_HANDLE_EXCEPTIONS; return r; }