1169689Skan/* Public domain.  */
2169689Skantypedef int SItype __attribute__ ((mode (SI)));
3169689Skantypedef unsigned int USItype __attribute__ ((mode (SI)));
4169689Skantypedef float XFtype __attribute__ ((mode (XF)));
5169689Skan
6169689SkanXFtype
7169689Skan__floatunsixf (USItype u)
8169689Skan{
9169689Skan  SItype s = (SItype) u;
10169689Skan  XFtype r = (XFtype) s;
11169689Skan  if (s < 0)
12169689Skan    r += (XFtype)2.0 * (XFtype) ((USItype) 1
13169689Skan				 << (sizeof (USItype) * __CHAR_BIT__ - 1));
14169689Skan  return r;
15169689Skan}
16