Return to s_copysignf.c CVS log

Up to [cvs.NetBSD.org] / src / lib / libm / src

Annotation of src/lib/libm/src/s_copysignf.c, Revision 1.7

1.1       jtc         1: /* s_copysignf.c -- float version of s_copysign.c.
                      2:  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
                      3:  */
                      4:
                      5: /*
                      6:  * ====================================================
                      7:  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
                      8:  *
                      9:  * Developed at SunPro, a Sun Microsystems, Inc. business.
                     10:  * Permission to use, copy, modify, and distribute this
1.6       simonb     11:  * software is freely granted, provided that this notice
1.1       jtc        12:  * is preserved.
                     13:  * ====================================================
                     14:  */
                     15:
1.5       lukem      16: #include <sys/cdefs.h>
1.3       jtc        17: #if defined(LIBM_SCCS) && !defined(lint)
1.7     ! wiz        18: __RCSID("$NetBSD: s_copysignf.c,v 1.6 1999/07/02 15:37:42 simonb Exp $");
1.1       jtc        19: #endif
                     20:
                     21: /*
                     22:  * copysignf(float x, float y)
                     23:  * copysignf(x,y) returns a value with the magnitude of x and
                     24:  * with the sign bit of y.
                     25:  */
                     26:
                     27: #include "math.h"
                     28: #include "math_private.h"
                     29:
1.7     ! wiz        30: float
        !            31: copysignf(float x, float y)
1.1       jtc        32: {
1.2       jtc        33:        u_int32_t ix,iy;
1.1       jtc        34:        GET_FLOAT_WORD(ix,x);
                     35:        GET_FLOAT_WORD(iy,y);
                     36:        SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
                     37:         return x;
                     38: }