Update.
[glibc.git] / sysdeps / libm-ieee754 / s_copysignf.c
bloba4e84e53970a0444d7bc12cd237a37d1169998de
1 /* s_copysignf.c -- float version of s_copysign.c.
2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3 */
5 /*
6 * ====================================================
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
9 * Developed at SunPro, a Sun Microsystems, Inc. business.
10 * Permission to use, copy, modify, and distribute this
11 * software is freely granted, provided that this notice
12 * is preserved.
13 * ====================================================
16 #if defined(LIBM_SCCS) && !defined(lint)
17 static char rcsid[] = "$NetBSD: s_copysignf.c,v 1.4 1995/05/10 20:46:59 jtc Exp $";
18 #endif
21 * copysignf(float x, float y)
22 * copysignf(x,y) returns a value with the magnitude of x and
23 * with the sign bit of y.
26 #include "math.h"
27 #include "math_private.h"
29 #ifdef __STDC__
30 float __copysignf(float x, float y)
31 #else
32 float __copysignf(x,y)
33 float x,y;
34 #endif
36 u_int32_t ix,iy;
37 GET_FLOAT_WORD(ix,x);
38 GET_FLOAT_WORD(iy,y);
39 SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
40 return x;
42 weak_alias (__copysignf, copysignf)