src/float/dfloat/misc/cl_DF_eqhashcode.cc

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