summaryrefslogtreecommitdiff
path: root/usr/src/lib/libbc/libc/gen/common/modf.c
diff options
context:
space:
mode:
authorToomas Soome <tsoome@me.com>2020-02-08 20:24:21 +0200
committerToomas Soome <tsoome@me.com>2020-03-18 19:36:25 +0200
commit97b5374547d500fded52d886ceba8a9962af0527 (patch)
tree58133eb5538d122ed076707c9abe35530356cc0c /usr/src/lib/libbc/libc/gen/common/modf.c
parent20d3bf629e3e91ea61dee8153d5bc47daeab26b0 (diff)
downloadillumos-gate-97b5374547d500fded52d886ceba8a9962af0527.tar.gz
12292 retire libbc
Reviewed by: Peter Tribble <peter.tribble@gmail.com> Reviewed by: Andy Stormont <astormont@racktopsystems.com> Reviewed by: Alexander Eremin <aeremin@tintri.com> Approved by: Garrett D'Amore <garrett@damore.org>
Diffstat (limited to 'usr/src/lib/libbc/libc/gen/common/modf.c')
-rw-r--r--usr/src/lib/libbc/libc/gen/common/modf.c56
1 files changed, 0 insertions, 56 deletions
diff --git a/usr/src/lib/libbc/libc/gen/common/modf.c b/usr/src/lib/libbc/libc/gen/common/modf.c
deleted file mode 100644
index 3ce1bb8256..0000000000
--- a/usr/src/lib/libbc/libc/gen/common/modf.c
+++ /dev/null
@@ -1,56 +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 ATT S5R3 */
-
-/* The following is extracted from... */
-
-/* Copyright (c) 1984 AT&T */
-/* All Rights Reserved */
-
-
-/*
- * modf(value, iptr) returns the signed fractional part of value
- * and stores the integer part indirectly through iptr.
- *
- */
-
-#define MAXPOWTWO 4.503599627370496000E+15
- /* doubles >= MAXPOWTWO are already integers */
-double
-modf(value, iptr)
-double value;
-register double *iptr;
-{
- register double absvalue;
-
- if ((absvalue = (value >= 0.0) ? value : -value) >= MAXPOWTWO)
- *iptr = value; /* it must be an integer */
- else {
- *iptr = absvalue + MAXPOWTWO; /* shift fraction off right */
- *iptr -= MAXPOWTWO; /* shift back without fraction */
- while (*iptr > absvalue) /* above arithmetic might round */
- *iptr -= 1.0; /* test again just to be sure */
- if (value < 0.0)
- *iptr = -*iptr;
- }
- return (value - *iptr); /* signed fractional part */
-}