OSDN Git Service

libm/*: mass removal of:
[uclinux-h8/uclibc-ng.git] / libm / s_ldexp.c
index 02dae6f..1b681cb 100644 (file)
@@ -1,4 +1,3 @@
-/* @(#)s_ldexp.c 5.1 93/09/24 */
 /*
  * ====================================================
  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
  * ====================================================
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_ldexp.c,v 1.6 1995/05/10 20:47:40 jtc Exp $";
-#endif
-
 #include "math.h"
 #include "math_private.h"
 #include <errno.h>
 
-
-#ifdef __STDC__
-       double ldexp(double value, int exp)
-#else
-       double ldexp(value, exp)
-       double value; int exp;
-#endif
+double ldexp(double value, int exp)
 {
        if(!isfinite(value)||value==0.0) return value;
        value = scalbn(value,exp);