URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [config/] [floatunditf.c] - Rev 20
Go to most recent revision | Compare with Previous | Blame | View Log
/* Public domain. */ #if __LDBL_MANT_DIG__ == 106 || __LDBL_MANT_DIG__ == 113 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
Go to most recent revision | Compare with Previous | Blame | View Log