* gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus.
[official-gcc.git] / libgcc / floatunsixf.c
blob52511688dad3bbb0a9ab9dfcc640a4b05496deef
1 /* Public domain. */
2 typedef int SItype __attribute__ ((mode (SI)));
3 typedef unsigned int USItype __attribute__ ((mode (SI)));
4 typedef float XFtype __attribute__ ((mode (XF)));
6 XFtype
7 __floatunsixf (USItype u)
9 SItype s = (SItype) u;
10 XFtype r = (XFtype) s;
11 if (s < 0)
12 r += (XFtype)2.0 * (XFtype) ((USItype) 1
13 << (sizeof (USItype) * __CHAR_BIT__ - 1));
14 return r;