_f_real8 _SET_EXPONENT(_f_real8 x, _f_int i) { _f_real8 _SCALE(_f_real8 orig_number, _f_int orig_scale_factor); _f_real8 _FRACTION(_f_real8 x); return _SCALE(_FRACTION(x), i); }
_f_real8 _SET_EXPONENT_8_I8(_f_real8 x, _f_int8 i) { _f_real8 _SCALE(_f_real8 orig_number, _f_int orig_scale_factor); _f_real8 _FRACTION(_f_real8 x); _f_int def_orig_scale; def_orig_scale = i; return _SCALE(_FRACTION(x), def_orig_scale); }
/* provide this entry point only until the compiler changes to _FRACTION. */ _f_real8 _FRACTION_8(_f_real8 x) { _f_real8 _FRACTION(_f_real8 x); return (_FRACTION(x) ); }