// cl_SF equal_hashcode(). // General includes. #include "cl_sysdep.h" // Specification. #include "cl_sfloat.h" // Implementation. #include "cl_N.h" #include "cl_SF.h" MAYBE_INLINE uint32 cl_equal_hashcode (const cl_SF& x) { var cl_signean sign; var sintL exp; var uint32 mant; SF_decode(x, { return 0; }, sign=,exp=,mant=); var uint32 msd = mant << (32-(SF_mant_len+1)); return equal_hashcode_low(msd,exp,sign); }