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 "cl_integer.h"
  13 #include "cl_I.h"
  14
  15 const cl_I cl_DF_to_I (const cl_DF& x)
  16 {
  17 // Methode:
  18 // Falls x=0.0, Ergebnis 0.
  19 // Sonst (ASH Vorzeichen*Mantisse (e-53)).
  20 #if (cl_word_size==64)
  21       // x entpacken:
  22       var cl_signean sign;
  23       var sintL exp;
  24       var sint64 mant;
  25       DF_decode(x, { return 0; }, sign=,exp=,mant=);
  26       exp = exp-(DF_mant_len+1);
  27       // mant mit Vorzeichen versehen:
  28       if (!(sign==0)) { mant = -mant; }
  29       // in ein Bignum umwandeln und shiften:
  30       return ash( Q_to_I(mant), exp );
  31 #else
  32       // x entpacken:
  33       var cl_signean sign;
  34       var sintL exp;
  35       var sint32 manthi;
  36       var uint32 mantlo;
  37       DF_decode2(x, { return 0; }, sign=,exp=,manthi=,mantlo=);
  38       exp = exp-(DF_mant_len+1);
  39       // mant mit Vorzeichen versehen:
  40       if (!(sign==0))
  41         { manthi = -manthi; mantlo = -mantlo; if (!(mantlo==0)) { manthi -= 1; } }
  42       // in ein Bignum umwandeln und shiften:
  43       return ash( L2_to_I(manthi,mantlo), exp );
  44 #endif
  45 }