7 #include "cln/dfloat.h"
18 const cl_DF scale_float (const cl_DF& x, const cl_I& delta)
21 // x=0.0 -> x als Ergebnis
22 // delta muß ein Fixnum betragsmäßig <= DF_exp_high-DF_exp_low sein.
23 // Neues DF mit um delta vergrößertem Exponenten bilden.
27 #if (cl_word_size==64)
29 DF_decode(x, { return x; }, sign=,exp=,mant=);
33 DF_decode2(x, { return x; }, sign=,exp=,manthi=,mantlo=);
39 && ((udelta = FN_to_V(delta)) <= (uintV)(DF_exp_high-DF_exp_low))
42 #if (cl_word_size==64)
43 return encode_DF(sign,exp,mant);
45 return encode_DF(sign,exp,manthi,mantlo);
49 { cl_error_floating_point_overflow(); }
55 && ((udelta = -FN_to_V(delta)) <= (uintV)(DF_exp_high-DF_exp_low))
56 && ((cl_value_len+1<intVsize) || !(udelta==0))
59 #if (cl_word_size==64)
60 return encode_DF(sign,exp,mant);
62 return encode_DF(sign,exp,manthi,mantlo);
66 if (underflow_allowed())
67 { cl_error_floating_point_underflow(); }