diff options
Diffstat (limited to 'libquadmath/math/scalblnq.c')
-rw-r--r-- | libquadmath/math/scalblnq.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/libquadmath/math/scalblnq.c b/libquadmath/math/scalblnq.c index 6aac21125f8..a7a355ea70d 100644 --- a/libquadmath/math/scalblnq.c +++ b/libquadmath/math/scalblnq.c @@ -1,7 +1,8 @@ -/* scalblnq.c -- __float128 version of s_scalbn.c. +/* s_scalblnl.c -- long double version of s_scalbn.c. * Conversion to IEEE quad long double by Jakub Jelinek, jj@ultra.linux.cz. */ +/* @(#)s_scalbn.c 5.1 93/09/24 */ /* * ==================================================== * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. @@ -13,9 +14,13 @@ * ==================================================== */ +#if defined(LIBM_SCCS) && !defined(lint) +static char rcsid[] = "$NetBSD: $"; +#endif + /* - * scalblnq (_float128 x, long int n) - * scalblnq(x,n) returns x* 2**n computed by exponent + * scalblnl (long double x, long int n) + * scalblnl(x,n) returns x* 2**n computed by exponent * manipulation rather than by actually performing an * exponentiation or a multiplication. */ @@ -28,8 +33,7 @@ twom114 = 4.8148248609680896326399448564623183E-35Q, /* 0x3F8D000000000000, 0 */ huge = 1.0E+4900Q, tiny = 1.0E-4900Q; -__float128 -scalblnq (__float128 x, long int n) +__float128 scalblnq (__float128 x, long int n) { int64_t k,hx,lx; GET_FLT128_WORDS64(hx,lx,x); |