src/float/ffloat/elem/cl_FF_to_I.cc

   1 // cl_FF_to_I().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_FF.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_FF_to_I (const cl_FF& x)
  18 {
  19 // Methode:
  20 // Falls x=0.0, Ergebnis 0.
  21 // Sonst (ASH Vorzeichen*Mantisse (e-24)).
  22       // x entpacken:
  23       var cl_signean sign;
  24       var sintL exp;
  25       var uint32 mant;
  26       FF_decode(x, { return 0; }, sign=,exp=,mant=);
  27       exp = exp-(FF_mant_len+1);
  28       return ash(
  29         // mant >0, <2^(FF_mant_len+1) in ein Fixnum umwandeln:
  30         #if (FF_mant_len+1 < cl_value_len)
  31           L_to_FN(sign==0 ? (sintL)mant : -(sintL)mant)
  32         #else
  33           L_to_I(sign==0 ? (sintL)mant : -(sintL)mant)
  34         #endif
  35         ,exp
  36         );
  37 }
  38
  39 }  // namespace cln