1189251Ssam/* PR c/8002 */
2214734Srpaulo
3214734Srpaulofloat expm1f(float x) {
4189251Ssam     union {
5252726Srpaulo         float value;
6252726Srpaulo         unsigned word;
7189251Ssam     } sf_u;
8189251Ssam     sf_u.word = (unsigned) x * 2;
9189251Ssam     return x + sf_u.value;
10189251Ssam}
11189251Ssam