Sgl_set_exponent
else Sgl_set_exponent(result,dest_exponent);
Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);
Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);
Sgl_set_exponent(result,SGL_BIAS);
Sgl_set_exponent(result,SGL_BIAS);
Sgl_set_exponent(result,SGL_BIAS);
Sgl_set_exponent(result,src_exponent + (SGL_BIAS+1));
else Sgl_set_exponent(result,src_exponent + SGL_BIAS);
Sgl_set_exponent(result,/*using*/result_exponent);
Sgl_set_exponent(result,/*using*/result_exponent);
else Sgl_set_exponent(result,result_exponent);
else Sgl_set_exponent(result,dest_exponent);
else Sgl_set_exponent(result,dest_exponent);
else Sgl_set_exponent(result,dest_exponent);
Sgl_set_exponent(result,
Sgl_set_exponent(result,((src_exponent-SGL_BIAS)>>1)+SGL_BIAS);
Sgl_set_exponent(result,/*using*/result_exponent);
Sgl_set_exponent(result,/*using*/result_exponent);
else Sgl_set_exponent(result,result_exponent);