src/float/dfloat/elem/cl_DF_to_I.cc

   1 // cl_DF_to_I().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_DF.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cln/integer.h"
  13 #include "cl_I.h"
  14
  15 namespace cln {
  16
  17 const cl_I cl_DF_to_I (const cl_DF& x)
  18 {
  19 // Methode:
  20 // Falls x=0.0, Ergebnis 0.
  21 // Sonst (ASH Vorzeichen*Mantisse (e-53)).
  22 #if (cl_word_size==64)
  23       // x entpacken:
  24       var cl_signean sign;
  25       var sintL exp;
  26       var sint64 mant;
  27       DF_decode(x, { return 0; }, sign=,exp=,mant=);
  28       exp = exp-(DF_mant_len+1);
  29       // mant mit Vorzeichen versehen:
  30       if (!(sign==0)) { mant = -mant; }
  31       // in ein Bignum umwandeln und shiften:
  32       return ash( Q_to_I(mant), exp );
  33 #else
  34       // x entpacken:
  35       var cl_signean sign;
  36       var sintL exp;
  37       var sint32 manthi;
  38       var uint32 mantlo;
  39       DF_decode2(x, { return 0; }, sign=,exp=,manthi=,mantlo=);
  40       exp = exp-(DF_mant_len+1);
  41       // mant mit Vorzeichen versehen:
  42       if (!(sign==0))
  43         { manthi = -manthi; mantlo = -mantlo; if (!(mantlo==0)) { manthi -= 1; } }
  44       // in ein Bignum umwandeln und shiften:
  45       return ash( L2_to_I(manthi,mantlo), exp );
  46 #endif
  47 }
  48
  49 }  // namespace cln