PR123: LD_LIBRARY_PATH and java.library.path
[cacao.git] / src / fdlibm / s_copysign.c
index 4804df130dc46d7d48abdea0ebe6a36f357077c2..38a9f6f7972435a9c7589057f905c2c7adea2361 100644 (file)
@@ -1,60 +1,16 @@
 
-/* @(#)s_copysign.c 5.1 93/09/24 */
+/* @(#)s_copysign.c 1.3 95/01/18 */
 /*
  * ====================================================
  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
  *
- * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Developed at SunSoft, a Sun Microsystems, Inc. business.
  * Permission to use, copy, modify, and distribute this
- * software is freely granted, provided that this notice
+ * software is freely granted, provided that this notice 
  * is preserved.
  * ====================================================
  */
 
-/*
-FUNCTION
-<<copysign>>, <<copysignf>>---sign of <[y]>, magnitude of <[x]>
-
-INDEX
-       copysign
-INDEX
-       copysignf
-
-ANSI_SYNOPSIS
-       #include <math.h>
-       double copysign (double <[x]>, double <[y]>);
-       float copysignf (float <[x]>, float <[y]>);
-
-TRAD_SYNOPSIS
-       #include <math.h>
-       double copysign (<[x]>, <[y]>)
-       double <[x]>;
-       double <[y]>;
-
-       float copysignf (<[x]>, <[y]>)
-       float <[x]>;
-       float <[y]>;
-
-DESCRIPTION
-<<copysign>> constructs a number with the magnitude (absolute value)
-of its first argument, <[x]>, and the sign of its second argument,
-<[y]>.
-
-<<copysignf>> does the same thing; the two functions differ only in
-the type of their arguments and result.
-
-RETURNS
-<<copysign>> returns a <<double>> with the magnitude of
-<[x]> and the sign of <[y]>.
-<<copysignf>> returns a <<float>> with the magnitude of
-<[x]> and the sign of <[y]>.
-
-PORTABILITY
-<<copysign>> is not required by either ANSI C or the System V Interface
-Definition (Issue 2).
-
-*/
-
 /*
  * copysign(double x, double y)
  * copysign(x,y) returns a value with the magnitude of x and
@@ -72,11 +28,10 @@ Definition (Issue 2).
        double x,y;
 #endif
 {
-       uint32_t hx,hy;
-       GET_HIGH_WORD(hx,x);
-       GET_HIGH_WORD(hy,y);
-       SET_HIGH_WORD(x,(hx&0x7fffffff)|(hy&0x80000000));
+        uint32_t hx, hy;
+       GET_HIGH_WORD(hx, x);
+       GET_HIGH_WORD(hy, y);
+       SET_HIGH_WORD(x, (hx&0x7fffffff)|(hy&0x80000000));
         return x;
 }
-
 #endif /* _DOUBLE_IS_32BITS */