/* Public domain. */ #if __LDBL_MANT_DIG__ == 106 typedef int DItype __attribute__ ((mode (DI))); typedef int SItype __attribute__ ((mode (SI))); typedef unsigned int UDItype __attribute__ ((mode (DI))); typedef unsigned int USItype __attribute__ ((mode (SI))); typedef float DFtype __attribute__ ((mode (DF))); typedef float TFtype __attribute__ ((mode (TF))); TFtype __floatunditf (UDItype); TFtype __floatunditf (UDItype u) { DFtype dh, dl; dh = (USItype) (u >> (sizeof (SItype) * 8)); dh *= 2.0 * (((UDItype) 1) << ((sizeof (SItype) * 8) - 1)); dl = (USItype) (u & ((((UDItype) 1) << (sizeof (SItype) * 8)) - 1)); return (TFtype) dh + (TFtype) dl; } #endif