1df930be7Sderaadt /* s_copysignf.c -- float version of s_copysign.c.
2df930be7Sderaadt * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3df930be7Sderaadt */
4df930be7Sderaadt
5df930be7Sderaadt /*
6df930be7Sderaadt * ====================================================
7df930be7Sderaadt * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8df930be7Sderaadt *
9df930be7Sderaadt * Developed at SunPro, a Sun Microsystems, Inc. business.
10df930be7Sderaadt * Permission to use, copy, modify, and distribute this
11df930be7Sderaadt * software is freely granted, provided that this notice
12df930be7Sderaadt * is preserved.
13df930be7Sderaadt * ====================================================
14df930be7Sderaadt */
15df930be7Sderaadt
16df930be7Sderaadt /*
17df930be7Sderaadt * copysignf(float x, float y)
18df930be7Sderaadt * copysignf(x,y) returns a value with the magnitude of x and
19df930be7Sderaadt * with the sign bit of y.
20df930be7Sderaadt */
21df930be7Sderaadt
22df930be7Sderaadt #include "math.h"
23df930be7Sderaadt #include "math_private.h"
24df930be7Sderaadt
25e7beb4a7Smillert float
copysignf(float x,float y)26e7beb4a7Smillert copysignf(float x, float y)
27df930be7Sderaadt {
28df930be7Sderaadt u_int32_t ix,iy;
29df930be7Sderaadt GET_FLOAT_WORD(ix,x);
30df930be7Sderaadt GET_FLOAT_WORD(iy,y);
31df930be7Sderaadt SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
32df930be7Sderaadt return x;
33df930be7Sderaadt }
34*2f2c0062Sguenther DEF_STD(copysignf);
35