src/float/misc/cl_F_mostneg.cc

   1 // most_negative_float().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 CL_PROVIDE(cl_F_mostneg)
   7
   8 // Specification.
   9 #include "cl_float.h"
  10
  11 // Implementation.
  12
  13 #include "cl_F.h"
  14 #include "cl_SF.h"
  15 #include "cl_FF.h"
  16 #include "cl_DF.h"
  17 #include "cl_LF.h"
  18 #include "cl_LF_impl.h"
  19
  20 // Exponent so groß wie möglich, Mantisse 1...1, Vorzeichen -.
  21
  22 static const cl_SF most_negative_SF =
  23         make_SF(-1,SF_exp_high,bit(SF_mant_len+1)-1);
  24
  25 static const cl_FF most_negative_FF =
  26         encode_FF(-1,FF_exp_high-FF_exp_mid,bit(FF_mant_len+1)-1);
  27
  28 static const cl_DF most_negative_DF =
  29 #if (cl_word_size==64)
  30         encode_DF(-1,DF_exp_high-DF_exp_mid,bit(DF_mant_len+1)-1);
  31 #else
  32         encode_DF(-1,DF_exp_high-DF_exp_mid,bit(DF_mant_len-32+1)-1,bitm(32)-1);
  33 #endif
  34
  35 inline const cl_LF most_negative_LF (uintC len)
  36 {
  37         var Lfloat erg = allocate_lfloat(len,LF_exp_high,-1);
  38         fill_loop_up(&TheLfloat(erg)->data[0],len,~(uintD)0);
  39         return erg;
  40 }
  41
  42 const cl_F most_negative_float (cl_float_format_t f)
  43 {
  44         floatformatcase((uintL)f
  45         ,       return most_negative_SF;
  46         ,       return most_negative_FF;
  47         ,       return most_negative_DF;
  48         ,       return most_negative_LF(len);
  49         );
  50 }
  51
  52 CL_PROVIDE_END(cl_F_mostneg)