src/float/conv/cl_FF_to_DF.cc

   1 // cl_FF_to_DF().
   2
   3 // General includes.
   4 #include "base/cl_sysdep.h"
   5
   6 // Specification.
   7 #include "float/cl_F.h"
   8
   9
  10 // Implementation.
  11
  12 #include "float/ffloat/cl_FF.h"
  13 #include "float/dfloat/cl_DF.h"
  14
  15 namespace cln {
  16
  17 const cl_DF cl_FF_to_DF (const cl_FF& x)
  18 {
  19         // x entpacken:
  20         var cl_signean sign;
  21         var sintL exp;
  22         var uint32 mant;
  23         FF_decode(x, { return cl_DF_0; }, sign=,exp=,mant=);
  24         // Mantisse um 52-23=29 Nullbits erweitern:
  25         #if (cl_word_size==64)
  26         return encode_DF(sign,exp,(uint64)mant<<(DF_mant_len-FF_mant_len));
  27         #else
  28         return encode_DF(sign,exp,mant>>(32-(DF_mant_len-FF_mant_len)),mant<<(DF_mant_len-FF_mant_len));
  29         #endif
  30 }
  31
  32 }  // namespace cln