src/float/dfloat/misc/cl_DF_eqhashcode.cc

   1 // cl_DF equal_hashcode().
   2
   3 // General includes.
   4 #include "base/cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/dfloat.h"
   8
   9
  10 // Implementation.
  11
  12 #include "base/cl_N.h"
  13 #include "float/dfloat/cl_DF.h"
  14
  15 namespace cln {
  16
  17 CL_INLINE uint32 CL_INLINE_DECL(equal_hashcode) (const cl_DF& x)
  18 {
  19         var cl_signean sign;
  20         var sintL exp;
  21 #if (cl_word_size==64)
  22         var uint64 mant;
  23         DF_decode(x, { return 0; }, sign=,exp=,mant=);
  24         var uint32 msd = mant >> ((DF_mant_len+1)-32);
  25 #else
  26         var uint32 manthi;
  27         var uint32 mantlo;
  28         DF_decode2(x, { return 0; }, sign=,exp=,manthi=,mantlo=);
  29         var uint32 msd = (manthi << (64-(DF_mant_len+1)))
  30                          | (mantlo >> ((DF_mant_len+1)-32));
  31 #endif
  32         return equal_hashcode_low(msd,exp,sign);
  33 }
  34
  35 }  // namespace cln