Mercurial > hg > CbC > CbC_gcc

annotate libgcc/floatunsixf.c @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Public domain. */
kono
parents:
diff changeset
2 typedef int SItype __attribute__ ((mode (SI)));
kono
parents:
diff changeset
3 typedef unsigned int USItype __attribute__ ((mode (SI)));
kono
parents:
diff changeset
4 typedef float XFtype __attribute__ ((mode (XF)));
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 XFtype
kono
parents:
diff changeset
7 __floatunsixf (USItype u)
kono
parents:
diff changeset
8 {
kono
parents:
diff changeset
9 SItype s = (SItype) u;
kono
parents:
diff changeset
10 XFtype r = (XFtype) s;
kono
parents:
diff changeset
11 if (s < 0)
kono
parents:
diff changeset
12 r += (XFtype)2.0 * (XFtype) ((USItype) 1
kono
parents:
diff changeset
13 << (sizeof (USItype) * __CHAR_BIT__ - 1));
kono
parents:
diff changeset
14 return r;
kono
parents:
diff changeset
15 }