src/float/ffloat/conv/cl_FF_to_floatj.cc

   1 // cl_FF_to_float().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_FF.h"
   8
   9
  10 // Implementation.
  11
  12 void cl_FF_to_float (const cl_FF& obj, ffloatjanus* val_)
  13 {
  14         var ffloat val = cl_ffloat_value(obj);
  15         // Der Exponent muß um FF_exp_mid-126 erniedrigt werden.
  16         if (FF_exp_mid>126)
  17           { var uintL exp = (val >> FF_mant_len) & (bit(FF_exp_len)-1); // e
  18             if (exp < FF_exp_mid-126+1)
  19               { // produziere denormalisiertes Float
  20                 val = (val & minus_bit(FF_exp_len+FF_mant_len)) // selbes Vorzeichen
  21                       | (0 << FF_mant_len) // Exponent 0
  22                       | (((val & (bit(FF_mant_len)-1)) | bit(FF_mant_len)) // Mantisse shiften
  23                          >> (FF_exp_mid-126+1 - exp) // shiften
  24                         );
  25               }
  26               else
  27               { val -= (FF_exp_mid - 126) << FF_mant_len; }
  28           }
  29         val_->eksplicit = val;
  30 }