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 "cl_dfloat.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_N.h"
  13 #include "cl_DF.h"
  14
  15 MAYBE_INLINE
  16 uint32 cl_equal_hashcode (const cl_DF& x)
  17 {
  18         var cl_signean sign;
  19         var sintL exp;
  20 #if (cl_word_size==64)
  21         var uint64 mant;
  22         DF_decode(x, { return 0; }, sign=,exp=,mant=);
  23         var uint32 msd = mant >> ((DF_mant_len+1)-32);
  24 #else
  25         var uint32 manthi;
  26         var uint32 mantlo;
  27         DF_decode2(x, { return 0; }, sign=,exp=,manthi=,mantlo=);
  28         var uint32 msd = (manthi << (64-(DF_mant_len+1)))
  29                          | (mantlo >> ((DF_mant_len+1)-32));
  30 #endif
  31         return equal_hashcode_low(msd,exp,sign);
  32 }