diff options
Diffstat (limited to 'usr/src/lib/libbc/libc/gen/common/frexp.c')
| -rw-r--r-- | usr/src/lib/libbc/libc/gen/common/frexp.c | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/usr/src/lib/libbc/libc/gen/common/frexp.c b/usr/src/lib/libbc/libc/gen/common/frexp.c deleted file mode 100644 index ffc75618b1..0000000000 --- a/usr/src/lib/libbc/libc/gen/common/frexp.c +++ /dev/null @@ -1,59 +0,0 @@ -/* - * CDDL HEADER START - * - * The contents of this file are subject to the terms of the - * Common Development and Distribution License, Version 1.0 only - * (the "License"). You may not use this file except in compliance - * with the License. - * - * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE - * or http://www.opensolaris.org/os/licensing. - * See the License for the specific language governing permissions - * and limitations under the License. - * - * When distributing Covered Code, include this CDDL HEADER in each - * file and include the License file at usr/src/OPENSOLARIS.LICENSE. - * If applicable, add the following below this CDDL HEADER, with the - * fields enclosed by brackets "[]" replaced with your own identifying - * information: Portions Copyright [yyyy] [name of copyright owner] - * - * CDDL HEADER END - */ -#pragma ident "%Z%%M% %I% %E% SMI" /* from UCB 5.2 3/9/86 */ - -/* - * the call - * x = frexp(arg,&exp); - * must return a double fp quantity x which is <1.0 - * and the corresponding binary exponent "exp". - * such that - * arg = x*2^exp - */ -double -frexp(x, i) - double x; - int *i; -{ - int neg, j; - - j = 0; - neg = 0; - if (x<0) { - x = -x; - neg = 1; - } - if (x>=1.0) - while (x>=1.0) { - j = j+1; - x = x/2; - } - else if (x < 0.5 && x != 0.0) - while(x<0.5) { - j = j-1; - x = 2*x; - } - *i = j; - if(neg) - x = -x; - return (x); -} |
