FreeBSD and NetBSD both use derivates of Sun's math library. On FreeBSD,
authorJoerg Sonnenberger <joerg@dragonflybsd.org>
Tue, 26 Jul 2005 21:15:20 +0000 (21:15 +0000)
committerJoerg Sonnenberger <joerg@dragonflybsd.org>
Tue, 26 Jul 2005 21:15:20 +0000 (21:15 +0000)
it's been put into lib/msun, on NetBSD it is under lib/libm. Since
DragonFly misses a lot of the changes which went into both and I
consider the NetBSD version cleaner, switch to that.

Biggest difference to NetBSD is the omission of wrappers for non-IEEE757
floating point support. There's no point in supporting anything but IEEE
757 and that saves at least a function call per math entry point.

Addtionally, important the fpclassify, isinf, isnan and signbit
functions into libc as required for C99.

Remove the support for non-POSIX operation. matherr is pointless and
wasn't really supported anyway.

237 files changed:
Makefile.inc1
gnu/usr.bin/groff/src/libs/libgroff/Makefile
include/Makefile
include/math.h [new file with mode: 0644]
lib/Makefile
lib/libc/gen/Makefile.inc
lib/libc/gen/fpclassify.3 [new file with mode: 0644]
lib/libc/gen/fpclassifyd.c [new file with mode: 0644]
lib/libc/gen/fpclassifyf.c [new file with mode: 0644]
lib/libc/gen/infinity.c [new file with mode: 0644]
lib/libc/gen/infinityf.c [new file with mode: 0644]
lib/libc/gen/infinityl_dbl.c [new file with mode: 0644]
lib/libc/gen/isfinite.3 [new file with mode: 0644]
lib/libc/gen/isfinited.c [new file with mode: 0644]
lib/libc/gen/isfinitef.c [new file with mode: 0644]
lib/libc/gen/isinf.3
lib/libc/gen/isinfd.c [copied from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/gen/isinff.c [copied from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/gen/isnan.3 [copied from lib/libc/gen/isinf.3 with 62% similarity]
lib/libc/gen/isnand.c [copied from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/gen/isnanf.c [copied from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/gen/signbit.3 [new file with mode: 0644]
lib/libc/gen/signbitd.c [new file with mode: 0644]
lib/libc/gen/signbitf.c [new file with mode: 0644]
lib/libc/i386/gen/Makefile.inc
lib/libc/i386/gen/flt_rounds.S [new file with mode: 0644]
lib/libc/i386/gen/fpclassifyl.c [new file with mode: 0644]
lib/libc/i386/gen/fpgetmask.S [new file with mode: 0644]
lib/libc/i386/gen/fpgetround.S [new file with mode: 0644]
lib/libc/i386/gen/fpgetsticky.S [new file with mode: 0644]
lib/libc/i386/gen/fpsetmask.S [new file with mode: 0644]
lib/libc/i386/gen/fpsetround.S [new file with mode: 0644]
lib/libc/i386/gen/fpsetsticky.S [new file with mode: 0644]
lib/libc/i386/gen/infinity.c [deleted file]
lib/libc/i386/gen/infinityl.c [new file with mode: 0644]
lib/libc/i386/gen/isfinitel.c [new file with mode: 0644]
lib/libc/i386/gen/isinfl.c [copied from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/i386/gen/isnanl.c [moved from lib/libc/i386/gen/isinf.c with 62% similarity]
lib/libc/i386/gen/nanf.c [new file with mode: 0644]
lib/libc/i386/gen/signbitl.c [new file with mode: 0644]
lib/libm/Makefile [new file with mode: 0644]
lib/libm/arch/i386/Makefile.inc [new file with mode: 0644]
lib/libm/arch/i386/abi.h [new file with mode: 0644]
lib/libm/arch/i386/e_acos.S [new file with mode: 0644]
lib/libm/arch/i386/e_asin.S [new file with mode: 0644]
lib/libm/arch/i386/e_atan2.S [new file with mode: 0644]
lib/libm/arch/i386/e_atan2f.S [new file with mode: 0644]
lib/libm/arch/i386/e_exp.S [new file with mode: 0644]
lib/libm/arch/i386/e_expf.S [new file with mode: 0644]
lib/libm/arch/i386/e_fmod.S [new file with mode: 0644]
lib/libm/arch/i386/e_log.S [new file with mode: 0644]
lib/libm/arch/i386/e_log10.S [new file with mode: 0644]
lib/libm/arch/i386/e_log10f.S [new file with mode: 0644]
lib/libm/arch/i386/e_logf.S [new file with mode: 0644]
lib/libm/arch/i386/e_remainder.S [new file with mode: 0644]
lib/libm/arch/i386/e_remainderf.S [new file with mode: 0644]
lib/libm/arch/i386/e_scalb.S [new file with mode: 0644]
lib/libm/arch/i386/e_scalbf.S [new file with mode: 0644]
lib/libm/arch/i386/e_sqrt.S [new file with mode: 0644]
lib/libm/arch/i386/e_sqrtf.S [new file with mode: 0644]
lib/libm/arch/i386/lrint.S [new file with mode: 0644]
lib/libm/arch/i386/s_atan.S [new file with mode: 0644]
lib/libm/arch/i386/s_atanf.S [new file with mode: 0644]
lib/libm/arch/i386/s_ceil.S [new file with mode: 0644]
lib/libm/arch/i386/s_ceilf.S [new file with mode: 0644]
lib/libm/arch/i386/s_copysign.S [new file with mode: 0644]
lib/libm/arch/i386/s_copysignf.S [new file with mode: 0644]
lib/libm/arch/i386/s_cos.S [new file with mode: 0644]
lib/libm/arch/i386/s_cosf.S [new file with mode: 0644]
lib/libm/arch/i386/s_finite.S [new file with mode: 0644]
lib/libm/arch/i386/s_finitef.S [new file with mode: 0644]
lib/libm/arch/i386/s_floor.S [new file with mode: 0644]
lib/libm/arch/i386/s_floorf.S [new file with mode: 0644]
lib/libm/arch/i386/s_ilogb.S [new file with mode: 0644]
lib/libm/arch/i386/s_ilogbf.S [new file with mode: 0644]
lib/libm/arch/i386/s_log1p.S [new file with mode: 0644]
lib/libm/arch/i386/s_log1pf.S [new file with mode: 0644]
lib/libm/arch/i386/s_logb.S [new file with mode: 0644]
lib/libm/arch/i386/s_logbf.S [new file with mode: 0644]
lib/libm/arch/i386/s_rint.S [new file with mode: 0644]
lib/libm/arch/i386/s_rintf.S [new file with mode: 0644]
lib/libm/arch/i386/s_scalbn.S [new file with mode: 0644]
lib/libm/arch/i386/s_scalbnf.S [new file with mode: 0644]
lib/libm/arch/i386/s_significand.S [new file with mode: 0644]
lib/libm/arch/i386/s_significandf.S [new file with mode: 0644]
lib/libm/arch/i386/s_sin.S [new file with mode: 0644]
lib/libm/arch/i386/s_sinf.S [new file with mode: 0644]
lib/libm/arch/i386/s_tan.S [new file with mode: 0644]
lib/libm/arch/i386/s_tanf.S [new file with mode: 0644]
lib/libm/man/Makefile.inc [new file with mode: 0644]
lib/libm/man/acos.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/acosh.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/asin.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/asinh.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/atan.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/atan2.3 [new file with mode: 0644]
lib/libm/man/atanh.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/ceil.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/cos.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/cosh.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/erf.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/exp.3 [new file with mode: 0644]
lib/libm/man/fabs.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/floor.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/fmod.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/hypot.3 [new file with mode: 0644]
lib/libm/man/ieee.3 [new file with mode: 0644]
lib/libm/man/ieee_test.3 [copied from lib/libc/gen/isinf.3 with 53% similarity]
lib/libm/man/j0.3 [new file with mode: 0644]
lib/libm/man/lgamma.3 [new file with mode: 0644]
lib/libm/man/math.3 [new file with mode: 0644]
lib/libm/man/rint.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/round.3 [copied from lib/libc/gen/isinf.3 with 50% similarity]
lib/libm/man/sin.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/sinh.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/sqrt.3 [copied from lib/libc/gen/isinf.3 with 55% similarity]
lib/libm/man/tan.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/man/tanh.3 [copied from lib/libc/gen/isinf.3 with 54% similarity]
lib/libm/src/Makefile.inc [new file with mode: 0644]
lib/libm/src/e_acos.c [new file with mode: 0644]
lib/libm/src/e_acosf.c [new file with mode: 0644]
lib/libm/src/e_acosh.c [new file with mode: 0644]
lib/libm/src/e_acoshf.c [new file with mode: 0644]
lib/libm/src/e_asin.c [new file with mode: 0644]
lib/libm/src/e_asinf.c [new file with mode: 0644]
lib/libm/src/e_atan2.c [new file with mode: 0644]
lib/libm/src/e_atan2f.c [new file with mode: 0644]
lib/libm/src/e_atanh.c [new file with mode: 0644]
lib/libm/src/e_atanhf.c [new file with mode: 0644]
lib/libm/src/e_cosh.c [new file with mode: 0644]
lib/libm/src/e_coshf.c [new file with mode: 0644]
lib/libm/src/e_exp.c [new file with mode: 0644]
lib/libm/src/e_expf.c [new file with mode: 0644]
lib/libm/src/e_fmod.c [new file with mode: 0644]
lib/libm/src/e_fmodf.c [new file with mode: 0644]
lib/libm/src/e_hypot.c [new file with mode: 0644]
lib/libm/src/e_hypotf.c [new file with mode: 0644]
lib/libm/src/e_j0.c [new file with mode: 0644]
lib/libm/src/e_j0f.c [new file with mode: 0644]
lib/libm/src/e_j1.c [new file with mode: 0644]
lib/libm/src/e_j1f.c [new file with mode: 0644]
lib/libm/src/e_jn.c [new file with mode: 0644]
lib/libm/src/e_jnf.c [new file with mode: 0644]
lib/libm/src/e_lgamma_r.c [new file with mode: 0644]
lib/libm/src/e_lgammaf_r.c [new file with mode: 0644]
lib/libm/src/e_log.c [new file with mode: 0644]
lib/libm/src/e_log10.c [new file with mode: 0644]
lib/libm/src/e_log10f.c [new file with mode: 0644]
lib/libm/src/e_logf.c [new file with mode: 0644]
lib/libm/src/e_pow.c [new file with mode: 0644]
lib/libm/src/e_powf.c [new file with mode: 0644]
lib/libm/src/e_rem_pio2.c [new file with mode: 0644]
lib/libm/src/e_rem_pio2f.c [new file with mode: 0644]
lib/libm/src/e_remainder.c [new file with mode: 0644]
lib/libm/src/e_remainderf.c [new file with mode: 0644]
lib/libm/src/e_scalb.c [new file with mode: 0644]
lib/libm/src/e_scalbf.c [new file with mode: 0644]
lib/libm/src/e_sinh.c [new file with mode: 0644]
lib/libm/src/e_sinhf.c [new file with mode: 0644]
lib/libm/src/e_sqrt.c [new file with mode: 0644]
lib/libm/src/e_sqrtf.c [new file with mode: 0644]
lib/libm/src/k_cos.c [new file with mode: 0644]
lib/libm/src/k_cosf.c [new file with mode: 0644]
lib/libm/src/k_rem_pio2.c [new file with mode: 0644]
lib/libm/src/k_rem_pio2f.c [new file with mode: 0644]
lib/libm/src/k_sin.c [new file with mode: 0644]
lib/libm/src/k_sinf.c [new file with mode: 0644]
lib/libm/src/k_tan.c [new file with mode: 0644]
lib/libm/src/k_tanf.c [new file with mode: 0644]
lib/libm/src/llrint.c [new file with mode: 0644]
lib/libm/src/llrintf.c [new file with mode: 0644]
lib/libm/src/llround.c [new file with mode: 0644]
lib/libm/src/llroundf.c [new file with mode: 0644]
lib/libm/src/lrint.c [new file with mode: 0644]
lib/libm/src/lrintf.c [new file with mode: 0644]
lib/libm/src/lround.c [new file with mode: 0644]
lib/libm/src/lroundf.c [new file with mode: 0644]
lib/libm/src/math_private.h [new file with mode: 0644]
lib/libm/src/s_asinh.c [new file with mode: 0644]
lib/libm/src/s_asinhf.c [new file with mode: 0644]
lib/libm/src/s_atan.c [new file with mode: 0644]
lib/libm/src/s_atanf.c [new file with mode: 0644]
lib/libm/src/s_cbrt.c [new file with mode: 0644]
lib/libm/src/s_cbrtf.c [new file with mode: 0644]
lib/libm/src/s_ceil.c [new file with mode: 0644]
lib/libm/src/s_ceilf.c [new file with mode: 0644]
lib/libm/src/s_copysign.c [new file with mode: 0644]
lib/libm/src/s_copysignf.c [new file with mode: 0644]
lib/libm/src/s_cos.c [new file with mode: 0644]
lib/libm/src/s_cosf.c [new file with mode: 0644]
lib/libm/src/s_erf.c [new file with mode: 0644]
lib/libm/src/s_erff.c [new file with mode: 0644]
lib/libm/src/s_expm1.c [new file with mode: 0644]
lib/libm/src/s_expm1f.c [new file with mode: 0644]
lib/libm/src/s_fabsf.c [new file with mode: 0644]
lib/libm/src/s_finite.c [new file with mode: 0644]
lib/libm/src/s_finitef.c [new file with mode: 0644]
lib/libm/src/s_floor.c [new file with mode: 0644]
lib/libm/src/s_floorf.c [new file with mode: 0644]
lib/libm/src/s_frexpf.c [new file with mode: 0644]
lib/libm/src/s_ilogb.c [new file with mode: 0644]
lib/libm/src/s_ilogbf.c [new file with mode: 0644]
lib/libm/src/s_ldexpf.c [new file with mode: 0644]
lib/libm/src/s_log1p.c [new file with mode: 0644]
lib/libm/src/s_log1pf.c [new file with mode: 0644]
lib/libm/src/s_logb.c [new file with mode: 0644]
lib/libm/src/s_logbf.c [new file with mode: 0644]
lib/libm/src/s_modff.c [new file with mode: 0644]
lib/libm/src/s_nextafter.c [new file with mode: 0644]
lib/libm/src/s_nextafterf.c [new file with mode: 0644]
lib/libm/src/s_rint.c [new file with mode: 0644]
lib/libm/src/s_rintf.c [new file with mode: 0644]
lib/libm/src/s_round.c [new file with mode: 0644]
lib/libm/src/s_roundf.c [new file with mode: 0644]
lib/libm/src/s_scalbn.c [new file with mode: 0644]
lib/libm/src/s_scalbnf.c [new file with mode: 0644]
lib/libm/src/s_signgam.c [new file with mode: 0644]
lib/libm/src/s_significand.c [new file with mode: 0644]
lib/libm/src/s_significandf.c [new file with mode: 0644]
lib/libm/src/s_sin.c [new file with mode: 0644]
lib/libm/src/s_sinf.c [new file with mode: 0644]
lib/libm/src/s_tan.c [new file with mode: 0644]
lib/libm/src/s_tanf.c [new file with mode: 0644]
lib/libm/src/s_tanh.c [new file with mode: 0644]
lib/libm/src/s_tanhf.c [new file with mode: 0644]
lib/libm/src/w_cabs.c [new file with mode: 0644]
lib/libm/src/w_cabsf.c [new file with mode: 0644]
lib/libm/src/w_drem.c [new file with mode: 0644]
lib/libm/src/w_dremf.c [new file with mode: 0644]
lib/libm/src/w_gamma.c [new file with mode: 0644]
lib/libm/src/w_gamma_r.c [new file with mode: 0644]
lib/libm/src/w_gammaf.c [new file with mode: 0644]
lib/libm/src/w_gammaf_r.c [new file with mode: 0644]
lib/libm/src/w_lgamma.c [new file with mode: 0644]
lib/libm/src/w_lgammaf.c [new file with mode: 0644]
sys/cpu/i386/include/math.h [new file with mode: 0644]
sys/i386/include/math.h [new file with mode: 0644]

index 681ee64..a9cbaa6 100644 (file)
@@ -1,6 +1,6 @@
 #
 # $FreeBSD: src/Makefile.inc1,v 1.141.2.62 2003/04/06 19:54:00 dwmalone Exp $
-# $DragonFly: src/Makefile.inc1,v 1.74 2005/07/14 18:02:33 joerg Exp $
+# $DragonFly: src/Makefile.inc1,v 1.75 2005/07/26 21:15:19 joerg Exp $
 #
 # Make command line options:
 #      -DMAKE_KERBEROS5 to build Kerberos5
@@ -909,7 +909,7 @@ _generic_libs+=     kerberos5/lib
 
 _prebuild_libs+= lib/libcom_err lib/libcrypt lib/libmd \
                lib/libncurses/libncurses lib/libopie lib/libradius \
-               lib/libskey lib/libtacplus lib/libz lib/msun lib/libpam
+               lib/libskey lib/libtacplus lib/libz lib/libm lib/libpam
 
 lib/libopie__L lib/libradius__L lib/libtacplus__L: lib/libmd__L
 lib/libskey__L: lib/libcrypt__L lib/libmd__L
index 55aea36..b70db18 100644 (file)
@@ -1,5 +1,5 @@
 # $FreeBSD: src/gnu/usr.bin/groff/src/libs/libgroff/Makefile,v 1.1.2.4 2003/02/14 15:22:14 ru Exp $
-# $DragonFly: src/gnu/usr.bin/groff/src/libs/libgroff/Makefile,v 1.2 2003/06/17 04:25:46 dillon Exp $
+# $DragonFly: src/gnu/usr.bin/groff/src/libs/libgroff/Makefile,v 1.3 2005/07/26 21:15:19 joerg Exp $
 
 LIB=           groff
 INTERNALLIB=   YES
@@ -9,7 +9,7 @@ SRCS=           assert.cc change_lf.cc cmap.cc color.cc cset.cc device.cc errarg.cc\
                maxfilename.cc mksdir.cc nametoindex.cc new.cc paper.cc prime.cc\
                progname.cc ptable.cc searchpath.cc string.cc strsave.cc\
                tmpfile.cc tmpname.cc version.cc
-SRCS+=         getopt.c getopt1.c iftoa.c itoa.c matherr.c
+SRCS+=         getopt.c getopt1.c iftoa.c itoa.c
 CLEANFILES=    version.cc
 
 .include <bsd.lib.mk>
index 36b7f09..d7bffd2 100644 (file)
@@ -1,6 +1,6 @@
 #      @(#)Makefile    8.2 (Berkeley) 1/4/94
 # $FreeBSD: src/include/Makefile,v 1.109.2.27 2003/01/24 05:12:29 sam Exp $
-# $DragonFly: src/include/Makefile,v 1.25 2005/07/07 11:49:55 corecode Exp $
+# $DragonFly: src/include/Makefile,v 1.26 2005/07/26 21:15:19 joerg Exp $
 #
 # Doing a make install builds /usr/include
 #
@@ -14,7 +14,7 @@ INCS= a.out.h ar.h assert.h bitstring.h complex.h cpio.h ctype.h db.h \
        dlfcn.h elf.h elf-hints.h err.h fnmatch.h fstab.h \
        fts.h getopt.h glob.h grp.h histedit.h iconv.h ieeefp.h ifaddrs.h \
        iso646.h inttypes.h \
-       langinfo.h libgen.h limits.h link.h locale.h malloc.h memory.h \
+       langinfo.h libgen.h limits.h link.h locale.h malloc.h math.h memory.h \
        mpool.h ndbm.h netdb.h nl_types.h nlist.h objformat.h \
        paths.h pthread.h pthread_np.h pwd.h \
        ranlib.h readpassphrase.h regex.h regexp.h resolv.h re_comp.h rmd160.h \
diff --git a/include/math.h b/include/math.h
new file mode 100644 (file)
index 0000000..2c319c7
--- /dev/null
@@ -0,0 +1,400 @@
+/*     $NetBSD: math.h,v 1.40 2005/02/03 04:39:32 perry Exp $  */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: math.h,v 1.40 2005/02/03 04:39:32 perry Exp $
+ * $DragonFly: src/include/math.h,v 1.5 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * @(#)fdlibm.h 5.1 93/09/24
+ */
+
+#ifndef _MATH_H_
+#define _MATH_H_
+
+#include <sys/cdefs.h>
+
+union __float_u {
+       unsigned char __dummy[sizeof(float)];
+       float __val;
+};
+
+union __double_u {
+       unsigned char __dummy[sizeof(double)];
+       double __val;
+};
+
+union __long_double_u {
+       unsigned char __dummy[sizeof(long double)];
+       long double __val;
+};
+
+#include <machine/math.h>
+
+#ifdef __HAVE_LONG_DOUBLE
+#define        __fpmacro_unary_floating(__name, __arg0)                        \
+       /* LINTED */                                                    \
+       ((sizeof (__arg0) == sizeof (float))                            \
+       ?       __ ## __name ## f (__arg0)                              \
+       : (sizeof (__arg0) == sizeof (double))                          \
+       ?       __ ## __name ## d (__arg0)                              \
+       :       __ ## __name ## l (__arg0))
+#else
+#define        __fpmacro_unary_floating(__name, __arg0)                        \
+       /* LINTED */                                                    \
+       ((sizeof (__arg0) == sizeof (float))                            \
+       ?       __ ## __name ## f (__arg0)                              \
+       :       __ ## __name ## d (__arg0))
+#endif /* __HAVE_LONG_DOUBLE */
+
+/*
+ * ANSI/POSIX
+ */
+/* 7.12#3 HUGE_VAL, HUGELF, HUGE_VALL */
+extern __const union __double_u __infinity;
+#define HUGE_VAL       __infinity.__val
+
+/*
+ * ISO C99
+ */
+#if __ISO_C_VISIBLE >= 1999
+/* 7.12#3 HUGE_VAL, HUGELF, HUGE_VALL */
+extern __const union __float_u __infinityf;
+#define        HUGE_VALF       __infinityf.__val
+
+extern __const union __long_double_u __infinityl;
+#define        HUGE_VALL       __infinityl.__val
+
+/* 7.12#4 INFINITY */
+#ifdef __INFINITY
+#define        INFINITY        __INFINITY      /* float constant which overflows */
+#else
+#define        INFINITY        HUGE_VALF       /* positive infinity */
+#endif /* __INFINITY */
+
+/* 7.12#5 NAN: a quiet NaN, if supported */
+#ifdef __HAVE_NANF
+extern __const union __float_u __nanf;
+#define        NAN             __nanf.__val
+#endif /* __HAVE_NANF */
+
+/* 7.12#6 number classification macros */
+#define        FP_INFINITE     0x00
+#define        FP_NAN          0x01
+#define        FP_NORMAL       0x02
+#define        FP_SUBNORMAL    0x03
+#define        FP_ZERO         0x04
+/* NetBSD extensions */
+#define        _FP_LOMD        0x80            /* range for machine-specific classes */
+#define        _FP_HIMD        0xff
+
+#endif /* ISO C99 */
+
+/*
+ * XOPEN/SVID
+ */
+#if __XSI_VISIBLE > 0
+#define        M_E             2.7182818284590452354   /* e */
+#define        M_LOG2E         1.4426950408889634074   /* log 2e */
+#define        M_LOG10E        0.43429448190325182765  /* log 10e */
+#define        M_LN2           0.69314718055994530942  /* log e2 */
+#define        M_LN10          2.30258509299404568402  /* log e10 */
+#define        M_PI            3.14159265358979323846  /* pi */
+#define        M_PI_2          1.57079632679489661923  /* pi/2 */
+#define        M_PI_4          0.78539816339744830962  /* pi/4 */
+#define        M_1_PI          0.31830988618379067154  /* 1/pi */
+#define        M_2_PI          0.63661977236758134308  /* 2/pi */
+#define        M_2_SQRTPI      1.12837916709551257390  /* 2/sqrt(pi) */
+#define        M_SQRT2         1.41421356237309504880  /* sqrt(2) */
+#define        M_SQRT1_2       0.70710678118654752440  /* 1/sqrt(2) */
+
+#define        MAXFLOAT        ((float)3.40282346638528860e+38)
+extern int signgam;
+#endif /* _XSI_VISIBLE */
+
+#if __DF_VISIBLE
+#define        HUGE            MAXFLOAT
+
+/*
+ * set X_TLOSS = pi*2**52, which is possibly defined in <values.h>
+ * (one may replace the following line by "#include <values.h>")
+ */
+
+#define X_TLOSS                1.41484755040568800000e+16
+
+#define        DOMAIN          1
+#define        SING            2
+#define        OVERFLOW        3
+#define        UNDERFLOW       4
+#define        TLOSS           5
+#define        PLOSS           6
+
+#endif /* __DF_VISIBLE */
+
+__BEGIN_DECLS
+/*
+ * ANSI/POSIX
+ */
+double acos(double);
+double asin(double);
+double atan(double);
+double atan2(double, double);
+double cos(double);
+double sin(double);
+double tan(double);
+
+double cosh(double);
+double sinh(double);
+double tanh(double);
+
+double exp(double);
+double frexp(double, int *);
+double ldexp(double, int);
+double log(double);
+double log10(double);
+double modf(double, double *);
+
+double pow(double, double);
+double sqrt(double);
+
+double ceil(double);
+double fabs(double);
+double floor(double);
+double fmod(double, double);
+
+#if __XSI_VISIBLE > 0
+double erf(double);
+double erfc(double);
+double gamma(double);
+double hypot(double, double);
+int    finite(double);
+double j0(double);
+double j1(double);
+double jn(int, double);
+double lgamma(double);
+double y0(double);
+double y1(double);
+double yn(int, double);
+#endif /* __XSI_VISIBLE */
+
+#if __XSI_VISIBLE >= 500
+double acosh(double);
+double asinh(double);
+double atanh(double);
+double cbrt(double);
+double expm1(double);
+int    ilogb(double);
+double log1p(double);
+double logb(double);
+double nextafter(double, double);
+double remainder(double, double);
+double rint(double);
+double scalb(double, double);
+#endif /* __XSI_VISIBLE >= 500 */
+
+/*
+ * ISO C99
+ */
+#if __ISO_C_VISIBLE >= 1999
+/* 7.12.3.1 int fpclassify(real-floating x) */
+#define        fpclassify(__x) __fpmacro_unary_floating(fpclassify, __x)
+
+/* 7.12.3.2 int isfinite(real-floating x) */
+#define        isfinite(__x)   __fpmacro_unary_floating(isfinite, __x)
+
+/* 7.12.3.5 int isnormal(real-floating x) */
+#define        isnormal(__x)   (fpclassify(__x) == FP_NORMAL)
+
+/* 7.12.3.6 int signbit(real-floating x) */
+#define        signbit(__x)    __fpmacro_unary_floating(signbit, __x)
+
+/* 7.12.4 trigonometric */
+
+float  acosf(float);
+float  asinf(float);
+float  atanf(float);
+float  atan2f(float, float);
+float  cosf(float);
+float  sinf(float);
+float  tanf(float);
+
+/* 7.12.5 hyperbolic */
+
+float  acoshf(float);
+float  asinhf(float);
+float  atanhf(float);
+float  coshf(float);
+float  sinhf(float);
+float  tanhf(float);
+
+/* 7.12.6 exp / log */
+
+float  expf(float);
+float  expm1f(float);
+float  frexpf(float, int *);
+int    ilogbf(float);
+float  ldexpf(float, int);
+float  logf(float);
+float  log10f(float);
+float  log1pf(float);
+float  logbf(float);
+float  modff(float, float *);
+float  scalbnf(float, int);
+
+/* 7.12.7 power / absolute */
+
+float  cbrtf(float);
+float  fabsf(float);
+float  hypotf(float, float);
+float  powf(float, float);
+float  sqrtf(float);
+
+/* 7.12.8 error / gamma */
+
+float  erff(float);
+float  erfcf(float);
+float  lgammaf(float);
+
+/* 7.12.9 nearest integer */
+
+float  ceilf(float);
+float  floorf(float);
+float  rintf(float);
+double round(double);
+float  roundf(float);
+long int       lrint(double);
+long int       lrintf(float);
+/* LONGLONG */
+long long int  llrint(double);
+/* LONGLONG */
+long long int  llrintf(float);
+long int       lround(double);
+long int       lroundf(float);
+/* LONGLONG */
+long long int  llround(double);
+/* LONGLONG */
+long long int  llroundf(float);
+
+/* 7.12.10 remainder */
+
+float  fmodf(float, float);
+float  remainderf(float, float);
+
+/* 7.2.11 manipulation */
+
+float  copysignf(float, float);
+float  nextafterf(float, float);
+
+#endif /* __ISO_C_VISIBLE >= 1999 */
+
+#if __ISO_C_VISIBLE >= 1999
+/* 7.12.3.3 int isinf(real-floating x) */
+#ifdef __isinf
+#define        isinf(__x)      __isinf(__x)
+#else
+#define        isinf(__x)      __fpmacro_unary_floating(isinf, __x)
+#endif
+
+/* 7.12.3.4 int isnan(real-floating x) */
+#ifdef __isnan
+#define        isnan(__x)      __isnan(__x)
+#else
+#define        isnan(__x)      __fpmacro_unary_floating(isnan, __x)
+#endif
+#endif /* __ISO_C_VISIBLE >= 1999 */
+
+#if __DF_VISIBLE
+/*
+ * IEEE Test Vector
+ */
+double significand(double);
+
+/*
+ * Functions callable from C, intended to support IEEE arithmetic.
+ */
+double copysign(double, double);
+double scalbn(double, int);
+
+/*
+ * BSD math library entry points
+ */
+double drem(double, double);
+
+/*
+ * Reentrant version of gamma & lgamma; passes signgam back by reference
+ * as the second argument; user must allocate space for signgam.
+ */
+double gamma_r(double, int *);
+double lgamma_r(double, int *);
+#endif /* __DF_VISIBLE */
+
+
+#if __DF_VISIBLE
+
+/* float versions of ANSI/POSIX functions */
+
+float  gammaf(float);
+int    isinff(float);
+int    isnanf(float);
+int    finitef(float);
+float  j0f(float);
+float  j1f(float);
+float  jnf(int, float);
+float  y0f(float);
+float  y1f(float);
+float  ynf(int, float);
+
+float  scalbf(float, float);
+
+/*
+ * float version of IEEE Test Vector
+ */
+float  significandf(float);
+
+/*
+ * float versions of BSD math library entry points
+ */
+float  dremf(float, float);
+
+/*
+ * Float versions of reentrant version of gamma & lgamma; passes
+ * signgam back by reference as the second argument; user must
+ * allocate space for signgam.
+ */
+float  gammaf_r(float, int *);
+float  lgammaf_r(float, int *);
+#endif /* __DF_VISIBLE */
+
+/*
+ * Library implementation
+ */
+int    __fpclassifyf(float);
+int    __fpclassifyd(double);
+int    __isfinitef(float);
+int    __isfinited(double);
+int    __isinff(float);
+int    __isinfd(double);
+int    __isnanf(float);
+int    __isnand(double);
+int    __signbitf(float);
+int    __signbitd(double);
+
+#ifdef __HAVE_LONG_DOUBLE
+int    __fpclassifyl(long double);
+int    __isfinitel(long double);
+int    __isinfl(long double);
+int    __isnanl(long double);
+int    __signbitl(long double);
+#endif
+__END_DECLS
+
+#endif /* _MATH_H_ */
index 3e11c5d..6347fcd 100644 (file)
@@ -1,6 +1,6 @@
 #      @(#)Makefile    8.1 (Berkeley) 6/4/93
 # $FreeBSD: src/lib/Makefile,v 1.107.2.16 2002/10/10 19:24:35 kbyanc Exp $
-# $DragonFly: src/lib/Makefile,v 1.23 2005/07/15 18:14:53 eirikn Exp $
+# $DragonFly: src/lib/Makefile,v 1.24 2005/07/26 21:15:19 joerg Exp $
 
 # To satisfy shared library or ELF linkage when only the libraries being
 # built are visible:
@@ -8,7 +8,6 @@
 # csu must be built before all shared libaries for ELF.
 # libcom_err must be built before libkrb and libpam.
 # libcrypt must be built before libkrb, libpam and libskey.
-# msun must be built before libg++ and libstdc++.
 # libmd must be built before libatm, libopie, libradius, libskey, and
 # libtacplus.
 # libncurses must be built before libdialog, libedit and libreadline.
@@ -20,7 +19,7 @@
 #
 # Otherwise, the SUBDIR list should be in alphabetical order.
 
-SUBDIR=        ${_csu} csu/common libarchive libcom_err libcrypt msun libmd \
+SUBDIR=        ${_csu} csu/common libarchive libcom_err libcrypt libm libmd \
        libncurses libradius libskey libtacplus libutil libsbuf \
        libalias libatm ${_libbind} libbz2 libc ${_libc_r} libcalendar \
        libcam libcompat libdevstat libdisk libedit libfetch libftpio \
index fb0d655..0be218f 100644 (file)
@@ -1,6 +1,6 @@
 #      @(#)Makefile.inc        8.6 (Berkeley) 5/4/95
 # $FreeBSD: src/lib/libc/gen/Makefile.inc,v 1.62.2.19 2003/02/21 13:46:16 phantom Exp $
-# $DragonFly: src/lib/libc/gen/Makefile.inc,v 1.13 2005/05/03 07:29:04 joerg Exp $
+# $DragonFly: src/lib/libc/gen/Makefile.inc,v 1.14 2005/07/26 21:15:19 joerg Exp $
 
 # machine-independent gen sources
 .PATH: ${.CURDIR}/../libc/${MACHINE_ARCH}/gen ${.CURDIR}/../libc/gen
@@ -10,13 +10,16 @@ SRCS+=  _pthread_stubs.c _rand48.c _spinlock_stub.c _thread_init.c \
        clock.c closedir.c confstr.c \
        ctermid.c ctype.c daemon.c devname.c dirname.c disklabel.c \
        dlfcn.c drand48.c erand48.c err.c errlst.c \
-       exec.c fmtcheck.c fnmatch.c fstab.c ftok.c fts.c getbootfile.c getbsize.c \
+       exec.c fmtcheck.c fnmatch.c fpclassifyd.c fpclassifyf.c fstab.c \
+       ftok.c fts.c getbootfile.c getbsize.c \
        getcap.c getcwd.c getdomainname.c getgrent.c getgrouplist.c \
        gethostname.c getloadavg.c getlogin.c getmntinfo.c getnetgrent.c \
        getobjformat.c getosreldate.c getpagesize.c \
        getpeereid.c getprogname.c getpwent.c getttyent.c \
        getusershell.c getvfsbyname.c getvfsent.c glob.c \
-       initgroups.c isascii.c isatty.c isctype.c jrand48.c lcong48.c \
+       infinity.c infinityf.c initgroups.c isascii.c \
+       isatty.c isctype.c isfinited.c isfinitef.c isinfd.c isinff.c \
+       isnand.c isnanf.c jrand48.c lcong48.c \
        lockf.c lrand48.c mrand48.c msgctl.c \
        msgget.c msgrcv.c msgsnd.c nice.c \
        nlist.c nrand48.c ntp_gettime.c opendir.c \
@@ -26,10 +29,10 @@ SRCS+=  _pthread_stubs.c _rand48.c _spinlock_stub.c _thread_init.c \
        setdomainname.c sethostname.c setjmperr.c setmode.c setprogname.c \
        setproctitle.c \
        shmat.c shmctl.c shmdt.c shmget.c siginterrupt.c siglist.c signal.c \
-       sigsetops.c sigwait.c sleep.c srand48.c stringlist.c strtofflags.c \
-       sysconf.c sysctl.c sysctlbyname.c sysctlnametomib.c \
-       syslog.c telldir.c termios.c time.c times.c timezone.c \
-       tolower.c toupper.c ttyname.c ttyslot.c ualarm.c ulimit.c \
+       signbitd.c signbitf.c sigsetops.c sigwait.c sleep.c srand48.c \
+       stringlist.c strtofflags.c sysconf.c sysctl.c sysctlbyname.c \
+       sysctlnametomib.c syslog.c telldir.c termios.c time.c times.c \
+       timezone.c tolower.c toupper.c ttyname.c ttyslot.c ualarm.c ulimit.c \
        uname.c unvis.c usleep.c utime.c valloc.c vis.c \
        wait.c wait3.c waitpid.c
 
@@ -46,7 +49,7 @@ MAN+= alarm.3 arc4random.3 clock.3 \
        confstr.3 ctermid.3 ctype.3 daemon.3 \
        devname.3 directory.3 dirname.3 \
        dladdr.3 dlinfo.3 dlopen.3 \
-       err.3 exec.3 fmtcheck.3 fnmatch.3 frexp.3 ftok.3 fts.3 \
+       err.3 exec.3 fmtcheck.3 fnmatch.3 fpclassify.3 frexp.3 ftok.3 fts.3 \
        getbootfile.3 getbsize.3 getcap.3 getcwd.3 \
        getdiskbyname.3 getdomainname.3 getfsent.3 \
        getgrent.3 getgrouplist.3 gethostname.3 getloadavg.3 \
@@ -55,12 +58,12 @@ MAN+=       alarm.3 arc4random.3 clock.3 \
        getttyent.3 getusershell.3 getvfsbyname.3 getvfsent.3 \
        glob.3 initgroups.3 isalnum.3 isalpha.3 isascii.3 isblank.3 \
        iscntrl.3 isdigit.3 isgraph.3 islower.3 isprint.3 ispunct.3 \
-       isspace.3 isupper.3 isxdigit.3 isinf.3 \
+       isspace.3 isupper.3 isxdigit.3 isinf.3 isfinite.3 isnan.3 \
        ldexp.3 lockf.3 modf.3 msgctl.3 msgget.3 msgrcv.3 msgsnd.3 \
        nice.3 nlist.3 pause.3 popen.3 psignal.3 pwcache.3 \
        raise.3 rand48.3 readpassphrase.3 rfork_thread.3 \
        scandir.3 setjmp.3 setmode.3 setproctitle.3 shm_open.3 \
-       siginterrupt.3 signal.3 sigsetops.3 sleep.3 stringlist.3 \
+       siginterrupt.3 signal.3 signbit.3 sigsetops.3 sleep.3 stringlist.3 \
        strtofflags.3 sysconf.3 sysctl.3 syslog.3 tcgetpgrp.3 \
        tcsendbreak.3 tcsetattr.3 tcsetpgrp.3 time.3 times.3 timezone.3 \
        toascii.3 tolower.3 toupper.3 ttyname.3 tzset.3 ualarm.3 \
diff --git a/lib/libc/gen/fpclassify.3 b/lib/libc/gen/fpclassify.3
new file mode 100644 (file)
index 0000000..4098085
--- /dev/null
@@ -0,0 +1,90 @@
+.\"    $NetBSD: fpclassify.3,v 1.2 2004/01/15 19:43:45 kleink Exp $
+.\"    $DragonFly: src/lib/libc/gen/fpclassify.3,v 1.1 2005/07/26 21:15:19 joerg Exp $
+.\"
+.\" Copyright (c) 2003 The NetBSD Foundation, Inc.
+.\" All rights reserved.
+.\"
+.\" This code is derived from software contributed to The NetBSD Foundation
+.\" by Klaus Klein.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"        This product includes software developed by the NetBSD
+.\"        Foundation, Inc. and its contributors.
+.\" 4. Neither the name of The NetBSD Foundation nor the names of its
+.\"    contributors may be used to endorse or promote products derived
+.\"    from this software without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+.\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+.\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+.\" PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+.\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+.\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+.\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+.\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+.\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+.\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+.\" POSSIBILITY OF SUCH DAMAGE.
+.\"
+.Dd January 14, 2004
+.Dt FPCLASSIFY 3
+.Os
+.Sh NAME
+.Nm fpclassify
+.Nd classify real floating type
+.Sh LIBRARY
+.Lb libc
+.Sh SYNOPSIS
+.In math.h
+.Ft int
+.Fn fpclassify "real-floating x"
+.Sh DESCRIPTION
+The
+.Fn fpclassify
+macro performs classification of its argument
+.Fa x .
+An argument represented in a format wider than its semantic type is
+converted to its semantic type first.
+The classification is then based on the type of the argument.
+.Ss IEEE 754
+.Bl -tag -width "FP_SUBNORMALXXX" -compact -offset indent
+.It Dv FP_INFINITE
+infinity, either positive or negative
+.It Dv FP_NAN
+not-a-number
+.Pq Dq NaN
+.It Dv FP_NORMAL
+normal
+.It Dv FP_SUBNORMAL
+subnormal
+.It Dv FP_ZERO
+zero
+.El
+.Sh RETURN VALUES
+The
+.Fn fpclassify
+macro returns the value of the number classification macro appropriate
+to its argument
+.Fa x
+as described above.
+.Sh ERRORS
+No errors are defined.
+.Sh SEE ALSO
+.Xr isfinite 3 ,
+.Xr isnormal 3 ,
+.Xr math 3 ,
+.Xr signbit 3
+.Sh STANDARDS
+The
+.Fn fpclassify
+macro conforms to
+.St -isoC-99 .
diff --git a/lib/libc/gen/fpclassifyd.c b/lib/libc/gen/fpclassifyd.c
new file mode 100644 (file)
index 0000000..50f0841
--- /dev/null
@@ -0,0 +1,67 @@
+/*     $NetBSD: fpclassifyd_ieee754.c,v 1.1 2003/10/28 22:50:42 kleink Exp $   */
+/*     $DragonFly: src/lib/libc/gen/fpclassifyd.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.1 fpclassify - classify real floating type
+ *          IEEE 754 double-precision version
+ */
+int
+__fpclassifyd(double x)
+{
+       union ieee_double_u u;
+
+       u.dblu_d = x;
+
+       if (u.dblu_dbl.dbl_exp == 0) {
+               if (u.dblu_dbl.dbl_frach == 0 && u.dblu_dbl.dbl_fracl == 0)
+                       return FP_ZERO;
+               else
+                       return FP_SUBNORMAL;
+       } else if (u.dblu_dbl.dbl_exp == DBL_EXP_INFNAN) {
+               if (u.dblu_dbl.dbl_frach == 0 && u.dblu_dbl.dbl_fracl == 0)
+                       return FP_INFINITE;
+               else
+                       return FP_NAN;
+       }
+
+       return FP_NORMAL;
+}
diff --git a/lib/libc/gen/fpclassifyf.c b/lib/libc/gen/fpclassifyf.c
new file mode 100644 (file)
index 0000000..948da0e
--- /dev/null
@@ -0,0 +1,67 @@
+/*     $NetBSD: fpclassifyf_ieee754.c,v 1.2 2003/10/29 19:34:11 kleink Exp $   */
+/*     $DragonFly: src/lib/libc/gen/fpclassifyf.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.1 fpclassify - classify real floating type
+ *          IEEE 754 single-precision version
+ */
+int
+__fpclassifyf(float x)
+{
+       union ieee_single_u u;
+
+       u.sngu_f = x;
+
+       if (u.sngu_sng.sng_exp == 0) {
+               if (u.sngu_sng.sng_frac == 0)
+                       return FP_ZERO;
+               else
+                       return FP_SUBNORMAL;
+       } else if (u.sngu_sng.sng_exp == SNG_EXP_INFNAN) {
+               if (u.sngu_sng.sng_frac == 0)
+                       return FP_INFINITE;
+               else
+                       return FP_NAN;
+       }
+
+       return FP_NORMAL;
+}
diff --git a/lib/libc/gen/infinity.c b/lib/libc/gen/infinity.c
new file mode 100644 (file)
index 0000000..9700101
--- /dev/null
@@ -0,0 +1,16 @@
+/*     $NetBSD: infinity_ieee754.c,v 1.3 2005/06/12 05:21:27 lukem Exp $       */
+/*     $DragonFly: src/lib/libc/gen/infinity.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * IEEE-compatible infinity.c -- public domain.
+ */
+
+#include <sys/endian.h>
+#include <math.h>
+
+const union __double_u __infinity =
+#if BYTE_ORDER == BIG_ENDIAN
+       { { 0x7f, 0xf0, 0, 0, 0, 0,    0,    0 } };
+#else
+       { {    0,    0, 0, 0, 0, 0, 0xf0, 0x7f } };
+#endif
diff --git a/lib/libc/gen/infinityf.c b/lib/libc/gen/infinityf.c
new file mode 100644 (file)
index 0000000..f95f3f9
--- /dev/null
@@ -0,0 +1,16 @@
+/*     $NetBSD: infinityf_ieee754.c,v 1.2 2005/06/12 05:21:27 lukem Exp $      */
+/*     $DragonFly: src/lib/libc/gen/infinityf.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * IEEE-compatible infinityf.c -- public domain.
+ */
+
+#include <sys/endian.h>
+#include <math.h>
+
+const union __float_u __infinityf =
+#if BYTE_ORDER == BIG_ENDIAN
+       { { 0x7f, 0x80,     0,    0 } };
+#else
+       { {    0,    0,  0x80, 0x7f } };
+#endif
diff --git a/lib/libc/gen/infinityl_dbl.c b/lib/libc/gen/infinityl_dbl.c
new file mode 100644 (file)
index 0000000..6122b58
--- /dev/null
@@ -0,0 +1,22 @@
+/*     $NetBSD: infinityl_dbl_ieee754.c,v 1.1 2003/10/25 22:31:20 kleink Exp $ */
+/*     $DragonFly: src/lib/libc/gen/infinityl_dbl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * IEEE-compatible infinityl.c -- public domain.
+ * For platforms where long double == double.
+ */
+
+#include <sys/endian.h>
+#include <float.h>
+#include <math.h>
+
+#if LDBL_MANT_DIG != DBL_MANT_DIG
+#error double / long double mismatch
+#endif
+
+const union __long_double_u __infinityl =
+#if BYTE_ORDER == BIG_ENDIAN
+       { { 0x7f, 0xf0, 0, 0, 0, 0,    0,    0 } };
+#else
+       { {    0,    0, 0, 0, 0, 0, 0xf0, 0x7f } };
+#endif
diff --git a/lib/libc/gen/isfinite.3 b/lib/libc/gen/isfinite.3
new file mode 100644 (file)
index 0000000..7e43f5c
--- /dev/null
@@ -0,0 +1,77 @@
+.\"    $NetBSD: isfinite.3,v 1.2 2004/01/15 19:43:45 kleink Exp $
+.\"    $DragonFly: src/lib/libc/gen/isfinite.3,v 1.1 2005/07/26 21:15:19 joerg Exp $
+.\"
+.\" Copyright (c) 2003 The NetBSD Foundation, Inc.
+.\" All rights reserved.
+.\"
+.\" This code is derived from software contributed to The NetBSD Foundation
+.\" by Klaus Klein.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"        This product includes software developed by the NetBSD
+.\"        Foundation, Inc. and its contributors.
+.\" 4. Neither the name of The NetBSD Foundation nor the names of its
+.\"    contributors may be used to endorse or promote products derived
+.\"    from this software without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+.\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+.\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+.\" PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+.\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+.\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+.\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+.\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+.\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+.\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+.\" POSSIBILITY OF SUCH DAMAGE.
+.\"
+.Dd October 29, 2003
+.Dt ISFINITE 3
+.Os
+.Sh NAME
+.Nm isfinite
+.Nd test for finite value
+.Sh LIBRARY
+.Lb libc
+.Sh SYNOPSIS
+.In math.h
+.Ft int
+.Fn isfinite "real-floating x"
+.Sh DESCRIPTION
+The
+.Fn isfinite
+determines whether its argument
+.Fa x
+has a finite value.
+An argument represented in a format wider than its semantic type is
+converted to its semantic type first.
+The determination is then based on the type of the argument.
+.Sh RETURN VALUES
+The
+.Fn isfinite
+macro returns a non-zero value if the value of
+.Fa x
+is finite.
+Otherwise 0 is returned.
+.Sh ERRORS
+No errors are defined.
+.Sh SEE ALSO
+.Xr fpclassify 3 ,
+.Xr isnormal 3 ,
+.Xr math 3 ,
+.Xr signbit 3
+.Sh STANDARDS
+The
+.Fn isfinite
+macro conforms to
+.St -isoC-99 .
diff --git a/lib/libc/gen/isfinited.c b/lib/libc/gen/isfinited.c
new file mode 100644 (file)
index 0000000..6cfacd7
--- /dev/null
@@ -0,0 +1,58 @@
+/*     $NetBSD: isfinited_ieee754.c,v 1.1 2003/10/29 20:03:51 kleink Exp $     */
+/*     $DragonFly: src/lib/libc/gen/isfinited.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.2 isfinite - determine whether an argument has finite value
+ *          IEEE 754 double-precision version
+ */
+int
+__isfinited(double x)
+{
+       union ieee_double_u u;
+
+       u.dblu_d = x;
+
+       if (u.dblu_dbl.dbl_exp == DBL_EXP_INFNAN)
+               return 0;
+
+       return 1;
+}
diff --git a/lib/libc/gen/isfinitef.c b/lib/libc/gen/isfinitef.c
new file mode 100644 (file)
index 0000000..6bbbb9e
--- /dev/null
@@ -0,0 +1,58 @@
+/*     $NetBSD: isfinitef_ieee754.c,v 1.1 2003/10/29 20:03:51 kleink Exp $     */
+/*     $DragonFly: src/lib/libc/gen/isfinitef.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.2 isfinite - determine whether an argument has finite value
+ *          IEEE 754 single-precision version
+ */
+int
+__isfinitef(float x)
+{
+       union ieee_single_u u;
+
+       u.sngu_f = x;
+
+       if (u.sngu_sng.sng_exp == SNG_EXP_INFNAN)
+               return 0;
+
+       return 1;
+}
index cf68a79..d58b3b4 100644 (file)
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" SUCH DAMAGE.
 .\"
 .\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"    $NetBSD: isinf.3,v 1.12 2004/03/04 23:47:56 wiz Exp $
+.\"    $DragonFly: src/lib/libc/gen/isinf.3,v 1.3 2005/07/26 21:15:19 joerg Exp $
 .\"
-.Dd January 29, 1994
+.Dd March 5, 2004
 .Dt ISINF 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm isinf
+.Nd test for infinity
 .Sh LIBRARY
 .Lb libc
 .Sh SYNOPSIS
 .In math.h
 .Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Fn isinf "real-floating x"
 .Sh DESCRIPTION
 The
 .Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+macro determines whether its argument
+.Fa x
+is an infinity (positive or negative).
+An argument represented in a format wider than its semantic type is
+converted to its semantic type first.
+The determination is then based on the type of the argument.
+.Ss IEEE 754
+It is determined whether the value of
+.Fa x
+is an infinity.
+.Ss VAX
+Infinities are not supported.
+.Sh RETURN VALUES
 The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn isinf
+macro returns a non-zero value if the value of
+.Fa x
+is an infinity.
+Otherwise 0 is returned.
 .Sh SEE ALSO
-.Xr math 3
+.Xr fpclassify 3 ,
+.Xr isfinite 3 ,
+.Xr isinff 3 ,
+.Xr isnan 3 ,
+.Xr isnanf 3 ,
+.Xr isnormal 3 ,
+.Xr math 3 ,
+.Xr signbit 3
 .Rs
 .%T "IEEE Standard for Binary Floating-Point Arithmetic"
 .%Q ANSI
 .%R Std 754-1985
 .Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh STANDARDS
+The
+.Fn isinf
+macro conforms to
+.St -isoC-99 .
similarity index 62%
copy from lib/libc/i386/gen/isinf.c
copy to lib/libc/gen/isinfd.c
index 30c1366..be01f0b 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isinfd_ieee754.c,v 1.1 2004/03/04 23:42:39 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/gen/isinfd.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.3 isinf - test for infinity
+ *          IEEE 754 double-precision version
+ */
 int
-isnan(d)
-       double d;
+__isinfd(double x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_double_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.dblu_d = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.dblu_dbl.dbl_exp == DBL_EXP_INFNAN &&
+           (u.dblu_dbl.dbl_frach == 0 && u.dblu_dbl.dbl_fracl == 0));
 }
similarity index 62%
copy from lib/libc/i386/gen/isinf.c
copy to lib/libc/gen/isinff.c
index 30c1366..871cefb 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isinff_ieee754.c,v 1.1 2004/03/04 23:42:39 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/gen/isinff.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.3 isinf - test for infinity
+ *          IEEE 754 single-precision version
+ */
 int
-isnan(d)
-       double d;
+__isinff(float x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_single_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.sngu_f = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.sngu_sng.sng_exp == SNG_EXP_INFNAN &&
+           u.sngu_sng.sng_frac == 0);
 }
similarity index 62%
copy from lib/libc/gen/isinf.3
copy to lib/libc/gen/isnan.3
index cf68a79..c4982ba 100644 (file)
@@ -1,3 +1,6 @@
+.\"    $NetBSD: isnan.3,v 1.2 2004/03/04 23:49:31 wiz Exp $
+.\"    $DragonFly: src/lib/libc/gen/isnan.3,v 1.1 2005/07/26 21:15:19 joerg Exp $
+.\"
 .\" Copyright (c) 1991, 1993
 .\"    The Regents of the University of California.  All rights reserved.
 .\"
@@ -9,11 +12,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     From: @(#)isinf.3      8.2 (Berkeley) 1/29/94
+.\"    from: NetBSD: isinf.3,v 1.10 2003/08/07 16:42:52 agc Exp
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd March 5, 2004
+.Dt ISNAN 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm isnan
+.Nd test for not-a-number
 .Sh LIBRARY
 .Lb libc
 .Sh SYNOPSIS
 .In math.h
 .Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Fn isnan "real-floating x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+.Fn isnan
+macro determines whether its argument
+.Fa x
+is not-a-number
+.Pq Dq NaN .
+An argument represented in a format wider than its semantic type is
+converted to its semantic type first.
+The determination is then based on the type of the argument.
+.Sh RETURN VALUES
 The
 .Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+macro returns a non-zero value if the value of
+.Fa x
+is a NaN.
+Otherwise 0 is returned.
 .Sh SEE ALSO
-.Xr math 3
+.Xr fpclassify 3 ,
+.Xr isfinite 3 ,
+.Xr isinf 3 ,
+.Xr isinff 3 ,
+.Xr isnanf 3 ,
+.Xr isnormal 3 ,
+.Xr math 3 ,
+.Xr signbit 3
 .Rs
 .%T "IEEE Standard for Binary Floating-Point Arithmetic"
 .%Q ANSI
 .%R Std 754-1985
 .Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh STANDARDS
+The
+.Fn isnan
+macro conforms to
+.St -isoC-99 .
similarity index 62%
copy from lib/libc/i386/gen/isinf.c
copy to lib/libc/gen/isnand.c
index 30c1366..f5b7db7 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isnand_ieee754.c,v 1.1 2004/03/04 23:42:39 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/gen/isnand.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.4 isnan - test for a NaN
+ *          IEEE 754 double-precision version
+ */
 int
-isnan(d)
-       double d;
+__isnand(double x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_double_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.dblu_d = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.dblu_dbl.dbl_exp == DBL_EXP_INFNAN &&
+           (u.dblu_dbl.dbl_frach != 0 || u.dblu_dbl.dbl_fracl != 0));
 }
similarity index 62%
copy from lib/libc/i386/gen/isinf.c
copy to lib/libc/gen/isnanf.c
index 30c1366..d34d456 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isnanf_ieee754.c,v 1.1 2004/03/04 23:42:39 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/gen/isnanf.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.4 isnan - test for a NaN
+ *          IEEE 754 single-precision version
+ */
 int
-isnan(d)
-       double d;
+__isnanf(float x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_single_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.sngu_f = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.sngu_sng.sng_exp == SNG_EXP_INFNAN &&
+           u.sngu_sng.sng_frac != 0);
 }
diff --git a/lib/libc/gen/signbit.3 b/lib/libc/gen/signbit.3
new file mode 100644 (file)
index 0000000..a8ecf93
--- /dev/null
@@ -0,0 +1,77 @@
+.\"    $NetBSD: signbit.3,v 1.2 2004/01/15 20:31:40 wiz Exp $
+.\"    $DragonFly: src/lib/libc/gen/signbit.3,v 1.1 2005/07/26 21:15:19 joerg Exp $
+.\"
+.\" Copyright (c) 2003 The NetBSD Foundation, Inc.
+.\" All rights reserved.
+.\"
+.\" This code is derived from software contributed to The NetBSD Foundation
+.\" by Klaus Klein.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"        This product includes software developed by the NetBSD
+.\"        Foundation, Inc. and its contributors.
+.\" 4. Neither the name of The NetBSD Foundation nor the names of its
+.\"    contributors may be used to endorse or promote products derived
+.\"    from this software without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+.\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+.\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+.\" PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+.\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+.\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+.\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+.\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+.\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+.\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+.\" POSSIBILITY OF SUCH DAMAGE.
+.\"
+.Dd October 29, 2003
+.Dt SIGNBIT 3
+.Os
+.Sh NAME
+.Nm signbit
+.Nd test sign
+.Sh LIBRARY
+.Lb libc
+.Sh SYNOPSIS
+.In math.h
+.Ft int
+.Fn signbit "real-floating x"
+.Sh DESCRIPTION
+The
+.Fn signbit
+macro determines whether the sign of its argument value
+.Fa x
+is negative.
+An argument represented in a format wider than its semantic type is
+converted to its semantic type first.
+The determination is then based on the type of the argument.
+.Sh RETURN VALUES
+The
+.Fn signbit
+macro returns a non-zero value if the sign of its value
+.Fa x
+is negative.
+Otherwise 0 is returned.
+.Sh ERRORS
+No errors are defined.
+.Sh SEE ALSO
+.Xr fpclassify 3 ,
+.Xr isfinite 3 ,
+.Xr isnormal 3 ,
+.Xr math 3
+.Sh STANDARDS
+The
+.Fn signbit
+macro conforms to
+.St -isoC-99 .
diff --git a/lib/libc/gen/signbitd.c b/lib/libc/gen/signbitd.c
new file mode 100644 (file)
index 0000000..9110a65
--- /dev/null
@@ -0,0 +1,55 @@
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $NetBSD: signbitd_ieee754.c,v 1.1 2004/01/15 19:43:45 kleink Exp $
+ * $DragonFly: src/lib/libc/gen/signbitd.c,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.6 signbit - determine whether the sign of an argument is negative
+ *          IEEE 754 double-precision version
+ */
+int
+__signbitd(double x)
+{
+       union ieee_double_u u;
+
+       u.dblu_d = x;
+
+       return (u.dblu_dbl.dbl_sign == 1);
+}
diff --git a/lib/libc/gen/signbitf.c b/lib/libc/gen/signbitf.c
new file mode 100644 (file)
index 0000000..4f8b69e
--- /dev/null
@@ -0,0 +1,55 @@
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $NetBSD: signbitf_ieee754.c,v 1.1 2004/01/15 19:43:45 kleink Exp $
+ * $DragonFly: src/lib/libc/gen/signbitf.c,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.6 signbit - determine whether the sign of an argument is negative
+ *          IEEE 754 single-precision version
+ */
+int
+__signbitf(float x)
+{
+       union ieee_single_u u;
+
+       u.sngu_f = x;
+
+       return (u.sngu_sng.sng_sign == 1);
+}
index 2a212f4..e087e9e 100644 (file)
@@ -1,6 +1,9 @@
 #      @(#)Makefile.inc        8.1 (Berkeley) 6/4/93
 # $FreeBSD: src/lib/libc/i386/gen/Makefile.inc,v 1.10.2.1 2001/02/07 00:12:45 peter Exp $
-# $DragonFly: src/lib/libc/i386/gen/Makefile.inc,v 1.4 2005/03/29 19:26:19 joerg Exp $
+# $DragonFly: src/lib/libc/i386/gen/Makefile.inc,v 1.5 2005/07/26 21:15:19 joerg Exp $
 
-SRCS+= _setjmp.S alloca.S fabs.S frexp.c infinity.c isinf.c \
-       ldexp.c modf.S rfork_thread.S setjmp.S sigsetjmp.S
+SRCS+= fpclassifyl.c frexp.c infinityl.c isfinitel.c isinfl.c isnanl.c \
+       ldexp.c nanf.c signbitl.c \
+       _setjmp.S alloca.S fabs.S flt_rounds.S fpgetmask.S fpgetround.S \
+       fpgetsticky.S fpsetmask.S fpsetround.S fpsetsticky.S modf.S \
+       rfork_thread.S setjmp.S sigsetjmp.S
diff --git a/lib/libc/i386/gen/flt_rounds.S b/lib/libc/i386/gen/flt_rounds.S
new file mode 100644 (file)
index 0000000..4f49c3e
--- /dev/null
@@ -0,0 +1,33 @@
+/*
+ * Written by J.T. Conklin, Apr 4, 1995
+ * Public domain.
+ *
+ * $NetBSD: flt_rounds.S,v 1.6 1999/08/23 08:45:09 kleink Exp $
+ * $DragonFly: src/lib/libc/i386/gen/flt_rounds.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+_START_ENTRY
+_map:
+       .byte 1         /* round to nearest */
+       .byte 3         /* round to negative infinity */
+       .byte 2         /* round to positive infinity */
+       .byte 0         /* round to zero */
+
+ENTRY(__flt_rounds)
+       subl $4,%esp
+       fnstcw (%esp)
+       movl (%esp),%eax
+       shrl $10,%eax
+       andl $3,%eax
+#ifdef PIC
+       PIC_PROLOGUE
+       leal PIC_GOTOFF(_map),%ecx
+       PIC_EPILOGUE
+       movb (%ecx,%eax,1),%al
+#else
+       movb _map(,%eax,1),%al
+#endif
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpclassifyl.c b/lib/libc/i386/gen/fpclassifyl.c
new file mode 100644 (file)
index 0000000..c39106c
--- /dev/null
@@ -0,0 +1,70 @@
+/*     $NetBSD: fpclassifyl.c,v 1.1 2003/10/28 22:05:37 kleink Exp $   */
+/*     $DragonFly: src/lib/libc/i386/gen/fpclassifyl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <assert.h>
+#include <math.h>
+
+/*
+ * 7.12.3.1 fpclassify - classify real floating type
+ *          IEEE 754 compatible 80-bit extended-precision Intel 386 version
+ */
+int
+__fpclassifyl(long double x)
+{
+       union ieee_ext_u u;
+
+       u.extu_ld = x;
+
+       _DIAGASSERT(u.extu_ext.ext_exp == 0 || u.extu_ext.ext_int == 1);
+
+       if (u.extu_ext.ext_exp == 0) {
+               if (u.extu_ext.ext_frach == 0 && u.extu_ext.ext_fracl == 0)
+                       return FP_ZERO;
+               else
+                       return FP_SUBNORMAL;
+       } else if (u.extu_ext.ext_exp == EXT_EXP_INFNAN) {
+               if (u.extu_ext.ext_frach == 0 && u.extu_ext.ext_fracl == 0)
+                       return FP_INFINITE;
+               else
+                       return FP_NAN;
+       }
+
+       return FP_NORMAL;
+}
diff --git a/lib/libc/i386/gen/fpgetmask.S b/lib/libc/i386/gen/fpgetmask.S
new file mode 100644 (file)
index 0000000..aa9c432
--- /dev/null
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin, Apr 4, 1995
+ * Public domain.
+ *
+ * $NetBSD: fpgetmask.S,v 1.4 2002/01/13 21:45:42 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpgetmask.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpgetmask, _fpgetmask)
+ENTRY(_fpgetmask)
+#else
+ENTRY(fpgetmask)
+#endif
+       subl $4,%esp
+       fnstcw (%esp)
+       movl (%esp),%eax
+       notl %eax
+       andl $63,%eax
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpgetround.S b/lib/libc/i386/gen/fpgetround.S
new file mode 100644 (file)
index 0000000..3a7f9a7
--- /dev/null
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin, Apr 4, 1995
+ * Public domain.
+ *
+ * $NetBSD: fpgetround.S,v 1.5 2002/01/13 21:45:43 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpgetround.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpgetround, _fpgetround)
+ENTRY(_fpgetround)
+#else
+ENTRY(fpgetround)
+#endif
+       subl $4,%esp
+       fnstcw (%esp)
+       movl (%esp),%eax
+       rorl $10,%eax
+       andl $3,%eax
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpgetsticky.S b/lib/libc/i386/gen/fpgetsticky.S
new file mode 100644 (file)
index 0000000..a6285dc
--- /dev/null
@@ -0,0 +1,21 @@
+/*
+ * Written by J.T. Conklin, Apr 4, 1995
+ * Public domain.
+ * $NetBSD: fpgetsticky.S,v 1.6 2002/01/13 21:45:43 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpgetsticky.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpgetsticky, _fpgetsticky)
+ENTRY(_fpgetsticky)
+#else
+ENTRY(fpgetsticky)
+#endif
+       subl $4,%esp
+       fnstsw (%esp)
+       movl (%esp),%eax
+       andl $63,%eax
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpsetmask.S b/lib/libc/i386/gen/fpsetmask.S
new file mode 100644 (file)
index 0000000..ad8278c
--- /dev/null
@@ -0,0 +1,34 @@
+/*
+ * Written by Charles M. Hannum, Apr 9, 1995
+ * Public domain.
+ *
+ * $NetBSD: fpsetmask.S,v 1.4 2002/01/13 21:45:43 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpsetmask.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpsetmask, _fpsetmask)
+ENTRY(_fpsetmask)
+#else
+ENTRY(fpsetmask)
+#endif
+       subl $4,%esp
+
+       fnstcw (%esp)
+       movl (%esp),%eax
+       movl %eax,%edx
+
+       notl %eax
+       andl $63,%eax
+
+       addl %eax,%edx
+       movl 8(%esp),%ecx
+       andl $63,%ecx
+       subl %ecx,%edx
+       movl %edx,(%esp)
+       fldcw (%esp)
+
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpsetround.S b/lib/libc/i386/gen/fpsetround.S
new file mode 100644 (file)
index 0000000..24f63d8
--- /dev/null
@@ -0,0 +1,35 @@
+/*
+ * Written by Charles M. Hannum, Apr 9, 1995
+ * Public domain.
+ *
+ * $NetBSD: fpsetround.S,v 1.3 2002/01/13 21:45:43 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpsetround.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpsetround, _fpsetround)
+ENTRY(_fpsetround)
+#else
+ENTRY(fpsetround)
+#endif
+       subl $4,%esp
+
+       fnstcw (%esp)
+       movl (%esp),%eax
+
+       rorl $10,%eax
+       movl %eax,%edx
+       andl $3,%eax
+
+       subl %eax,%edx
+       movl 8(%esp),%ecx
+       andl $3,%ecx
+       orl %ecx,%edx
+       roll $10,%edx
+       movl %edx,(%esp)
+       fldcw (%esp)
+
+       addl $4,%esp
+       ret
diff --git a/lib/libc/i386/gen/fpsetsticky.S b/lib/libc/i386/gen/fpsetsticky.S
new file mode 100644 (file)
index 0000000..58b7b7e
--- /dev/null
@@ -0,0 +1,33 @@
+/*
+ * Written by Charles M. Hannum, Apr 9, 1995
+ * Public domain.
+ *
+ * $NetBSD: fpsetsticky.S,v 1.6 2002/01/13 21:45:43 thorpej Exp $
+ * $DragonFly: src/lib/libc/i386/gen/fpsetsticky.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#ifdef WEAK_ALIAS
+WEAK_ALIAS(fpsetsticky, _fpsetsticky)
+ENTRY(_fpsetsticky)
+#else
+ENTRY(fpsetsticky)
+#endif
+       subl $28,%esp
+
+       fnstenv (%esp)
+       movl 4(%esp),%eax
+       movl %eax,%edx
+
+       andl $63,%eax
+
+       subl %eax,%edx
+       movl 32(%esp),%ecx
+       andl $63,%ecx
+       addl %ecx,%edx
+       movl %edx,4(%esp)
+       fldenv (%esp)
+
+       addl $28,%esp
+       ret
diff --git a/lib/libc/i386/gen/infinity.c b/lib/libc/i386/gen/infinity.c
deleted file mode 100644 (file)
index 6cad646..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-/*
- * infinity.c
- * $FreeBSD: src/lib/libc/i386/gen/infinity.c,v 1.5 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/infinity.c,v 1.2 2003/06/17 04:26:43 dillon Exp $
- */
-
-#include <math.h>
-
-/* bytes for +Infinity on a 387 */
-char __infinity[] = { 0, 0, 0, 0, 0, 0, 0xf0, 0x7f };
diff --git a/lib/libc/i386/gen/infinityl.c b/lib/libc/i386/gen/infinityl.c
new file mode 100644 (file)
index 0000000..08b868b
--- /dev/null
@@ -0,0 +1,12 @@
+/*     $NetBSD: infinityl.c,v 1.2 2005/06/12 05:21:26 lukem Exp $      */
+/*     $DragonFly: src/lib/libc/i386/gen/infinityl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * IEEE-compatible infinityl.c for little-endian 80-bit format -- public domain.
+ * Note that the representation includes 16 bits of tail padding per i386 ABI.
+ */
+
+#include <math.h>
+
+const union __long_double_u __infinityl =
+       { { 0, 0, 0, 0, 0, 0, 0, 0x80, 0xff, 0x7f, 0, 0 } };
diff --git a/lib/libc/i386/gen/isfinitel.c b/lib/libc/i386/gen/isfinitel.c
new file mode 100644 (file)
index 0000000..a6c09a0
--- /dev/null
@@ -0,0 +1,61 @@
+/*     $NetBSD: isfinitel.c,v 1.1 2003/10/29 20:03:51 kleink Exp $     */
+/*     $DragonFly: src/lib/libc/i386/gen/isfinitel.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <assert.h>
+#include <math.h>
+
+/*
+ * 7.12.3.2 isfinite - determine whether an argument has finite value
+ *          IEEE 754 compatible 80-bit extended-precision Intel 386 version
+ */
+int
+__isfinitel(long double x)
+{
+       union ieee_ext_u u;
+
+       u.extu_ld = x;
+
+       _DIAGASSERT(u.extu_ext.ext_exp == 0 || u.extu_ext.ext_int == 1);
+
+       if (u.extu_ext.ext_exp == EXT_EXP_INFNAN)
+               return 0;
+
+       return 1;
+}
similarity index 62%
copy from lib/libc/i386/gen/isinf.c
copy to lib/libc/i386/gen/isinfl.c
index 30c1366..4482c45 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isinfl.c,v 1.5 2004/03/04 23:42:38 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/i386/gen/isinfl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.3 isinf - test for infinity
+ *          IEEE 754 compatible 80-bit extended-precision Intel 386 version
+ */
 int
-isnan(d)
-       double d;
+__isinfl(long double x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_ext_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.extu_ld = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.extu_ext.ext_exp == EXT_EXP_INFNAN &&
+           (u.extu_ext.ext_int == 1 &&
+            u.extu_ext.ext_frach == 0 && u.extu_ext.ext_fracl == 0));
 }
similarity index 62%
rename from lib/libc/i386/gen/isinf.c
rename to lib/libc/i386/gen/isnanl.c
index 30c1366..ca5e930 100644 (file)
@@ -1,7 +1,14 @@
-/*-
- * Copyright (c) 1991, 1993
+/*     $NetBSD: isnanl.c,v 1.5 2004/03/04 23:42:38 kleink Exp $        */
+/*     $DragonFly: src/lib/libc/i386/gen/isnanl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*
+ * Copyright (c) 1992, 1993
  *     The Regents of the University of California.  All rights reserved.
  *
+ * This software was developed by the Computer Systems Engineering group
+ * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
+ * contributed to Berkeley.
+ *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *     This product includes software developed by the University of
- *     California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
+ * 3. Neither the name of the University nor the names of its contributors
  *    may be used to endorse or promote products derived from this software
  *    without specific prior written permission.
  *
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- * $FreeBSD: src/lib/libc/i386/gen/isinf.c,v 1.6 1999/08/27 23:59:21 peter Exp $
- * $DragonFly: src/lib/libc/i386/gen/Attic/isinf.c,v 1.4 2004/10/25 19:38:01 drhodus Exp $
+ * from: Header: isinf.c,v 1.1 91/07/08 19:03:34 torek Exp
  */
 
-#include <sys/types.h>
+#include <machine/ieee.h>
+#include <math.h>
 
+/*
+ * 7.12.3.4 isnan - test for a NaN
+ *          IEEE 754 compatible 80-bit extended-precision Intel 386 version
+ */
 int
-isnan(d)
-       double d;
+__isnanl(long double x)
 {
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       union ieee_ext_u u;
 
-       return(p->exp == 2047 && (p->manh || p->manl));
-}
-
-int
-isinf(d)
-       double d;
-{
-       struct IEEEdp {
-               u_int manl : 32;
-               u_int manh : 20;
-               u_int  exp : 11;
-               u_int sign :  1;
-       } *p = (struct IEEEdp *)&d;
+       u.extu_ld = x;
 
-       return(p->exp == 2047 && !p->manh && !p->manl);
+       return (u.extu_ext.ext_exp == EXT_EXP_INFNAN &&
+           u.extu_ext.ext_int == 1 &&
+           (u.extu_ext.ext_frach != 0 || u.extu_ext.ext_fracl != 0));
 }
diff --git a/lib/libc/i386/gen/nanf.c b/lib/libc/i386/gen/nanf.c
new file mode 100644 (file)
index 0000000..730b6d9
--- /dev/null
@@ -0,0 +1,9 @@
+/*     $NetBSD: nanf.c,v 1.3 2005/04/15 22:39:11 kleink Exp $  */
+/*     $DragonFly: src/lib/libc/i386/gen/nanf.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+#include <math.h>
+#include <machine/endian.h>
+
+/* bytes for quiet NaN (IEEE single precision) */
+const union __float_u __nanf =
+               { {    0,    0, 0xc0, 0x7f } };
diff --git a/lib/libc/i386/gen/signbitl.c b/lib/libc/i386/gen/signbitl.c
new file mode 100644 (file)
index 0000000..ba5ede6
--- /dev/null
@@ -0,0 +1,55 @@
+/*     $NetBSD: signbitl.c,v 1.1 2004/01/15 19:43:45 kleink Exp $      */
+/*     $DragonFly: src/lib/libc/i386/gen/signbitl.c,v 1.1 2005/07/26 21:15:19 joerg Exp $ */
+
+/*-
+ * Copyright (c) 2003 The NetBSD Foundation, Inc.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to The NetBSD Foundation
+ * by Klaus Klein.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *        This product includes software developed by the NetBSD
+ *        Foundation, Inc. and its contributors.
+ * 4. Neither the name of The NetBSD Foundation nor the names of its
+ *    contributors may be used to endorse or promote products derived
+ *    from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
+ * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+ * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
+ * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <machine/ieee.h>
+#include <math.h>
+
+/*
+ * 7.12.3.6 signbit - determine whether the sign of an argument is negative
+ *          IEEE 754 compatible 80-bit extended-precision Intel 386 version
+ */
+int
+__signbitl(long double x)
+{
+       union ieee_ext_u u;
+
+       u.extu_ld = x;
+
+       return (u.extu_ext.ext_sign == 1);
+}
diff --git a/lib/libm/Makefile b/lib/libm/Makefile
new file mode 100644 (file)
index 0000000..54ddc00
--- /dev/null
@@ -0,0 +1,12 @@
+# $DragonFly: src/lib/libm/Makefile,v 1.5 2005/07/26 21:15:19 joerg Exp $
+
+LIB=           m
+SHLIB_MAJOR=   3
+WARNS?=                6
+
+# Don't MD fragment must be included before MI fragment.
+.include "arch/${MACHINE_ARCH}/Makefile.inc"
+.include "man/Makefile.inc"
+.include "src/Makefile.inc"
+
+.include <bsd.lib.mk>
diff --git a/lib/libm/arch/i386/Makefile.inc b/lib/libm/arch/i386/Makefile.inc
new file mode 100644 (file)
index 0000000..e832ea8
--- /dev/null
@@ -0,0 +1,12 @@
+# $DragonFly: src/lib/libm/arch/i386/Makefile.inc,v 1.1 2005/07/26 21:15:19 joerg Exp $
+
+.PATH: ${.CURDIR}/arch/i386
+
+SRCS+= e_acos.S e_asin.S e_atan2.S e_atan2f.S e_exp.S e_expf.S e_fmod.S \
+       e_log.S e_log10.S e_log10f.S e_logf.S e_remainder.S e_remainderf.S \
+       e_scalb.S e_scalbf.S e_sqrt.S e_sqrtf.S lrint.S s_atan.S s_atanf.S \
+       s_ceil.S s_ceilf.S s_copysign.S s_copysignf.S s_cos.S s_cosf.S \
+       s_finite.S s_finitef.S s_floor.S s_floorf.S s_ilogb.S s_ilogbf.S \
+       s_log1p.S s_log1pf.S s_logb.S s_logbf.S s_rint.S s_rintf.S \
+       s_scalbn.S s_scalbnf.S s_significand.S s_significandf.S s_sin.S \
+       s_sinf.S s_tan.S s_tanf.S
diff --git a/lib/libm/arch/i386/abi.h b/lib/libm/arch/i386/abi.h
new file mode 100644 (file)
index 0000000..3d45ba0
--- /dev/null
@@ -0,0 +1,74 @@
+/*
+ * Written by Frank van der Linden (fvdl@wasabisystems.com)
+ *
+ * $NetBSD: abi.h,v 1.3 2004/03/22 13:41:09 wiz Exp $
+ * $DragonFly: src/lib/libm/arch/i386/abi.h,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * The x86-64 ABI specifies that float, double and long double
+ * arguments are passed in SSE2 (xmm) registers. Unfortunately,
+ * there is no way to push those on to the FP stack, which is
+ * where the fancier instructions get their arguments from.
+ *
+ * Define some prologues and epilogues to store and retrieve
+ * xmm regs to local variables.
+ */
+
+#ifdef __x86_64__
+
+#define ARG_DOUBLE_ONE         -8(%rsp)
+#define ARG_DOUBLE_TWO         -16(%rsp)
+#define ARG_FLOAT_ONE          -4(%rsp)
+#define ARG_FLOAT_TWO          -8(%rsp)
+
+#define XMM_ONE_ARG_DOUBLE_PROLOGUE \
+       movsd   %xmm0, ARG_DOUBLE_ONE
+       
+#define XMM_TWO_ARG_DOUBLE_PROLOGUE \
+       movsd   %xmm0, ARG_DOUBLE_ONE ; \
+       movsd   %xmm1, ARG_DOUBLE_TWO
+
+#define XMM_ONE_ARG_FLOAT_PROLOGUE \
+       movss   %xmm0, ARG_FLOAT_ONE
+
+#define XMM_TWO_ARG_FLOAT_PROLOGUE \
+       movss   %xmm0, ARG_FLOAT_ONE ; \
+       movss   %xmm1, ARG_FLOAT_TWO
+
+#define XMM_DOUBLE_EPILOGUE \
+       fstpl ARG_DOUBLE_ONE ; \
+       movsd ARG_DOUBLE_ONE, %xmm0
+
+#define XMM_FLOAT_EPILOGUE \
+       fstps ARG_FLOAT_ONE ; \
+       movss ARG_FLOAT_ONE, %xmm0
+
+#define FLDL_VAR(x)    fldl x(%rip)
+
+#else
+
+#define ARG_DOUBLE_ONE         4(%esp)
+#define ARG_DOUBLE_TWO         12(%esp)
+#define ARG_FLOAT_ONE          4(%esp)
+#define ARG_FLOAT_TWO          8(%esp)
+
+#define XMM_ONE_ARG_DOUBLE_PROLOGUE
+#define XMM_TWO_ARG_DOUBLE_PROLOGUE
+#define XMM_ONE_ARG_FLOAT_PROLOGUE
+#define XMM_TWO_ARG_FLOAT_PROLOGUE
+
+#define XMM_DOUBLE_EPILOGUE
+#define XMM_FLOAT_EPILOGUE
+
+#ifdef PIC
+#define FLDL_VAR(x) \
+       PIC_PROLOGUE ; \
+       fldl PIC_GOTOFF(x) ; \
+       PIC_EPILOGUE
+#else
+#define FLDL_VAR(x) \
+       fldl x
+
+#endif
+#endif
diff --git a/lib/libm/arch/i386/e_acos.S b/lib/libm/arch/i386/e_acos.S
new file mode 100644 (file)
index 0000000..ab1d744
--- /dev/null
@@ -0,0 +1,25 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_acos.S,v 1.8 2003/07/26 19:24:57 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_acos.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* acos = atan (sqrt(1 - x^2) / x) */
+ENTRY(acos)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE          /* x */
+       fld     %st(0)
+       fmul    %st(0)                  /* x^2 */
+       fld1
+       fsubp                           /* 1 - x^2 */
+       fsqrt                           /* sqrt (1 - x^2) */
+       fxch    %st(1)
+       fpatan
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_asin.S b/lib/libm/arch/i386/e_asin.S
new file mode 100644 (file)
index 0000000..ba91b31
--- /dev/null
@@ -0,0 +1,24 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_asin.S,v 1.7 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_asin.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* asin = atan (x / sqrt(1 - x^2)) */
+ENTRY(asin)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE          /* x */
+       fld     %st(0)
+       fmul    %st(0)                  /* x^2 */
+       fld1
+       fsubp                           /* 1 - x^2 */
+       fsqrt                           /* sqrt (1 - x^2) */
+       fpatan
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_atan2.S b/lib/libm/arch/i386/e_atan2.S
new file mode 100644 (file)
index 0000000..e444ec6
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_atan2.S,v 1.6 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_atan2.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(atan2)
+       XMM_TWO_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fldl    ARG_DOUBLE_TWO
+       fpatan
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_atan2f.S b/lib/libm/arch/i386/e_atan2f.S
new file mode 100644 (file)
index 0000000..a8d7daa
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_atan2f.S,v 1.3 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_atan2f.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(atan2f)
+       XMM_TWO_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       flds    ARG_FLOAT_TWO
+       fpatan
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_exp.S b/lib/libm/arch/i386/e_exp.S
new file mode 100644 (file)
index 0000000..02b30c7
--- /dev/null
@@ -0,0 +1,131 @@
+/*
+ * Copyright (c) 1993,94 Winning Strategies, Inc.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *      This product includes software developed by Winning Strategies, Inc.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $NetBSD: e_exp.S,v 1.12 2002/02/27 16:32:46 christos Exp $
+ * $FreeBSD: src/lib/msun/i387/e_exp.S,v 1.8.2.1 2000/07/10 09:16:28 obrien Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_exp.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * Written by:
+ *     J.T. Conklin (jtc@wimsey.com), Winning Strategies, Inc.
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+
+/* e^x = 2^(x * log2(e)) */
+ENTRY(exp)
+#ifndef __i386__
+       /*
+        * XXX: This code is broken and needs to be merged with the i386 case.
+        */
+       fstcw   -12(%rsp)
+       movw    -12(%rsp),%dx
+       orw     $0x0180,%dx
+       movw    %dx,-16(%rsp)
+       fldcw   -16(%rsp)
+       movsd   %xmm0,-8(%rsp)
+       fldl    -8(%rsp)
+
+       fldl2e
+       fmulp                           /* x * log2(e) */
+       fld     %st(0)
+       frndint                         /* int(x * log2(e)) */
+       fxch    %st(1)
+       fsub    %st(1),%st              /* fract(x * log2(e)) */
+       f2xm1                           /* 2^(fract(x * log2(e))) - 1 */
+       fld1
+       faddp                           /* 2^(fract(x * log2(e))) */
+       fscale                          /* e^x */
+       fstp    %st(1)
+
+       fstpl   -8(%rsp)
+       movsd   -8(%rsp),%xmm0
+       fldcw   -12(%rsp)
+       ret
+#else
+       /*
+        * If x is +-Inf, then the subtraction would give Inf-Inf = NaN.
+        * Avoid this.  Also avoid it if x is NaN for convenience.
+        */
+       movl    8(%esp),%eax
+       andl    $0x7fffffff,%eax
+       cmpl    $0x7ff00000,%eax
+       jae     x_Inf_or_NaN
+
+       fldl    4(%esp)
+
+       /*
+        * Ensure that the rounding mode is to nearest (to give the smallest
+        * possible fraction) and that the precision is as high as possible.
+        * We may as well mask interrupts if we switch the mode.
+        */
+       fstcw   4(%esp)
+       movl    4(%esp),%eax
+       andl    $0x0300,%eax
+       cmpl    $0x0300,%eax            /* RC == 0 && PC == 3? */
+       je      1f                      /* jump if mode is good */
+       movl    $0x137f,8(%esp)
+       fldcw   8(%esp)
+1:
+       fldl2e
+       fmulp                           /* x * log2(e) */
+       fst     %st(1)
+       frndint                         /* int(x * log2(e)) */
+       fst     %st(2)
+       fsubrp                          /* fract(x * log2(e)) */
+       f2xm1                           /* 2^(fract(x * log2(e))) - 1 */ 
+       fld1
+       faddp                           /* 2^(fract(x * log2(e))) */
+       fscale                          /* e^x */
+       fstp    %st(1)
+       je      1f
+       fldcw   4(%esp)
+1:
+       ret
+
+x_Inf_or_NaN:
+       /*
+        * Return 0 if x is -Inf.  Otherwise just return x, although the
+        * C version would return (x + x) (Real Indefinite) if x is a NaN.
+        */
+       cmpl    $0xfff00000,8(%esp)
+       jne     x_not_minus_Inf
+       cmpl    $0,4(%esp)
+       jne     x_not_minus_Inf
+       fldz
+       ret
+
+x_not_minus_Inf:
+       fldl    4(%esp)
+       ret
+#endif
diff --git a/lib/libm/arch/i386/e_expf.S b/lib/libm/arch/i386/e_expf.S
new file mode 100644 (file)
index 0000000..af11c13
--- /dev/null
@@ -0,0 +1,29 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_expf.S,v 1.5 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_expf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* e^x = 2^(x * log2(e)) */
+ENTRY(expf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fldl2e
+       fmulp                           /* x * log2(e) */
+       fld     %st(0)
+       frndint                         /* int(x * log2(e)) */
+       fsubr   %st(0),%st(1)           /* fract(x * log2(e)) */
+       fxch
+       f2xm1                           /* 2^(fract(x * log2(e))) - 1 */
+       fld1
+       faddp                           /* 2^(fract(x * log2(e))) */
+       fscale                          /* e^x */
+       fstp    %st(1)
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_fmod.S b/lib/libm/arch/i386/e_fmod.S
new file mode 100644 (file)
index 0000000..8f45112
--- /dev/null
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_fmod.S,v 1.7 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_fmod.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(fmod)
+       XMM_TWO_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_TWO
+       fldl    ARG_DOUBLE_ONE
+1:     fprem
+       fstsw   %ax
+       btw     $10,%ax
+       jc      1b
+       fstp    %st(1)
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_log.S b/lib/libm/arch/i386/e_log.S
new file mode 100644 (file)
index 0000000..89255eb
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_log.S,v 1.6 2003/07/26 19:24:58 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_log.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(log)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldln2
+       fldl    ARG_DOUBLE_ONE
+       fyl2x
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_log10.S b/lib/libm/arch/i386/e_log10.S
new file mode 100644 (file)
index 0000000..ed3a95c
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_log10.S,v 1.6 2003/07/26 19:24:59 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_log10.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(log10)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldlg2
+       fldl    ARG_DOUBLE_ONE
+       fyl2x
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_log10f.S b/lib/libm/arch/i386/e_log10f.S
new file mode 100644 (file)
index 0000000..0921f84
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_log10f.S,v 1.3 2003/07/26 19:24:59 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_log10f.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(log10f)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       fldlg2
+       flds    ARG_FLOAT_ONE
+       fyl2x
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_logf.S b/lib/libm/arch/i386/e_logf.S
new file mode 100644 (file)
index 0000000..6b9656b
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_logf.S,v 1.4 2003/07/26 19:24:59 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_logf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(logf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       fldln2
+       flds    ARG_FLOAT_ONE
+       fyl2x
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_remainder.S b/lib/libm/arch/i386/e_remainder.S
new file mode 100644 (file)
index 0000000..d1fbc9d
--- /dev/null
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_remainder.S,v 1.7 2003/07/26 19:24:59 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_remainder.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(remainder)
+       XMM_TWO_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_TWO
+       fldl    ARG_DOUBLE_ONE
+1:     fprem1
+       fstsw   %ax
+       btw     $10,%ax
+       jc      1b
+       fstp    %st(1)
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_remainderf.S b/lib/libm/arch/i386/e_remainderf.S
new file mode 100644 (file)
index 0000000..d0273e0
--- /dev/null
@@ -0,0 +1,23 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_remainderf.S,v 1.5 2003/07/26 19:24:59 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_remainderf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(remainderf)
+       XMM_TWO_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_TWO
+       flds    ARG_FLOAT_ONE
+1:     fprem1
+       fstsw   %ax
+       btw     $10,%ax
+       jc      1b
+       fstp    %st(1)
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_scalb.S b/lib/libm/arch/i386/e_scalb.S
new file mode 100644 (file)
index 0000000..2e0848b
--- /dev/null
@@ -0,0 +1,20 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_scalb.S,v 1.7 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_scalb.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(scalb)
+       XMM_TWO_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_TWO
+       fldl    ARG_DOUBLE_ONE
+       fscale
+       fstp    %st(1)                  /* bug fix for fp stack overflow */
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_scalbf.S b/lib/libm/arch/i386/e_scalbf.S
new file mode 100644 (file)
index 0000000..3489081
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_scalbf.S,v 1.3 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_scalbf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(scalbf)
+       XMM_TWO_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_TWO
+       flds    ARG_FLOAT_ONE
+       fscale
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/e_sqrt.S b/lib/libm/arch/i386/e_sqrt.S
new file mode 100644 (file)
index 0000000..02be103
--- /dev/null
@@ -0,0 +1,18 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_sqrt.S,v 1.6 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_sqrt.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(sqrt)
+#ifdef __i386__
+       fldl    4(%esp)
+       fsqrt
+#else
+       sqrtsd  %xmm0,%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/e_sqrtf.S b/lib/libm/arch/i386/e_sqrtf.S
new file mode 100644 (file)
index 0000000..b11010d
--- /dev/null
@@ -0,0 +1,18 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: e_sqrtf.S,v 1.4 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/e_sqrtf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(sqrtf)
+#ifdef __i386__
+       flds    4(%esp)
+       fsqrt
+#else
+       sqrtss  %xmm0,%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/lrint.S b/lib/libm/arch/i386/lrint.S
new file mode 100644 (file)
index 0000000..6318ad8
--- /dev/null
@@ -0,0 +1,24 @@
+/*
+ * Written by Matthias Drochner <drochner@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: lrint.S,v 1.2 2004/10/13 15:18:32 drochner Exp $
+ * $DragonFly: src/lib/libm/arch/i386/lrint.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(lrint)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $4,%esp
+       fldl    8(%ebp)
+       fistpl  (%esp)
+       movl    (%esp),%eax
+       leave
+       ret
+#else
+       cvtsd2siq %xmm0,%rax
+       ret
+#endif
diff --git a/lib/libm/arch/i386/s_atan.S b/lib/libm/arch/i386/s_atan.S
new file mode 100644 (file)
index 0000000..a60dc3c
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_atan.S,v 1.6 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_atan.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(atan)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fld1
+       fpatan
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_atanf.S b/lib/libm/arch/i386/s_atanf.S
new file mode 100644 (file)
index 0000000..cf2aefc
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_atanf.S,v 1.5 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_atanf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(atanf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fld1
+       fpatan
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_ceil.S b/lib/libm/arch/i386/s_ceil.S
new file mode 100644 (file)
index 0000000..ea3e7be
--- /dev/null
@@ -0,0 +1,46 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_ceil.S,v 1.7 2003/07/26 19:25:00 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_ceil.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(ceil)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $8,%esp
+
+       fstcw   -4(%ebp)                /* store fpu control word */
+       movw    -4(%ebp),%dx
+       orw     $0x0800,%dx             /* round towards +oo */
+       andw    $0xfbff,%dx
+       movw    %dx,-8(%ebp)
+       fldcw   -8(%ebp)                /* load modfied control word */
+
+       fldl    8(%ebp);                /* round */
+       frndint
+
+       fldcw   -4(%ebp)                /* restore original control word */
+
+       leave
+#else
+       fstcw   -12(%rsp)
+       movw    -12(%rsp),%dx
+       orw     $0x0800,%dx
+       andw    $0xfbff,%dx
+       movw    %dx,-16(%rsp)
+       fldcw   -16(%rsp)
+       movsd   %xmm0,-8(%rsp)
+       fldl    -8(%rsp)
+       frndint
+       fldcw   -12(%rsp)
+       fstpl   -8(%rsp)
+       movsd   -8(%rsp),%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_ceilf.S b/lib/libm/arch/i386/s_ceilf.S
new file mode 100644 (file)
index 0000000..d6aa330
--- /dev/null
@@ -0,0 +1,44 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_ceilf.S,v 1.8 2004/07/16 18:40:24 drochner Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_ceilf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(ceilf)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $8,%esp
+
+       fstcw   -4(%ebp)                /* store fpu control word */
+       movw    -4(%ebp),%dx
+       orw     $0x0800,%dx             /* round towards +oo */
+       andw    $0xfbff,%dx
+       movw    %dx,-8(%ebp)
+       fldcw   -8(%ebp)                /* load modfied control word */
+
+       flds    8(%ebp);                /* round */
+       frndint
+
+       fldcw   -4(%ebp)                /* restore original control word */
+
+       leave
+#else
+       fstcw   -8(%rsp)
+       movw    -8(%rsp),%dx
+       orw     $0x0800,%dx
+       andw    $0xfbff,%dx
+       movw    %dx,-12(%rsp)
+       fldcw   -12(%rsp)
+       movss   %xmm0,-4(%rsp)
+       flds    -4(%rsp)
+       frndint
+       fldcw   -8(%rsp)
+       fstps   -4(%rsp)
+       movss   -4(%rsp),%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_copysign.S b/lib/libm/arch/i386/s_copysign.S
new file mode 100644 (file)
index 0000000..6a256bb
--- /dev/null
@@ -0,0 +1,54 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_copysign.S,v 1.6 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_copysign.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * XXXfvdl might as well split this file.
+ */
+
+#include <machine/asm.h>
+
+#ifdef __x86_64__
+.Lpos:
+       .quad   0x8000000000000000
+.Lneg:
+       .quad   0x7fffffffffffffff
+#endif
+
+
+ENTRY(copysign)
+#ifdef __i386__
+       movl    16(%esp),%edx
+       andl    $0x80000000,%edx
+       movl    8(%esp),%eax
+       andl    $0x7fffffff,%eax
+       orl     %edx,%eax
+       movl    %eax,8(%esp)
+       fldl    4(%esp)
+#else
+#if 0
+       /*
+        * XXXfvdl gas doesn't grok this yet.
+        */
+       movq    .Lpos(%rip),%xmm2
+       movq    .Lneg(%rip),%xmm3
+       pand    %xmm2,%xmm1
+       pand    %xmm3,%xmm0
+       por     %xmm1,%xmm0
+#else
+       movsd   %xmm0,-8(%rsp)
+       movsd   %xmm1,-16(%rsp)
+       movl    -12(%rsp),%edx
+       andl    $0x80000000,%edx
+       movl    -4(%rsp),%eax
+       andl    $0x7fffffff,%eax
+       orl     %edx,%eax
+       movl    %eax,-4(%rsp)
+       movsd   -8(%rsp),%xmm0
+#endif
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_copysignf.S b/lib/libm/arch/i386/s_copysignf.S
new file mode 100644 (file)
index 0000000..4198854
--- /dev/null
@@ -0,0 +1,54 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_copysignf.S,v 1.5 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_copysignf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+/*
+ * XXXfvdl split this file.
+ */
+
+#ifdef __x86_64__
+.Lneg:
+       .long 0x7fffffff
+.Lpos:
+       .long 0x80000000
+#endif
+
+ENTRY(copysignf)
+#ifdef __i386__
+       movl    8(%esp),%edx
+       andl    $0x80000000,%edx
+       movl    4(%esp),%eax
+       andl    $0x7fffffff,%eax
+       orl     %edx,%eax
+       movl    %eax,4(%esp)
+       flds    4(%esp)
+#else
+#if 0
+       /*
+        * XXXfvdl gas doesn't grok this.
+        * but it's legal according to the p4 manual.
+        */
+       movss    .Lpos(%rip),%xmm2
+       movss    .Lneg(%rip),%xmm3
+       pandq   %xmm2,%xmm1
+       pandq   %xmm3,%xmm0
+       porq    %xmm1,%xmm0
+#else
+       movss   %xmm0,-4(%rsp)
+       movss   %xmm1,-8(%rsp)
+       movl    -8(%rsp),%edx
+       andl    $0x80000000,%edx
+       movl    -4(%rsp),%eax
+       andl    $0x7fffffff,%eax
+       orl     %edx,%eax
+       movl    %eax,-4(%rsp)
+       movss   -4(%rsp),%xmm0
+#endif
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_cos.S b/lib/libm/arch/i386/s_cos.S
new file mode 100644 (file)
index 0000000..7335609
--- /dev/null
@@ -0,0 +1,32 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_cos.S,v 1.8 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_cos.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(cos)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fcos
+       fnstsw  %ax
+       andw    $0x400,%ax
+       jnz     1f
+       XMM_DOUBLE_EPILOGUE
+       ret
+1:     fldpi
+       fadd    %st(0)
+       fxch    %st(1)
+2:     fprem1
+       fnstsw  %ax
+       andw    $0x400,%ax
+       jnz     2b
+       fstp    %st(1)
+       fcos
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_cosf.S b/lib/libm/arch/i386/s_cosf.S
new file mode 100644 (file)
index 0000000..fcd5d17
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_cosf.S,v 1.6 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_cosf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* A float's domain isn't large enough to require argument reduction. */
+ENTRY(cosf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fcos
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_finite.S b/lib/libm/arch/i386/s_finite.S
new file mode 100644 (file)
index 0000000..9c3a34f
--- /dev/null
@@ -0,0 +1,27 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_finite.S,v 1.7 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_finite.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(finite)
+#ifdef __i386__
+       movl    8(%esp),%eax
+       andl    $0x7ff00000, %eax
+       cmpl    $0x7ff00000, %eax
+       setne   %al
+       andl    $0x000000ff, %eax
+#else
+       xorl    %eax,%eax
+       movq    $0x7ff0000000000000,%rsi
+       movq    %rsi,%rdi
+       movsd   %xmm0,-8(%rsp)
+       andq    -8(%rsp),%rsi
+       cmpq    %rdi,%rsi
+       setne   %al
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_finitef.S b/lib/libm/arch/i386/s_finitef.S
new file mode 100644 (file)
index 0000000..1cc58d5
--- /dev/null
@@ -0,0 +1,26 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_finitef.S,v 1.6 2003/07/26 19:25:01 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_finitef.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(finitef)
+#ifdef __i386__
+       movl    4(%esp),%eax
+       andl    $0x7f800000, %eax
+       cmpl    $0x7f800000, %eax
+       setne   %al
+       andl    $0x000000ff, %eax
+#else
+       xorl    %eax,%eax
+       movl    $0x7ff00000,%esi
+       movss   %xmm0,-4(%rsp)
+       andl    -4(%rsp),%esi
+       cmpl    $0x7ff00000,%esi
+       setne   %al
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_floor.S b/lib/libm/arch/i386/s_floor.S
new file mode 100644 (file)
index 0000000..e297801
--- /dev/null
@@ -0,0 +1,44 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_floor.S,v 1.8 2003/07/26 19:25:02 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_floor.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(floor)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $8,%esp
+
+       fstcw   -4(%ebp)                /* store fpu control word */
+       movw    -4(%ebp),%dx
+       orw     $0x0400,%dx             /* round towards -oo */
+       andw    $0xf7ff,%dx
+       movw    %dx,-8(%ebp)
+       fldcw   -8(%ebp)                /* load modfied control word */
+
+       fldl    8(%ebp);                /* round */
+       frndint
+
+       fldcw   -4(%ebp)                /* restore original control word */
+
+       leave
+#else
+       movsd   %xmm0, -8(%rsp)
+       fstcw   -12(%rsp)
+       movw    -12(%rsp),%dx
+       orw     $0x0400,%dx
+       andw    $0xf7ff,%dx
+       movw    %dx,-16(%rsp)
+       fldcw   -16(%rsp)
+       fldl    -8(%rsp)
+       frndint
+       fldcw   -12(%rsp)
+       fstpl   -8(%rsp)
+       movsd   -8(%rsp),%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_floorf.S b/lib/libm/arch/i386/s_floorf.S
new file mode 100644 (file)
index 0000000..9307341
--- /dev/null
@@ -0,0 +1,44 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_floorf.S,v 1.7 2004/07/16 18:40:24 drochner Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_floorf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(floorf)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $8,%esp
+
+       fstcw   -4(%ebp)                /* store fpu control word */
+       movw    -4(%ebp),%dx
+       orw     $0x0400,%dx             /* round towards -oo */
+       andw    $0xf7ff,%dx
+       movw    %dx,-8(%ebp)
+       fldcw   -8(%ebp)                /* load modfied control word */
+
+       flds    8(%ebp);                /* round */
+       frndint
+
+       fldcw   -4(%ebp)                /* restore original control word */
+
+       leave
+#else
+       movss   %xmm0, -4(%rsp)
+       fstcw   -8(%rsp)
+       movw    -8(%rsp),%dx
+       orw     $0x0400,%dx
+       andw    $0xf7ff,%dx  
+       movw    %dx,-12(%rsp)
+       fldcw   -12(%rsp)
+       flds    -4(%rsp)
+       frndint
+       fldcw   -8(%rsp)
+       fstps   -4(%rsp)
+       movss   -4(%rsp),%xmm0
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_ilogb.S b/lib/libm/arch/i386/s_ilogb.S
new file mode 100644 (file)
index 0000000..e53419e
--- /dev/null
@@ -0,0 +1,33 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_ilogb.S,v 1.7 2003/07/26 19:25:02 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_ilogb.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(ilogb)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $4,%esp
+
+       fldl    8(%ebp)
+       fxtract
+       fstp    %st
+
+       fistpl  -4(%ebp)
+       movl    -4(%ebp),%eax
+
+       leave
+#else
+       movsd   %xmm0,-8(%rsp)
+       fldl    -8(%rsp)
+       fxtract
+       fstp    %st
+       fistpl  -8(%rsp)
+       movl    -8(%rsp),%eax
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_ilogbf.S b/lib/libm/arch/i386/s_ilogbf.S
new file mode 100644 (file)
index 0000000..8791e5e
--- /dev/null
@@ -0,0 +1,33 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_ilogbf.S,v 1.6 2003/07/26 19:25:02 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_ilogbf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+ENTRY(ilogbf)
+#ifdef __i386__
+       pushl   %ebp
+       movl    %esp,%ebp
+       subl    $4,%esp
+
+       flds    8(%ebp)
+       fxtract
+       fstp    %st
+
+       fistpl  -4(%ebp)
+       movl    -4(%ebp),%eax
+
+       leave
+#else
+       movss   %xmm0,-4(%rsp)
+       flds    -4(%rsp)
+       fxtract
+       fstp    %st
+       fistpl  -4(%rsp)
+       movl    -4(%rsp),%eax
+#endif
+       ret
diff --git a/lib/libm/arch/i386/s_log1p.S b/lib/libm/arch/i386/s_log1p.S
new file mode 100644 (file)
index 0000000..5397deb
--- /dev/null
@@ -0,0 +1,77 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_log1p.S,v 1.13 2003/09/16 18:17:11 wennmach Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_log1p.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * Modified by Lex Wennmacher <wennmach@NetBSD.org>
+ * Still public domain.
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/*
+ * The log1p() function is provided to compute an accurate value of
+ * log(1 + x), even for tiny values of x. The i387 FPU provides the
+ * fyl2xp1 instruction for this purpose. However, the range of this
+ * instruction is limited to:
+ *             -(1 - (sqrt(2) / 2)) <= x <= sqrt(2) - 1
+ *                         -0.292893 <= x <= 0.414214
+ * at least on older processor versions.
+ *
+ * log1p() is implemented by testing the range of the argument.
+ * If it is appropriate for fyl2xp1, this instruction is used.
+ * Else, we compute log1p(x) = ln(2)*ld(1 + x) the traditional way
+ * (using fyl2x).
+ *
+ * The range testing costs speed, but as the rationale for the very
+ * existence of this function is accuracy, we accept that.
+ *
+ * In order to reduce the cost for testing the range, we check if
+ * the argument is in the range
+ *                             -0.25 <= x <= 0.25
+ * which can be done with just one conditional branch. If x is
+ * inside this range, we use fyl2xp1. Outside of this range,
+ * the use of fyl2x is accurate enough.
+ * 
+ */
+
+.text
+       .align  4
+ENTRY(log1p)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fabs
+       fld1                            /* ... x 1 */
+       fadd    %st(0)                  /* ... x 2 */
+       fadd    %st(0)                  /* ... x 4 */
+       fld1                            /* ... 4 1 */
+       fdivp                           /* ... x 0.25 */
+       fcompp
+       fnstsw  %ax
+       andb    $69,%ah
+       jne     use_fyl2x
+       jmp     use_fyl2xp1
+
+       .align  4
+use_fyl2x:
+       fldln2
+        fldl   ARG_DOUBLE_ONE
+        fld1
+        faddp
+        fyl2x
+       XMM_DOUBLE_EPILOGUE
+        ret
+
+       .align  4
+use_fyl2xp1:
+       fldln2
+       fldl    ARG_DOUBLE_ONE
+       fyl2xp1
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_log1pf.S b/lib/libm/arch/i386/s_log1pf.S
new file mode 100644 (file)
index 0000000..7a20816
--- /dev/null
@@ -0,0 +1,77 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_log1pf.S,v 1.10 2003/09/16 18:17:11 wennmach Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_log1pf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+/*
+ * Modified by Lex Wennmacher <wennmach@NetBSD.org>
+ * Still public domain.
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/*
+ * The log1pf() function is provided to compute an accurate value of
+ * log(1 + x), even for tiny values of x. The i387 FPU provides the
+ * fyl2xp1 instruction for this purpose. However, the range of this
+ * instruction is limited to:
+ *             -(1 - (sqrt(2) / 2)) <= x <= sqrt(2) - 1
+ *                         -0.292893 <= x <= 0.414214
+ * at least on older processor versions.
+ *
+ * log1pf() is implemented by testing the range of the argument.
+ * If it is appropriate for fyl2xp1, this instruction is used.
+ * Else, we compute log1pf(x) = ln(2)*ld(1 + x) the traditional way
+ * (using fyl2x).
+ *
+ * The range testing costs speed, but as the rationale for the very
+ * existence of this function is accuracy, we accept that.
+ *
+ * In order to reduce the cost for testing the range, we check if
+ * the argument is in the range
+ *                             -0.25 <= x <= 0.25
+ * which can be done with just one conditional branch. If x is
+ * inside this range, we use fyl2xp1. Outside of this range,
+ * the use of fyl2x is accurate enough.
+ * 
+ */
+
+.text
+       .align  4
+ENTRY(log1pf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fabs
+       fld1                            /* ... x 1 */
+       fadd    %st(0)                  /* ... x 2 */
+       fadd    %st(0)                  /* ... x 4 */
+       fld1                            /* ... 4 1 */
+       fdivp                           /* ... x 0.25 */
+       fcompp
+       fnstsw  %ax
+       andb    $69,%ah
+       jne     use_fyl2x
+       jmp     use_fyl2xp1
+
+       .align  4
+use_fyl2x:
+       fldln2
+        flds   ARG_FLOAT_ONE
+        fld1
+        faddp
+        fyl2x
+       XMM_FLOAT_EPILOGUE
+        ret
+
+       .align  4
+use_fyl2xp1:
+       fldln2
+       flds    ARG_FLOAT_ONE
+       fyl2xp1
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_logb.S b/lib/libm/arch/i386/s_logb.S
new file mode 100644 (file)
index 0000000..aad0f92
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_logb.S,v 1.6 2003/07/26 19:25:02 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_logb.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(logb)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fxtract
+       fstp    %st
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_logbf.S b/lib/libm/arch/i386/s_logbf.S
new file mode 100644 (file)
index 0000000..ec66ed4
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_logbf.S,v 1.5 2003/07/26 19:25:02 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_logbf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(logbf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fxtract
+       fstp    %st
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_rint.S b/lib/libm/arch/i386/s_rint.S
new file mode 100644 (file)
index 0000000..2f3d72d
--- /dev/null
@@ -0,0 +1,18 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_rint.S,v 1.6 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_rint.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(rint)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       frndint
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_rintf.S b/lib/libm/arch/i386/s_rintf.S
new file mode 100644 (file)
index 0000000..893d3b9
--- /dev/null
@@ -0,0 +1,18 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_rintf.S,v 1.5 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_rintf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(rintf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       frndint
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_scalbn.S b/lib/libm/arch/i386/s_scalbn.S
new file mode 100644 (file)
index 0000000..e8b9c22
--- /dev/null
@@ -0,0 +1,20 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_scalbn.S,v 1.7 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_scalbn.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(scalbn)
+       XMM_TWO_ARG_DOUBLE_PROLOGUE
+       fildl   ARG_DOUBLE_TWO
+       fldl    ARG_DOUBLE_ONE
+       fscale
+       fstp    %st(1)          /* bug fix for fp stack overflow */
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_scalbnf.S b/lib/libm/arch/i386/s_scalbnf.S
new file mode 100644 (file)
index 0000000..421960d
--- /dev/null
@@ -0,0 +1,20 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_scalbnf.S,v 1.6 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_scalbnf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(scalbnf)
+       XMM_TWO_ARG_FLOAT_PROLOGUE
+       fildl   ARG_FLOAT_TWO
+       flds    ARG_FLOAT_ONE
+       fscale
+       fstp    %st(1)          /* bug fix for fp stack overflow */
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_significand.S b/lib/libm/arch/i386/s_significand.S
new file mode 100644 (file)
index 0000000..7b62ce2
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_significand.S,v 1.6 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_significand.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(significand)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fxtract
+       fstp    %st(1)
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_significandf.S b/lib/libm/arch/i386/s_significandf.S
new file mode 100644 (file)
index 0000000..57a4cd2
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_significandf.S,v 1.5 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_significandf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(significandf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fxtract
+       fstp    %st(1)
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_sin.S b/lib/libm/arch/i386/s_sin.S
new file mode 100644 (file)
index 0000000..26eaa09
--- /dev/null
@@ -0,0 +1,32 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_sin.S,v 1.7 2003/07/26 19:25:03 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_sin.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(sin)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fsin
+       fnstsw  %ax
+       andw    $0x400,%ax
+       jnz     1f
+       XMM_DOUBLE_EPILOGUE
+       ret
+1:     fldpi
+       fadd    %st(0)
+       fxch    %st(1)
+2:     fprem1
+       fnstsw  %ax
+       andw    $0x400,%ax
+       jnz     2b
+       fstp    %st(1)
+       fsin
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_sinf.S b/lib/libm/arch/i386/s_sinf.S
new file mode 100644 (file)
index 0000000..4f39f62
--- /dev/null
@@ -0,0 +1,19 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_sinf.S,v 1.5 2003/07/26 19:25:04 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_sinf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* A float's domain isn't large enough to require argument reduction. */
+ENTRY(sinf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fsin
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_tan.S b/lib/libm/arch/i386/s_tan.S
new file mode 100644 (file)
index 0000000..9fd47e6
--- /dev/null
@@ -0,0 +1,34 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_tan.S,v 1.7 2003/07/26 19:25:04 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_tan.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+ENTRY(tan)
+       XMM_ONE_ARG_DOUBLE_PROLOGUE
+       fldl    ARG_DOUBLE_ONE
+       fptan
+       fnstsw  %ax
+       andw    $0x400,%ax
+       jnz     1f
+       fstp    %st(0)
+       XMM_DOUBLE_EPILOGUE
+       ret
+1:     fldpi
+       fadd    %st(0)
+       fxch    %st(1)
+2:     fprem1
+       fstsw   %ax
+       andw    $0x400,%ax
+       jnz     2b
+       fstp    %st(1)
+       fptan
+       fstp    %st(0)
+       XMM_DOUBLE_EPILOGUE
+       ret
diff --git a/lib/libm/arch/i386/s_tanf.S b/lib/libm/arch/i386/s_tanf.S
new file mode 100644 (file)
index 0000000..87535c7
--- /dev/null
@@ -0,0 +1,20 @@
+/*
+ * Written by J.T. Conklin <jtc@NetBSD.org>.
+ * Public domain.
+ *
+ * $NetBSD: s_tanf.S,v 1.5 2003/07/26 19:25:04 salo Exp $
+ * $DragonFly: src/lib/libm/arch/i386/s_tanf.S,v 1.1 2005/07/26 21:15:19 joerg Exp $
+ */
+
+#include <machine/asm.h>
+
+#include "abi.h"
+
+/* A float's domain isn't large enough to require argument reduction. */
+ENTRY(tanf)
+       XMM_ONE_ARG_FLOAT_PROLOGUE
+       flds    ARG_FLOAT_ONE
+       fptan
+       fstp    %st(0)
+       XMM_FLOAT_EPILOGUE
+       ret
diff --git a/lib/libm/man/Makefile.inc b/lib/libm/man/Makefile.inc
new file mode 100644 (file)
index 0000000..cef5736
--- /dev/null
@@ -0,0 +1,28 @@
+# $DragonFly: src/lib/libm/man/Makefile.inc,v 1.1 2005/07/26 21:15:20 joerg Exp $
+
+.PATH: ${.CURDIR}/man
+
+MAN+=  acos.3 acosh.3 asin.3 asinh.3 atan.3 atan2.3 atanh.3 ceil.3 \
+       cos.3 cosh.3 erf.3 exp.3 fabs.3 floor.3 fmod.3 hypot.3 ieee.3 \
+       ieee_test.3 j0.3 lgamma.3 math.3 rint.3 round.3 sin.3 \
+       sinh.3 sqrt.3 tan.3 tanh.3
+MLINKS+=       \
+       acos.3 acosf.3 acosh.3 acoshf.3 asin.3 asinf.3 asinh.3 asinhf.3 \
+       atan.3 atanf.3 atan2.3 atan2f.3 atanh.3 atanhf.3 ceil.3 ceilf.3 \
+       cos.3 cosf.3 cosh.3 coshf.3 erf.3 erff.3 erf.3 erfc.3 erf.3 erfcf.3 \
+       exp.3 expf.3 exp.3 expm1.3 exp.3 expm1f.3 exp.3 log.3 exp.3 logf.3 \
+       exp.3 log10.3 exp.3 log10f.3 exp.3 log1p.3 exp.3 pow.3 exp.3 powf.3 \
+       fabs.3 fabsf.3 floor.3 floorf.3 fmod.3 fmodf.3 hypot.3 hypotf.3 \
+       hypot.3 cabs.3 bypot.3 cabsf.3 ieee.3 copysign.3 ieee.3 copysignf.3 \
+       ieee.3 finite,3 ieee.3 finitef.3 ieee.3 ilogb.3 ieee.3 ilogbf.3 \
+       ieee.3 nextafter.3 ieee.3 nextafterf.3 ieee.3 remainder.3 \
+       ieee.3 remainderf.3 ieee.3 scalbn.3 ieee.3 scalbnf.3 \
+       ieee_test.3 logb.3 ieee_test.3 logbf.3 ieee_test.3 scalb.3 \
+       ieee_test.3 scalbf.3 ieee_test.3 significand.3 \
+       ieee_test.3 significandf.3 j0.3 j0f.3 j0.3 j1.3 j0.3 j1f.3 j0.3 jn.3 \
+       j0.3 jnf.3 j0.3 y0.3 j0.3 y0f.3 j0.3 y1.3 j0.3 y1f.3 j0.3 \
+       yn.3 j0.3 ynf.3 lgamma.3 lgammaf.3 lgamma.3 lgamma_r.3 \
+       lgamma.3 lgammaf_r.3 lgamma.3 gamma.3 lgamma.3 gammaf.3 \
+       lgamma.3 gamma_r.3 lgamma.3 gammaf_r.3 rint.3 rintf.3 \
+       round.3 roundf.3 sin.3 sinf.3 sinh.3 sinhf.3 sqrt.3 cbrt.3 \
+       sqrt.3 cbrtf.3 sqrt.3 sqrtf.3 tan.3 tanf.3 tanh.3 tanhf.3
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/acos.3
index cf68a79..c59a2f2 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)acos.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: acos.3,v 1.16 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/acos.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt ACOS 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm acos ,
+.Nm acosf
+.Nd arc cosine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn acos "double x"
+.Ft float
+.Fn acosf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn acos
+and
+.Fn acosf
+functions compute the principal value of the arc cosine of
+.Fa x
+in the range
+.Bq 0 , \*(Pi .
+.Sh RETURN VALUES
+If |x|\*[Gt]1,
+.Fn acos "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn acosf "x"
+.\" POSIX_MODE
+set the global variable
+.Va errno
+to EDOM.
+.\" SYSV_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.\" .Xr matherr 3
+.Sh STANDARDS
+The
+.Fn acos
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/acosh.3
index cf68a79..39274d8 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)acosh.3      5.2 (Berkeley) 5/6/91
+.\"    $NetBSD: acosh.3,v 1.15 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/acosh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 6, 1991
+.Dt ACOSH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm acosh ,
+.Nm acoshf
+.Nd inverse hyperbolic cosine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn acosh "double x"
+.Ft float
+.Fn acoshf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn acosh
+and
+.Fn acoshf
+functions compute the inverse hyperbolic cosine
+of the real
+argument
+.Ar x .
+.Sh RETURN VALUES
+.\" POSIX_MODE
+If x is less than one,
+.Fn acosh "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn acoshf "x"
+return NaN and set the global variable
+.Va errno
+to EDOM.
+.\" SVR4_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
+.Xr asinh 3 ,
+.Xr atanh 3 ,
+.Xr exp 3 ,
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.\" .Xr matherr 3
+.Sh HISTORY
+The
+.Fn acosh
+function appeared in
+.Bx 4.3 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/asin.3
index cf68a79..49ab906 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)asin.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: asin.3,v 1.16 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/asin.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt ASIN 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm asin ,
+.Nm asinf
+.Nd arc sine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn asin "double x"
+.Ft float
+.Fn asinf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn asin
+and
+.Fn asinf
+functions compute the principal value of the arc sine of
+.Fa x
+in the range
+.Bk -words
+.Bq -\*(Pi/2, +\*(Pi/2 .
+.Ek
+.Sh RETURN VALUES
+.\" POSIX_MODE
+If |x|\*[Gt]1,
+.Fn asin "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn asinf "x"
+return NaN and set the global variable
+.Va errno
+to EDOM.
+.\" SYSV_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.\" .Xr matherr 3
+.Sh STANDARDS
+The
+.Fn asin
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/asinh.3
index cf68a79..9d8dcb1 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)asinh.3      6.4 (Berkeley) 5/6/91
+.\"    $NetBSD: asinh.3,v 1.15 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/asinh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 6, 1991
+.Dt ASINH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm asinh ,
+.Nm asinhf
+.Nd inverse hyperbolic sine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn asinh "double x"
+.Ft float
+.Fn asinhf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+.Fn asinh
+and
+.Fn asinhf
+functions compute the inverse hyperbolic sine
+of the real
+argument
+.Sh RETURN VALUES
 The
-.Fn isnan
+.Fn asinh
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn asinhf
+functions return the inverse hyperbolic sine of
+.Ar x .
+.\" SYSV_MODE
+.\" .Sh RETURN VALUES
+.\" Exceptional cases are handled by
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
+.Xr acosh 3 ,
+.Xr atanh 3 ,
+.Xr exp 3 ,
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.\" .Xr matherr 3
+.Sh HISTORY
+The
+.Fn asinh
+function appeared in
+.Bx 4.3 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/atan.3
index cf68a79..144e106 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)atan.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: atan.3,v 1.16 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/atan.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt ATAN 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm atan ,
+.Nm atanf
+.Nd arc tangent function of one variable
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn atan "double x"
+.Ft float
+.Fn atanf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn atan
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn atanf
+functions compute the principal value of the arc tangent of
+.Fa x
+in the range
+.Bk -words
+.Bq -\*(Pi/2 , +\*(Pi/2 .
+.Ek
+.\" SYSV_MODE
+.\" .Sh RETURN VALUES
+.\" Exceptional cases are handled by
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.\" .Xr matherr 3
+.Sh STANDARDS
+The
+.Fn atan
+functions conforms to
+.St -ansiC .
diff --git a/lib/libm/man/atan2.3 b/lib/libm/man/atan2.3
new file mode 100644 (file)
index 0000000..b984841
--- /dev/null
@@ -0,0 +1,193 @@
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)atan2.3      5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: atan2.3,v 1.16 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/atan2.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd May 2, 1991
+.Dt ATAN2 3
+.Os
+.Sh NAME
+.Nm atan2 ,
+.Nm atan2f
+.Nd arc tangent function of two variables
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft double
+.Fn atan2 "double y" "double x"
+.Ft float
+.Fn atan2f "float y" "float x"
+.Sh DESCRIPTION
+The
+.Fn atan2
+and
+.Fn atan2f
+functions compute the principal value of the arc tangent of
+.Ar y/ Ns Ar x ,
+using the signs of both arguments to determine the quadrant of
+the return value.
+.Sh RETURN VALUES
+The
+.Fn atan2
+function, if successful,
+returns the arc tangent of
+.Ar y/ Ns Ar x
+in the range
+.Bk -words
+.Bq \&- Ns \*(Pi , \&+ Ns \*(Pi
+.Ek
+radians.
+If both
+.Ar x
+and
+.Ar y
+are zero, the global variable
+.Va errno
+is set to
+.Er EDOM .
+On the
+.Tn VAX :
+.Bl -column atan_(y,x)_:=____  sign(y)_(Pi_atan2(Xy_xX))___
+.It Fn atan2 y x No := Ta
+.Fn atan y/x Ta
+if
+.Ar x
+\*[Gt] 0,
+.It Ta sign( Ns Ar y Ns )*(\*(Pi -
+.Fn atan "\\*(Bay/x\\*(Ba" ) Ta
+if
+.Ar x
+\*[Lt] 0,
+.It Ta
+.No 0 Ta
+if x = y = 0, or
+.It Ta
+.Pf sign( Ar y Ns )*\\*(Pi/2 Ta
+if
+.Ar x
+= 0 \*(!=
+.Ar y .
+.El
+.Sh NOTES
+The function
+.Fn atan2
+defines "if x \*[Gt] 0,"
+.Fn atan2 0 0
+= 0 on a
+.Tn VAX
+despite that previously
+.Fn atan2 0 0
+may have generated an error message.
+The reasons for assigning a value to
+.Fn atan2 0 0
+are these:
+.Bl -enum -offset indent
+.It
+Programs that test arguments to avoid computing
+.Fn atan2 0 0
+must be indifferent to its value.
+Programs that require it to be invalid are vulnerable
+to diverse reactions to that invalidity on diverse computer systems.
+.It
+The
+.Fn atan2
+function is used mostly to convert from rectangular (x,y)
+to polar
+.if n\
+(r,theta)
+.if t\
+(r,\(*h)
+coordinates that must satisfy x =
+.if n\
+r\(**cos theta
+.if t\
+r\(**cos\(*h
+and y =
+.if n\
+r\(**sin theta.
+.if t\
+r\(**sin\(*h.
+These equations are satisfied when (x=0,y=0)
+is mapped to
+.if n \
+(r=0,theta=0)
+.if t \
+(r=0,\(*h=0)
+on a VAX.
+In general, conversions to polar coordinates should be computed thus:
+.Bd -unfilled -offset indent
+.if n \{\
+r      := hypot(x,y);  ... := sqrt(x\(**x+y\(**y)
+theta  := atan2(y,x).
+.\}
+.if t \{\
+r      := hypot(x,y);  ... := \(sr(x\u\s82\s10\d+y\u\s82\s10\d)
+\(*h   := atan2(y,x).
+.\}
+.Ed
+.It
+The foregoing formulas need not be altered to cope in a
+reasonable way with signed zeros and infinities
+on a machine that conforms to
+.Tn IEEE 754 ;
+the versions of
+.Xr hypot 3
+and
+.Fn atan2
+provided for
+such a machine are designed to handle all cases.
+That is why
+.Fn atan2 \(+-0 \-0
+= \(+-\*(Pi
+for instance.
+In general the formulas above are equivalent to these:
+.Bd -unfilled -offset indent
+.if n \
+r := sqrt(x\(**x+y\(**y); if r = 0 then x := copysign(1,x);
+.if t \
+r := \(sr(x\(**x+y\(**y);\0\0if r = 0 then x := copysign(1,x);
+.Ed
+.El
+.Sh SEE ALSO
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.Sh STANDARDS
+The
+.Fn atan2
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/atanh.3
index cf68a79..6ce7a6e 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)atanh.3      5.2 (Berkeley) 5/6/91
+.\"    $NetBSD: atanh.3,v 1.15 2003/08/07 16:44:46 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/atanh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 6, 1991
+.Dt ATANH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm atanh ,
+.Nm atanhf
+.Nd inverse hyperbolic tangent function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn atanh "double x"
+.Ft float
+.Fn atanhf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn atanh
+and
+.Fn atanhf
+functions compute the inverse hyperbolic tangent
+of the real
+argument
+.Ar x .
+.Sh RETURN VALUES
+If |x|\*[Ge]1,
+.Fn atanh "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn atanhf "x"
+.\" POSIX_MODE
+return +inf, -inf or NaN, and sets the global variable
+.Va errno
+to EDOM.
+.\" SYSV_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
+.Xr acosh 3 ,
+.Xr asinh 3 ,
+.Xr exp 3 ,
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.\" .Xr matherr 3
+.Sh HISTORY
+The
+.Fn atanh
+function appeared in
+.Bx 4.3 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/ceil.3
index cf68a79..fa8ccc0 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)ceil.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: ceil.3,v 1.17 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/ceil.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd March 10, 1994
+.Dt CEIL 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm ceil ,
+.Nm ceilf
+.Nd "round to smallest integral value greater than or equal to x"
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn ceil "double x"
+.Ft float
+.Fn ceilf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn ceil
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn ceilf
+functions return the smallest integral value
+greater than or equal to
+.Fa x .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr abs 3 ,
+.Xr fabs 3 ,
+.Xr floor 3 ,
+.Xr ieee 3 ,
+.Xr math 3 ,
+.Xr rint 3
+.Sh STANDARDS
+The
+.Fn ceil
+function conforms to
+.St -ansiC .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/cos.3
index cf68a79..41fd88f 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)cos.3        5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: cos.3,v 1.15 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/cos.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt COS 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm cos ,
+.Nm cosf
+.Nd cosine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn cos "double x"
+.Ft float
+.Fn cosf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn cos
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn cosf
+functions compute the cosine of
+.Fa x
+(measured in radians).
+A large magnitude argument may yield a result with little or no
+significance.
+For a discussion of error due to roundoff, see
+.Xr math 3 .
+.Sh RETURN VALUES
+The
+.Fn cos
+function returns the cosine value.
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.Sh STANDARDS
+The
+.Fn cos
+function conforms to
+.St -ansiC .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/cosh.3
index cf68a79..804c0ed 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1989, 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)cosh.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: cosh.3,v 1.15 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/cosh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt COSH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm cosh ,
+.Nm coshf
+.Nd hyperbolic cosine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn cosh "double x"
+.Ft float
+.Fn coshf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn cosh
+and
+.Fn coshf
+functions compute the hyperbolic cosine of
+.Fa x .
+.Sh RETURN VALUES
+If the magnitude of x is too large,
+.Fn cosh "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn coshf "x"
+.\" POSIX_MODE
+return Inf and sets the global variable
+.Va errno
+to ERANGE.
+.\" SYSV_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.\" .Xr matherr 3
+.Sh STANDARDS
+The
+.Fn cosh
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/erf.3
index cf68a79..f0283d5 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)erf.3        6.4 (Berkeley) 4/20/91
+.\"    $NetBSD: erf.3,v 1.12 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/erf.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd April 20, 1991
+.Dt ERF 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm erf ,
+.Nm erff ,
+.Nm erfc ,
+.Nm erfcf
+.Nd error function operators
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn erf "double x"
+.Ft float
+.Fn erff "float x"
+.Ft double
+.Fn erfc "double x"
+.Ft float
+.Fn erfcf "float x"
 .Sh DESCRIPTION
+These functions calculate the error function of
+.Fa x .
+.Pp
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
+.Fn erf
+calculates the error function of x; where
+.Bd -filled -offset indent
+.if n \{\
+erf(x) = 2/sqrt(pi)\(**\|integral from 0 to x of exp(\-t\(**t) dt. \}
+.if t \{\
+erf\|(x) :=
+(2/\(sr\(*p)\|\(is\d\s8\z0\s10\u\u\s8x\s10\d\|exp(\-t\u\s82\s10\d)\|dt. \}
+.Ed
 .Pp
 The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn erfc
+function calculates the complementary error function of
+.Fa x ;
+that is
+.Fn erfc
+subtracts the result of the error function
+.Fn erf x
+from 1.0.
+This is useful, since for large
+.Fa x
+places disappear.
 .Sh SEE ALSO
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh HISTORY
+The
+.Fn erf
+and
+.Fn erfc
+functions appeared in
+.Bx 4.3 .
diff --git a/lib/libm/man/exp.3 b/lib/libm/man/exp.3
new file mode 100644 (file)
index 0000000..ad5a297
--- /dev/null
@@ -0,0 +1,307 @@
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)exp.3        6.12 (Berkeley) 7/31/91
+.\"    $NetBSD: exp.3,v 1.21 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/exp.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd July 31, 1991
+.Dt EXP 3
+.Os
+.Sh NAME
+.Nm exp ,
+.Nm expf ,
+.Nm expm1 ,
+.Nm expm1f ,
+.Nm log ,
+.Nm logf ,
+.Nm log10 ,
+.Nm log10f ,
+.Nm log1p ,
+.Nm log1pf ,
+.Nm pow ,
+.Nm powf
+.Nd exponential, logarithm, power functions
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft double
+.Fn exp "double x"
+.Ft float
+.Fn expf "float x"
+.Ft double
+.Fn expm1 "double x"
+.Ft float
+.Fn expm1f "float x"
+.Ft double
+.Fn log "double x"
+.Ft float
+.Fn logf "float x"
+.Ft double
+.Fn log10 "double x"
+.Ft float
+.Fn log10f "float x"
+.Ft double
+.Fn log1p "double x"
+.Ft float
+.Fn log1pf "float x"
+.Ft double
+.Fn pow "double x" "double y"
+.Ft float
+.Fn powf "float x" "float y"
+.Sh DESCRIPTION
+The
+.Fn exp
+function computes the exponential value of the given argument
+.Fa x .
+.Pp
+The
+.Fn expm1
+function computes the value exp(x)\-1 accurately even for tiny argument
+.Fa x .
+.Pp
+The
+.Fn log
+function computes the value of the natural logarithm of argument
+.Fa x .
+.Pp
+The
+.Fn log10
+function computes the value of the logarithm of argument
+.Fa x
+to base 10.
+.Pp
+The
+.Fn log1p
+function computes
+the value of log(1+x) accurately even for tiny argument
+.Fa x .
+.Pp
+The
+.Fn pow
+computes the value
+of
+.Ar x
+to the exponent
+.Ar y .
+.Sh RETURN VALUES
+These functions will return the appropriate computation unless an error
+occurs or an argument is out of range.
+The functions
+.Fn exp ,
+.Fn expm1
+and
+.Fn pow
+detect if the computed value will overflow,
+set the global variable
+.Va errno
+to
+.Er ERANGE
+and cause a reserved operand fault on a
+.Tn VAX .
+The function
+.Fn pow x y
+checks to see if
+.Fa x
+\*[Lt] 0 and
+.Fa y
+is not an integer, in the event this is true,
+the global variable
+.Va errno
+is set to
+.Er EDOM
+and on the
+.Tn VAX
+generate a reserved operand fault.
+On a
+.Tn VAX ,
+.Va errno
+is set to
+.Er EDOM
+and the reserved operand is returned
+by log unless
+.Fa x
+\*[Gt] 0, by
+.Fn log1p
+unless
+.Fa x
+\*[Gt] \-1.
+.Sh ERRORS
+exp(x), log(x), expm1(x) and log1p(x) are accurate to within
+an
+.Em ulp ,
+and log10(x) to within about 2
+.Em ulps ;
+an
+.Em ulp
+is one
+.Em Unit
+in the
+.Em Last
+.Em Place .
+The error in
+.Fn pow x y
+is below about 2
+.Em ulps
+when its
+magnitude is moderate, but increases as
+.Fn pow x y
+approaches
+the over/underflow thresholds until almost as many bits could be
+lost as are occupied by the floating\-point format's exponent
+field; that is 8 bits for
+.Tn "VAX D"
+and 11 bits for IEEE 754 Double.
+No such drastic loss has been exposed by testing; the worst
+errors observed have been below 20
+.Em ulps
+for
+.Tn "VAX D" ,
+300
+.Em ulps
+for
+.Tn IEEE
+754 Double.
+Moderate values of
+.Fn pow
+are accurate enough that
+.Fn pow integer integer
+is exact until it is bigger than 2**56 on a
+.Tn VAX ,
+2**53 for
+.Tn IEEE
+754.
+.Sh NOTES
+The functions exp(x)\-1 and log(1+x) are called
+expm1 and logp1 in
+.Tn BASIC
+on the Hewlett\-Packard
+.Tn HP Ns \-71B
+and
+.Tn APPLE
+Macintosh,
+.Tn EXP1
+and
+.Tn LN1
+in Pascal, exp1 and log1 in C
+on
+.Tn APPLE
+Macintoshes, where they have been provided to make
+sure financial calculations of ((1+x)**n\-1)/x, namely
+expm1(n\(**log1p(x))/x, will be accurate when x is tiny.
+They also provide accurate inverse hyperbolic functions.
+.Pp
+The function
+.Fn pow x 0
+returns x**0 = 1 for all x including x = 0,
+.if n \
+Infinity
+.if t \
+\(if
+(not found on a
+.Tn VAX ) ,
+and
+.Em NaN
+(the reserved
+operand on a
+.Tn VAX ) .
+Previous implementations of pow may
+have defined x**0 to be undefined in some or all of these
+cases.
+Here are reasons for returning x**0 = 1 always:
+.Bl -enum -width indent
+.It
+Any program that already tests whether x is zero (or
+infinite or \*(Na) before computing x**0 cannot care
+whether 0**0 = 1 or not.
+Any program that depends
+upon 0**0 to be invalid is dubious anyway since that
+expression's meaning and, if invalid, its consequences
+vary from one computer system to another.
+.It
+Some Algebra texts (e.g. Sigler's) define x**0 = 1 for
+all x, including x = 0.
+This is compatible with the convention that accepts a[0]
+as the value of polynomial
+.Bd -literal -offset indent
+p(x) = a[0]\(**x**0 + a[1]\(**x**1 + a[2]\(**x**2 +...+ a[n]\(**x**n
+.Ed
+.Pp
+at x = 0 rather than reject a[0]\(**0**0 as invalid.
+.It
+Analysts will accept 0**0 = 1 despite that x**y can
+approach anything or nothing as x and y approach 0
+independently.
+The reason for setting 0**0 = 1 anyway is this:
+.Bd -filled -offset indent
+If x(z) and y(z) are
+.Em any
+functions analytic (expandable
+in power series) in z around z = 0, and if there
+x(0) = y(0) = 0, then x(z)**y(z) \(-\*[Gt] 1 as z \(-\*[Gt] 0.
+.Ed
+.It
+If 0**0 = 1, then
+.if n \
+infinity**0 = 1/0**0 = 1 too; and
+.if t \
+\(if**0 = 1/0**0 = 1 too; and
+then \*(Na**0 = 1 too because x**0 = 1 for all finite
+and infinite x, i.e., independently of x.
+.El
+.Sh SEE ALSO
+.Xr math 3
+.Sh STANDARDS
+The
+.Fn exp ,
+.Fn log ,
+.Fn log10
+and
+.Fn pow
+functions conform to
+.St -ansiC .
+.Sh HISTORY
+A
+.Fn exp ,
+.Fn log
+and
+.Fn pow
+functions
+appeared in
+.At v6 .
+A
+.Fn log10
+function
+appeared in
+.At v7 .
+The
+.Fn log1p
+and
+.Fn expm1
+functions appeared in
+.Bx 4.3 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/fabs.3
index cf68a79..ae46483 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)fabs.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: fabs.3,v 1.14 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/fabs.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt FABS 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm fabs ,
+.Nm fabsf
+.Nd floating-point absolute value function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn fabs "double x"
+.Ft float
+.Fn fabsf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn fabs
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn fabsf
+functions compute the absolute value of a floating-point number
+.Fa x .
+.Sh RETURN VALUES
+The
+.Fn fabs
+function returns the absolute value of
+.Fa x .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr abs 3 ,
+.Xr ceil 3 ,
+.Xr floor 3 ,
+.Xr ieee 3 ,
+.Xr math 3 ,
+.Xr rint 3
+.Sh STANDARDS
+The
+.Fn fabs
+function conforms to
+.St -ansiC .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/floor.3
index cf68a79..ada22a0 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)floor.3      6.5 (Berkeley) 4/19/91
+.\"    $NetBSD: floor.3,v 1.14 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/floor.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd March 10, 1994
+.Dt FLOOR 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm floor ,
+.Nm floorf
+.Nd round to largest integral value not greater than x
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn floor "double x"
+.Ft float
+.Fn floorf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn floor
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn floorf
+functions return the largest integral value
+less than or equal to
+.Fa x .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr abs 3 ,
+.Xr ceil 3 ,
+.Xr fabs 3 ,
+.Xr ieee 3 ,
+.Xr math 3 ,
+.Xr rint 3
+.Sh STANDARDS
+The
+.Fn floor
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/fmod.3
index cf68a79..0a592d0 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)fmod.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: fmod.3,v 1.11 2003/08/07 16:44:47 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/fmod.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt FMOD 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm fmod ,
+.Nm fmodf
+.Nd floating-point remainder function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn fmod "double x" "double y"
+.Ft float
+.Fn fmodf "float x" "float y"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+.Fn fmod
+function computes the floating-point remainder of
+.Fa x Ns / Fa y .
+.Sh RETURN VALUES
 The
-.Fn isnan
+.Fn fmod
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn fmodf
+functions return the value
+.Sm off
+.Fa x - Em i * Fa y ,
+.Sm on
+for some integer
+.Em i
+such that, if
+.Fa y
+is non-zero, the result has the same sign as
+.Fa x
+and magnitude less than the magnitude of
+.Fa y .
+If
+.Fa y
+is zero, whether a domain error occurs or the
+.Fn fmod
+function returns zero is implementation-defined.
 .Sh SEE ALSO
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh STANDARDS
+The
+.Fn fmod
+function conforms to
+.St -ansiC .
diff --git a/lib/libm/man/hypot.3 b/lib/libm/man/hypot.3
new file mode 100644 (file)
index 0000000..bc56ea8
--- /dev/null
@@ -0,0 +1,137 @@
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)hypot.3      6.7 (Berkeley) 5/6/91
+.\"    $NetBSD: hypot.3,v 1.16 2003/11/02 11:17:16 wiz Exp $
+.\"    $DragonFly: src/lib/libm/man/hypot.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd May 6, 1991
+.Dt HYPOT 3
+.Os
+.Sh NAME
+.Nm hypot ,
+.Nm hypotf ,
+.Nm cabs ,
+.Nm cabsf
+.Nd Euclidean distance and complex absolute value functions
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft double
+.Fn hypot "double x" "double y"
+.Ft float
+.Fn hypotf "float x" "float y"
+.Ft double
+.Fn cabs "struct complex { double x; double y; } z"
+.Ft float
+.Fn cabsf "struct complex { float x; float y; } z"
+.Sh DESCRIPTION
+The
+.Fn hypot
+and
+.Fn cabs
+functions
+compute the
+sqrt(x*x+y*y)
+in such a way that underflow will not happen, and overflow
+occurs only if the final result deserves it.
+.Pp
+.Fn hypot "\*(If" "v"
+=
+.Fn hypot "v" "\*(If"
+= +\*(If for all
+.Ar v ,
+including \*(Na.
+.Sh ERRORS
+Below 0.97
+.Em ulps .
+Consequently
+.Fn hypot "5.0" "12.0"
+= 13.0
+exactly;
+in general, hypot and cabs return an integer whenever an
+integer might be expected.
+.Pp
+The same cannot be said for the shorter and faster version of hypot
+and cabs that is provided in the comments in cabs.c; its error can
+exceed 1.2
+.Em ulps .
+.Sh NOTES
+As might be expected,
+.Fn hypot "v" "\*(Na"
+and
+.Fn hypot "\*(Na" "v"
+are \*(Na for all
+.Em finite
+.Ar v ;
+with "reserved operand" in place of "\*(Na", the
+same is true on a
+.Tn VAX .
+But programmers on machines other than a
+.Tn VAX
+(it has no \*(If)
+might be surprised at first to discover that
+.Fn hypot "\(+-\*(If" "\*(Na"
+= +\*(If.
+This is intentional; it happens because
+.Fn hypot "\*(If" "v"
+= +\*(If
+for
+.Em all
+.Ar v ,
+finite or infinite.
+Hence
+.Fn hypot "\*(If" "v"
+is independent of
+.Ar v .
+Unlike the reserved operand fault on a
+.Tn VAX ,
+the
+.Tn IEEE
+\*(Na is designed to
+disappear when it turns out to be irrelevant, as it does in
+.Fn hypot "\*(If" "\*(Na" .
+.Sh SEE ALSO
+.Xr math 3 ,
+.Xr sqrt 3
+.Sh HISTORY
+Both a
+.Fn hypot
+function and a
+.Fn cabs
+function
+appeared in
+.At v7 .
+.Sh BUGS
+The
+.Fn cabs
+and
+.Fn cabsf
+functions use structures that are not defined in any header and need to
+be defined by the user.
+As such they cannot be prototyped properly.
diff --git a/lib/libm/man/ieee.3 b/lib/libm/man/ieee.3
new file mode 100644 (file)
index 0000000..9876790
--- /dev/null
@@ -0,0 +1,169 @@
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)ieee.3       6.4 (Berkeley) 5/6/91
+.\"    $NetBSD: ieee.3,v 1.19 2003/08/07 16:44:48 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/ieee.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd February 25, 1994
+.Dt IEEE 3
+.Os
+.Sh NAME
+.Nm copysign ,
+.Nm copysignf ,
+.Nm finite ,
+.Nm finitef ,
+.Nm ilogb ,
+.Nm ilogbf ,
+.Nm nextafter ,
+.Nm nextafterf ,
+.Nm remainder ,
+.Nm remainderf ,
+.Nm scalbn ,
+.Nm scalbnf
+.Nd functions for IEEE arithmetic
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft double
+.Fn copysign "double x" "double y"
+.Ft float
+.Fn copysignf "float x" "float y"
+.Ft int
+.Fn finite "double x"
+.Ft int
+.Fn finitef "float x"
+.Ft int
+.Fn ilogb "double x"
+.Ft int
+.Fn ilogbf "float x"
+.Ft double
+.Fn nextafter "double x" "double y"
+.Ft float
+.Fn nextafterf "float x" "float y"
+.Ft double
+.Fn remainder "double x" "double y"
+.Ft float
+.Fn remainderf "float x" "float y"
+.Ft double
+.Fn scalbn "double x" "int n"
+.Ft float
+.Fn scalbnf "float x" "int n"
+.Sh DESCRIPTION
+These functions are required or recommended by
+.St -ieee754 .
+.Pp
+.Fn copysign
+returns
+.Fa x
+with its sign changed to
+.Fa y Ns 's .
+.Pp
+.Fn finite
+returns the value 1 just when
+\-\*(If \*(Lt
+.Fa x
+\*(Lt +\*(If;
+otherwise a
+zero is returned
+(when
+.Pf \\*(Ba Ns Fa x Ns \\*(Ba
+= \*(If or
+.Fa x
+is \*(Na).
+.Pp
+.Fn ilogb
+returns
+.Fa x Ns 's exponent
+.Fa n ,
+in integer format.
+.Fn ilogb \*(Pm\*(If
+returns
+.Dv INT_MAX
+and
+.Fn ilogb 0
+returns
+.Dv INT_MIN .
+.Pp
+.Fn nextafter
+returns the next machine representable number from
+.Fa x
+in direction
+.Fa y .
+.Pp
+.Fn remainder
+returns the remainder
+.Fa r
+:=
+.Fa x
+\-
+.Fa n\(**y
+where
+.Fa n
+is the integer nearest the exact value of
+.Bk -words
+.Fa x Ns / Ns Fa y ;
+.Ek
+moreover if
+.Pf \\*(Ba Fa n
+\-
+.Sm off
+.Fa x No / Fa y No \\*(Ba
+.Sm on
+=
+1/2
+then
+.Fa n
+is even.
+Consequently the remainder is computed exactly and
+.Sm off
+.Pf \\*(Ba Fa r No \\*(Ba
+.Sm on
+\*(Le
+.Sm off
+.Pf \\*(Ba Fa y No \\*(Ba/2 .
+.Sm on
+But
+.Fn remainder x 0
+and
+.Fn remainder \*(If 0
+are invalid operations that produce a \*(Na.
+.Pp
+.Fn scalbn
+returns
+.Fa x Ns \(**(2** Ns Fa n )
+computed by exponent manipulation.
+.Sh SEE ALSO
+.Xr math 3
+.Sh STANDARDS
+.St -ieee754
+.Sh HISTORY
+The
+.Nm ieee
+functions appeared in
+.Bx 4.3 .
similarity index 53%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/ieee_test.3
index cf68a79..6e49d46 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)ieee.3       6.4 (Berkeley) 5/6/91
+.\"    $NetBSD: ieee_test.3,v 1.10 2003/08/07 16:44:48 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/ieee_test.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd March 10, 1994
+.Dt IEEE_TEST 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm logb ,
+.Nm logbf ,
+.Nm scalb ,
+.Nm scalbf ,
+.Nm significand ,
+.Nm significandf
+.Nd IEEE test functions
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn logb "double x"
+.Ft float
+.Fn logbf "float x"
+.Ft double
+.Fn scalb "double x" "double n"
+.Ft float
+.Fn scalbf "float x" "float n"
+.Ft double
+.Fn significand "double x"
+.Ft float
+.Fn significandf "float x"
 .Sh DESCRIPTION
-The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
+These functions allow users to test conformance to
+.St -ieee754 .
+Their use is not otherwise recommended.
 .Pp
-The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn logb x
+returns
+.Fa x Ns 's exponent
+.Fa n ,
+a signed integer converted to double\-precision floating\-point.
+.Fn logb \*(Pm\*(If
+= +\*(If;
+.Fn logb 0
+= -\*(If with a division by zero exception.
+.Pp
+.Fn scalbn x n
+returns
+.Fa x Ns \(**(2** Ns Fa n )
+computed by exponent manipulation.
+.Pp
+.Fn significand x
+returns
+.Fa sig ,
+where
+.Fa x
+:=
+.Fa sig No \(** 2** Ns Fa n
+with 1 \*[Le]
+.Fa sig
+\*[Lt] 2.
+.Fn significand x
+is not defined when
+.Fa x
+is 0, \*(Pm\*(If, or \*(Na.
 .Sh SEE ALSO
+.Xr ieee 3 ,
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh STANDARDS
+.St -ieee754
diff --git a/lib/libm/man/j0.3 b/lib/libm/man/j0.3
new file mode 100644 (file)
index 0000000..1dd591b
--- /dev/null
@@ -0,0 +1,154 @@
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)j0.3 6.7 (Berkeley) 4/19/91
+.\"    $NetBSD: j0.3,v 1.16 2003/08/07 16:44:48 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/j0.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd April 19, 1991
+.Dt J0 3
+.Os
+.Sh NAME
+.Nm j0 ,
+.Nm j0f ,
+.Nm j1 ,
+.Nm j1f ,
+.Nm jn ,
+.Nm jnf ,
+.Nm y0 ,
+.Nm y0f ,
+.Nm y1 ,
+.Nm y1f ,
+.Nm yn ,
+.Nm ynf
+.Nd Bessel functions of first and second kind
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft double
+.Fn j0 "double x"
+.Ft float
+.Fn j0f "float x"
+.Ft double
+.Fn j1 "double x"
+.Ft float
+.Fn j1f "float x"
+.Ft double
+.Fn jn "int n" "double x"
+.Ft float
+.Fn jnf "int n" "float x"
+.Ft double
+.Fn y0 "double x"
+.Ft float
+.Fn y0f "float x"
+.Ft double
+.Fn y1 "double x"
+.Ft float
+.Fn y1f "float x"
+.Ft double
+.Fn yn "int n" "double x"
+.Ft float
+.Fn ynf "int n" "float x"
+.Sh DESCRIPTION
+The functions
+.Fn j0 ,
+.Fn j0f ,
+.Fn j1
+and
+.Fn j1f
+compute the
+.Em Bessel function of the first kind of the order
+0 and the
+.Em order
+1, respectively,
+for the
+real value
+.Fa x ;
+the functions
+.Fn jn
+and
+.Fn jnf
+compute the
+.Em Bessel function of the first kind of the integer order
+.Fa n
+for the real value
+.Fa x .
+.Pp
+The functions
+.Fn y0 ,
+.Fn y0f ,
+.Fn y1
+and
+.Fn y1f
+compute the linearly independent
+.Em Bessel function of the second kind of the order
+0 and the
+.Em order
+1, respectively,
+for the
+positive
+.Em integer
+value
+.Fa x
+(expressed as a double);
+the functions
+.Fn yn
+and
+.Fn ynf
+compute the
+.Em Bessel function of the second kind for the integer order
+.Fa n
+for the positive
+.Em integer
+value
+.Fa x
+(expressed as a double).
+.Sh RETURN VALUES
+If these functions are successful,
+the computed value is returned, otherwise
+the global
+variable
+.Va errno
+is set to
+.Er EDOM
+and a reserve operand fault is generated.
+.\" On the
+.\" .Tn VAX
+.\" and
+.\" .Tn Tahoe
+.\" architectures, a negative
+.\" .Fa x
+.\" value
+.\" results in an error.
+.Sh SEE ALSO
+.Xr math 3
+.\" .Xr matherr 3
+.Sh HISTORY
+This set of functions
+appeared in
+.At v7 .
diff --git a/lib/libm/man/lgamma.3 b/lib/libm/man/lgamma.3
new file mode 100644 (file)
index 0000000..b26f744
--- /dev/null
@@ -0,0 +1,124 @@
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"     from: @(#)lgamma.3     6.6 (Berkeley) 12/3/92
+.\"    $NetBSD: lgamma.3,v 1.21 2003/08/07 16:44:48 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/lgamma.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.Dd December 3, 1992
+.Dt LGAMMA 3
+.Os
+.Sh NAME
+.Nm lgamma ,
+.Nm lgammaf ,
+.Nm lgamma_r ,
+.Nm lgammaf_r ,
+.Nm gamma ,
+.Nm gammaf ,
+.Nm gamma_r ,
+.Nm gammaf_r
+.Nd log gamma function
+.Sh LIBRARY
+.Lb libm
+.Sh SYNOPSIS
+.In math.h
+.Ft extern int
+.Fa signgam ;
+.sp
+.Ft double
+.Fn lgamma "double x"
+.Ft float
+.Fn lgammaf "float x"
+.Ft double
+.Fn lgamma_r "double x" "int *sign"
+.Ft float
+.Fn lgammaf_r "float x" "int *sign"
+.Ft double
+.Fn gamma "double x"
+.Ft float
+.Fn gammaf "float x"
+.Ft double
+.Fn gamma_r "double x" "int *sign"
+.Ft float
+.Fn gammaf_r "float x" "int *sign"
+.Sh DESCRIPTION
+.Fn lgamma x
+.if t \{\
+returns ln\||\(*G(x)| where
+.Bd -unfilled -offset indent
+\(*G(x) = \(is\d\s8\z0\s10\u\u\s8\(if\s10\d t\u\s8x\-1\s10\d e\u\s8\-t\s10\d dt        for x \*[Gt] 0 and
+.br
+\(*G(x) = \(*p/(\(*G(1\-x)\|sin(\(*px))        for x \*[Lt] 1.
+.Ed
+.\}
+.if n \
+returns ln\||\(*G(x)|.
+.Pp
+The external integer
+.Fa signgam
+returns the sign of \(*G(x).
+.Pp
+.Fn lgamma_r
+is a reentrant interface that performs identically to
+.Fn lgamma ,
+differing in that the sign of \(*G(x) is stored in the location
+pointed to by the
+.Fa sign
+argument and
+.Fa signgam
+is not modified.
+.Sh IDIOSYNCRASIES
+Do not use the expression
+.Dq Li signgam\(**exp(lgamma(x))
+to compute g := \(*G(x).
+Instead use a program like this (in C):
+.Bd -literal -offset indent
+lg = lgamma(x); g = signgam\(**exp(lg);
+.Ed
+.Pp
+Only after
+.Fn lgamma
+has returned can signgam be correct.
+.Sh RETURN VALUES
+.Fn lgamma
+returns appropriate values unless an argument is out of range.
+Overflow will occur for sufficiently large positive values, and
+non-positive integers.
+On the
+.Tn VAX ,
+the reserved operator is returned,
+and
+.Va errno
+is set to
+.Er ERANGE .
+.Sh SEE ALSO
+.Xr math 3
+.Sh HISTORY
+The
+.Nm lgamma
+function appeared in
+.Bx 4.3 .
diff --git a/lib/libm/man/math.3 b/lib/libm/man/math.3
new file mode 100644 (file)
index 0000000..3256e44
--- /dev/null
@@ -0,0 +1,681 @@
+.\" Copyright (c) 1985 Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"    from: @(#)math.3        6.10 (Berkeley) 5/6/91
+.\"    $NetBSD: math.3,v 1.18 2003/12/03 23:31:21 jschauma Exp $
+.\"    $DragonFly: src/lib/libm/man/math.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
+.\"
+.TH MATH 3 "Dec 3, 2003"
+.UC 4
+.ds up \fIulp\fR
+.ds nn \fINaN\fR
+.de If
+.if n \\
+\\$1Infinity\\$2
+.if t \\
+\\$1\\(if\\$2
+..
+.SH NAME
+math \- introduction to mathematical library functions
+.SH DESCRIPTION
+These functions constitute the C math library,
+.I libm.
+The link editor searches this library under the \*(lq\-lm\*(rq option.
+Declarations for these functions may be obtained from the include file
+.RI \*[Lt] math.h \*[Gt].
+.\" The Fortran math library is described in ``man 3f intro''.
+.SH "LIST OF FUNCTIONS"
+.sp 2
+.nf
+.ta \w'copysign'u+2n +\w'lgamma.3'u+10n +\w'inverse trigonometric func'u
+\fIName\fP     \fIAppears on Page\fP   \fIDescription\fP       \fIError Bound (ULPs)\fP
+.ta \w'copysign'u+4n +\w'lgamma.3'u+4n +\w'inverse trigonometric function'u+6nC
+.sp 5p
+acos   acos.3  inverse trigonometric function  3
+acosh  acosh.3 inverse hyperbolic function     3
+asin   asin.3  inverse trigonometric function  3
+asinh  asinh.3 inverse hyperbolic function     3
+atan   atan.3  inverse trigonometric function  1
+atanh  atanh.3 inverse hyperbolic function     3
+atan2  atan2.3 inverse trigonometric function  2
+cabs   hypot.3 complex absolute value  1
+cbrt   sqrt.3  cube root       1
+ceil   ceil.3  integer no less than    0
+copysign       ieee.3  copy sign bit   0
+cos    cos.3   trigonometric function  1
+cosh   cosh.3  hyperbolic function     3
+erf    erf.3   error function  ???
+erfc   erf.3   complementary error function    ???
+exp    exp.3   exponential     1
+expm1  exp.3   exp(x)\-1       1
+fabs   fabs.3  absolute value  0
+finite ieee.3  test for finity 0
+floor  floor.3 integer no greater than 0
+fmod   fmod.3  remainder       ???
+hypot  hypot.3 Euclidean distance      1
+ilogb  ieee.3  exponent extraction     0
+isinf  isinf.3 test for infinity       0
+isnan  isnan.3 test for not-a-number   0
+j0     j0.3    Bessel function ???
+j1     j0.3    Bessel function ???
+jn     j0.3    Bessel function ???
+lgamma lgamma.3        log gamma function      ???
+log    exp.3   natural logarithm       1
+log10  exp.3   logarithm to base 10    3
+log1p  exp.3   log(1+x)        1
+nextafter      ieee.3  next representable number       0
+pow    exp.3   exponential x**y        60\-500
+remainder      ieee.3  remainder       0
+rint   rint.3  round to nearest integer        0
+scalbn ieee.3  exponent adjustment     0
+sin    sin.3   trigonometric function  1
+sinh   sinh.3  hyperbolic function     3
+sqrt   sqrt.3  square root     1
+tan    tan.3   trigonometric function  3
+tanh   tanh.3  hyperbolic function     3
+y0     j0.3    Bessel function ???
+y1     j0.3    Bessel function ???
+yn     j0.3    Bessel function ???
+.ta
+.fi
+.SH "LIST OF DEFINED VALUES"
+.sp 2
+.nf
+.ta \w'M_2_SQRTPI'u+2n +\w'1.12837916709551257390'u+4n +\w'2/sqrt(pi)'u+6nC
+\fIName\fP     \fIValue\fP     \fIDescription\fP
+.ta \w'M_2_SQRTPI'u+2n +\w'1.12837916709551257390'u+4n +\w'2/sqrt(pi)'u+6nC
+.sp 3p
+M_E    2.7182818284590452354   e
+M_LOG2E        1.4426950408889634074   log 2e
+M_LOG10E       0.43429448190325182765  log 10e
+M_LN2  0.69314718055994530942  log e2
+M_LN10 2.30258509299404568402  log e10
+M_PI   3.14159265358979323846  pi
+M_PI_2 1.57079632679489661923  pi/2
+M_PI_4 0.78539816339744830962  pi/4
+M_1_PI 0.31830988618379067154  1/pi
+M_2_PI 0.63661977236758134308  2/pi
+M_2_SQRTPI     1.12837916709551257390  2/sqrt(pi)
+M_SQRT2        1.41421356237309504880  sqrt(2)
+M_SQRT1_2      0.70710678118654752440  1/sqrt(2)
+.ta
+.fi
+.SH NOTES
+In 4.3 BSD, distributed from the University of California
+in late 1985, most of the foregoing functions come in two
+versions, one for the double\-precision "D" format in the
+DEC VAX\-11 family of computers, another for double\-precision
+arithmetic conforming to the IEEE Standard 754 for Binary
+Floating\-Point Arithmetic.
+The two versions behave very
+similarly, as should be expected from programs more accurate
+and robust than was the norm when UNIX was born.
+For instance, the programs are accurate to within the numbers
+of \*(ups tabulated above; an \*(up is one \fIU\fRnit in the \fIL\fRast
+\fIP\fRlace.
+And the programs have been cured of anomalies that
+afflicted the older math library \fIlibm\fR in which incidents like
+the following had been reported:
+.RS
+sqrt(\-1.0) = 0.0 and log(\-1.0) = \-1.7e38.
+.br
+cos(1.0e\-11) \*[Gt] cos(0.0) \*[Gt] 1.0.
+.br
+pow(x,1.0)
+.if n \
+!=
+.if t \
+\(!=
+x when x = 2.0, 3.0, 4.0, ..., 9.0.
+.br
+pow(\-1.0,1.0e10) trapped on Integer Overflow.
+.br
+sqrt(1.0e30) and sqrt(1.0e\-30) were very slow.
+.RE
+However the two versions do differ in ways that have to be
+explained, to which end the following notes are provided.
+.PP
+\fBDEC VAX\-11 D_floating\-point:\fR
+.PP
+This is the format for which the original math library \fIlibm\fR
+was developed, and to which this manual is still principally dedicated.
+It is \fIthe\fR double\-precision format for the PDP\-11
+and the earlier VAX\-11 machines; VAX\-11s after 1983 were
+provided with an optional "G" format closer to the IEEE
+double\-precision format.
+The earlier DEC MicroVAXs have no D format, only G double\-precision.
+(Why?
+Why not?)
+.PP
+Properties of D_floating\-point:
+.RS
+Wordsize: 64 bits, 8 bytes.
+Radix: Binary.
+.br
+Precision: 56
+.if n \
+sig.
+.if t \
+significant
+bits, roughly like 17
+.if n \
+sig.
+.if t \
+significant
+decimals.
+.RS
+If x and x' are consecutive positive D_floating\-point
+numbers (they differ by 1 \*(up), then
+.br
+1.3e\-17 \*[Lt] 0.5**56 \*[Lt] (x'\-x)/x \*[Le] 0.5**55 \*[Lt] 2.8e\-17.
+.RE
+.nf
+.ta \w'Range:'u+1n +\w'Underflow threshold'u+1n +\w'= 2.0**127'u+1n
+Range: Overflow threshold      = 2.0**127      = 1.7e38.
+       Underflow threshold     = 0.5**128      = 2.9e\-39.
+       NOTE:  THIS RANGE IS COMPARATIVELY NARROW.
+.ta
+.fi
+.RS
+Overflow customarily stops computation.
+.br
+Underflow is customarily flushed quietly to zero.
+.br
+CAUTION:
+.RS
+It is possible to have x
+.if n \
+!=
+.if t \
+\(!=
+y and yet
+x\-y = 0 because of underflow.
+Similarly x \*[Gt] y \*[Gt] 0 cannot prevent either x\(**y = 0
+or  y/x = 0 from happening without warning.
+.RE
+.RE
+Zero is represented ambiguously.
+.RS
+Although 2**55 different representations of zero are accepted by
+the hardware, only the obvious representation is ever produced.
+There is no \-0 on a VAX.
+.RE
+.If
+is not part of the VAX architecture.
+.br
+Reserved operands:
+.RS
+of the 2**55 that the hardware
+recognizes, only one of them is ever produced.
+Any floating\-point operation upon a reserved
+operand, even a MOVF or MOVD, customarily stops
+computation, so they are not much used.
+.RE
+Exceptions:
+.RS
+Divisions by zero and operations that
+overflow are invalid operations that customarily
+stop computation or, in earlier machines, produce
+reserved operands that will stop computation.
+.RE
+Rounding:
+.RS
+Every rational operation  (+, \-, \(**, /) on a
+VAX (but not necessarily on a PDP\-11), if not an
+over/underflow nor division by zero, is rounded to
+within half an \*(up, and when the rounding error is
+exactly half an \*(up then rounding is away from 0.
+.RE
+.RE
+.PP
+Except for its narrow range, D_floating\-point is one of the
+better computer arithmetics designed in the 1960's.
+Its properties are reflected fairly faithfully in the elementary
+functions for a VAX distributed in 4.3 BSD.
+They over/underflow only if their results have to lie out of range
+or very nearly so, and then they behave much as any rational
+arithmetic operation that over/underflowed would behave.
+Similarly, expressions like log(0) and atanh(1) behave
+like 1/0; and sqrt(\-3) and acos(3) behave like 0/0;
+they all produce reserved operands and/or stop computation!
+The situation is described in more detail in manual pages.
+.RS
+.ll -0.5i
+\fIThis response seems excessively punitive, so it is destined
+to be replaced at some time in the foreseeable future by a
+more flexible but still uniform scheme being developed to
+handle all floating\-point arithmetic exceptions neatly.\fR
+.ll +0.5i
+.RE
+.PP
+How do the functions in 4.3 BSD's new \fIlibm\fR for UNIX
+compare with their counterparts in DEC's VAX/VMS library?
+Some of the VMS functions are a little faster, some are
+a little more accurate, some are more puritanical about
+exceptions (like pow(0.0,0.0) and atan2(0.0,0.0)),
+and most occupy much more memory than their counterparts in
+\fIlibm\fR.
+The VMS codes interpolate in large table to achieve
+speed and accuracy; the \fIlibm\fR codes use tricky formulas
+compact enough that all of them may some day fit into a ROM.
+.PP
+More important, DEC regards the VMS codes as proprietary
+and guards them zealously against unauthorized use.
+But the \fIlibm\fR codes in 4.3 BSD are intended for the public domain;
+they may be copied freely provided their provenance is always
+acknowledged, and provided users assist the authors in their
+researches by reporting experience with the codes.
+Therefore no user of UNIX on a machine whose arithmetic resembles
+VAX D_floating\-point need use anything worse than the new \fIlibm\fR.
+.PP
+\fBIEEE STANDARD 754 Floating\-Point Arithmetic:\fR
+.PP
+This standard is on its way to becoming more widely adopted
+than any other design for computer arithmetic.
+VLSI chips that conform to some version of that standard have been
+produced by a host of manufacturers, among them ...
+.nf
+.ta 0.5i +\w'Intel i8070, i80287'u+6n
+       Intel i8087, i80287     National Semiconductor  32081
+       Motorola 68881  Weitek WTL-1032, ... , -1165
+       Zilog Z8070     Western Electric (AT\*[Am]T) WE32106.
+.ta
+.fi
+Other implementations range from software, done thoroughly
+in the Apple Macintosh, through VLSI in the Hewlett\-Packard
+9000 series, to the ELXSI 6400 running ECL at 3 Megaflops.
+Several other companies have adopted the formats
+of IEEE 754 without, alas, adhering to the standard's way
+of handling rounding and exceptions like over/underflow.
+The DEC VAX G_floating\-point format is very similar to the IEEE
+754 Double format, so similar that the C programs for the
+IEEE versions of most of the elementary functions listed
+above could easily be converted to run on a MicroVAX, though
+nobody has volunteered to do that yet.
+.PP
+The codes in 4.3 BSD's \fIlibm\fR for machines that conform to
+IEEE 754 are intended primarily for the National Semi. 32081
+and WTL 1164/65.
+To use these codes with the Intel or Zilog
+chips, or with the Apple Macintosh or ELXSI 6400, is to
+forego the use of better codes provided (perhaps freely) by
+those companies and designed by some of the authors of the
+codes above.
+Except for \fIatan\fR, \fIcabs\fR, \fIcbrt\fR, \fIerf\fR,
+\fIerfc\fR, \fIhypot\fR, \fIj0\-jn\fR, \fIlgamma\fR, \fIpow\fR
+and \fIy0\-yn\fR,
+the Motorola 68881 has all the functions in \fIlibm\fR on chip,
+and faster and more accurate;
+it, Apple, the i8087, Z8070 and WE32106 all use 64
+.if n \
+sig.
+.if t \
+significant
+bits.
+The main virtue of 4.3 BSD's
+\fIlibm\fR codes is that they are intended for the public domain;
+they may be copied freely provided their provenance is always
+acknowledged, and provided users assist the authors in their
+researches by reporting experience with the codes.
+Therefore no user of UNIX on a machine that conforms to
+IEEE 754 need use anything worse than the new \fIlibm\fR.
+.PP
+Properties of IEEE 754 Double\-Precision:
+.RS
+Wordsize: 64 bits, 8 bytes.
+Radix: Binary.
+.br
+Precision: 53
+.if n \
+sig.
+.if t \
+significant
+bits, roughly like 16
+.if n \
+sig.
+.if t \
+significant
+decimals.
+.RS
+If x and x' are consecutive positive Double\-Precision
+numbers (they differ by 1 \*(up), then
+.br
+1.1e\-16 \*[Lt] 0.5**53 \*[Lt] (x'\-x)/x \*[Le] 0.5**52 \*[Lt] 2.3e\-16.
+.RE
+.nf
+.ta \w'Range:'u+1n +\w'Underflow threshold'u+1n +\w'= 2.0**1024'u+1n
+Range: Overflow threshold      = 2.0**1024     = 1.8e308
+       Underflow threshold     = 0.5**1022     = 2.2e\-308
+.ta
+.fi
+.RS
+Overflow goes by default to a signed
+.If "" .
+.br
+Underflow is \fIGradual,\fR rounding to the nearest
+integer multiple of 0.5**1074 = 4.9e\-324.
+.RE
+Zero is represented ambiguously as +0 or \-0.
+.RS
+Its sign transforms correctly through multiplication or
+division, and is preserved by addition of zeros
+with like signs; but x\-x yields +0 for every
+finite x.
+The only operations that reveal zero's
+sign are division by zero and copysign(x,\(+-0).
+In particular, comparison (x \*[Gt] y, x \*[Ge] y, etc.)
+cannot be affected by the sign of zero; but if
+finite x = y then
+.If
+\&= 1/(x\-y)
+.if n \
+!=
+.if t \
+\(!=
+\-1/(y\-x) =
+.If \- .
+.RE
+.If
+is signed.
+.RS
+it persists when added to itself
+or to any finite number.
+Its sign transforms
+correctly through multiplication and division, and
+.If (finite)/\(+- \0=\0\(+-0
+(nonzero)/0 =
+.If \(+- .
+But
+.if n \
+Infinity\-Infinity, Infinity\(**0 and Infinity/Infinity
+.if t \
+\(if\-\(if, \(if\(**0 and \(if/\(if
+are, like 0/0 and sqrt(\-3),
+invalid operations that produce \*(nn. ...
+.RE
+Reserved operands:
+.RS
+there are 2**53\-2 of them, all
+called \*(nn (\fIN\fRot \fIa N\fRumber).
+Some, called Signaling \*(nns, trap any floating\-point operation
+performed upon them; they are used to mark missing
+or uninitialized values, or nonexistent elements of arrays.
+The rest are Quiet \*(nns; they are
+the default results of Invalid Operations, and
+propagate through subsequent arithmetic operations.
+If x
+.if n \
+!=
+.if t \
+\(!=
+x then x is \*(nn; every other predicate
+(x \*[Gt] y, x = y, x \*[Lt] y, ...) is FALSE if \*(nn is involved.
+.br
+NOTE: Trichotomy is violated by \*(nn.
+.RS
+Besides being FALSE, predicates that entail ordered
+comparison, rather than mere (in)equality,
+signal Invalid Operation when \*(nn is involved.
+.RE
+.RE
+Rounding:
+.RS
+Every algebraic operation (+, \-, \(**, /,
+.if n \
+sqrt)
+.if t \
+\(sr)
+is rounded by default to within half an \*(up, and
+when the rounding error is exactly half an \*(up then
+the rounded value's least significant bit is zero.
+This kind of rounding is usually the best kind,
+sometimes provably so; for instance, for every
+x = 1.0, 2.0, 3.0, 4.0, ..., 2.0**52, we find
+(x/3.0)\(**3.0 == x and (x/10.0)\(**10.0 == x and ...
+despite that both the quotients and the products
+have been rounded.
+Only rounding like IEEE 754 can do that.
+But no single kind of rounding can be
+proved best for every circumstance, so IEEE 754
+provides rounding towards zero or towards
+.If +
+or towards
+.If \-
+at the programmer's option.
+And the same kinds of rounding are specified for
+Binary\-Decimal Conversions, at least for magnitudes
+between roughly 1.0e\-10 and 1.0e37.
+.RE
+Exceptions:
+.RS
+IEEE 754 recognizes five kinds of floating\-point exceptions,
+listed below in declining order of probable importance.
+.RS
+.nf
+.ta \w'Invalid Operation'u+6n +\w'Gradual Underflow'u+2n
+Exception      Default Result
+.tc \(ru
+
+.tc
+Invalid Operation      \*(nn, or FALSE
+.if n \{\
+Overflow       \(+-Infinity
+Divide by Zero \(+-Infinity \}
+.if t \{\
+Overflow       \(+-\(if
+Divide by Zero \(+-\(if \}
+Underflow      Gradual Underflow
+Inexact        Rounded value
+.ta
+.fi
+.RE
+NOTE:  An Exception is not an Error unless handled badly.
+What makes a class of exceptions exceptional
+is that no single default response can be satisfactory
+in every instance.
+On the other hand, if a default
+response will serve most instances satisfactorily,
+the unsatisfactory instances cannot justify aborting
+computation every time the exception occurs.
+.RE
+.PP
+For each kind of floating\-point exception, IEEE 754
+provides a Flag that is raised each time its exception
+is signaled, and stays raised until the program resets it.
+Programs may also test, save and restore a flag.
+Thus, IEEE 754 provides three ways by which programs
+may cope with exceptions for which the default result
+might be unsatisfactory:
+.IP 1) \w'\0\0\0\0'u
+Test for a condition that might cause an exception
+later, and branch to avoid the exception.
+.IP 2) \w'\0\0\0\0'u
+Test a flag to see whether an exception has occurred
+since the program last reset its flag.
+.IP 3) \w'\0\0\0\0'u
+Test a result to see whether it is a value that only
+an exception could have produced.
+.RS
+CAUTION: The only reliable ways to discover
+whether Underflow has occurred are to test whether
+products or quotients lie closer to zero than the
+underflow threshold, or to test the Underflow flag.
+(Sums and differences cannot underflow in
+IEEE 754; if x
+.if n \
+!=
+.if t \
+\(!=
+y then x\-y is correct to
+full precision and certainly nonzero regardless of
+how tiny it may be.)
+Products and quotients that
+underflow gradually can lose accuracy gradually
+without vanishing, so comparing them with zero
+(as one might on a VAX) will not reveal the loss.
+Fortunately, if a gradually underflowed value is
+destined to be added to something bigger than the
+underflow threshold, as is almost always the case,
+digits lost to gradual underflow will not be missed
+because they would have been rounded off anyway.
+So gradual underflows are usually \fIprovably\fR ignorable.
+The same cannot be said of underflows flushed to 0.
+.RE
+.PP
+At the option of an implementor conforming to IEEE 754,
+other ways to cope with exceptions may be provided:
+.IP 4) \w'\0\0\0\0'u
+ABORT.
+This mechanism classifies an exception in
+advance as an incident to be handled by means
+traditionally associated with error\-handling
+statements like "ON ERROR GO TO ...".
+Different languages offer different forms of this statement,
+but most share the following characteristics:
+.IP \(em \w'\0\0\0\0'u
+No means is provided to substitute a value for
+the offending operation's result and resume
+computation from what may be the middle of an expression.
+An exceptional result is abandoned.
+.IP \(em \w'\0\0\0\0'u
+In a subprogram that lacks an error\-handling
+statement, an exception causes the subprogram to
+abort within whatever program called it, and so
+on back up the chain of calling subprograms until
+an error\-handling statement is encountered or the
+whole task is aborted and memory is dumped.
+.IP 5) \w'\0\0\0\0'u
+STOP.
+This mechanism, requiring an interactive
+debugging environment, is more for the programmer
+than the program.
+It classifies an exception in
+advance as a symptom of a programmer's error; the
+exception suspends execution as near as it can to
+the offending operation so that the programmer can
+look around to see how it happened.
+Quite often
+the first several exceptions turn out to be quite
+unexceptionable, so the programmer ought ideally
+to be able to resume execution after each one as if
+execution had not been stopped.
+.IP 6) \w'\0\0\0\0'u
+\&... Other ways lie beyond the scope of this document.
+.RE
+.PP
+The crucial problem for exception handling is the problem of
+Scope, and the problem's solution is understood, but not
+enough manpower was available to implement it fully in time
+to be distributed in 4.3 BSD's \fIlibm\fR.
+Ideally, each elementary function should act
+as if it were indivisible, or atomic, in the sense that ...
+.IP i) \w'iii)'u+2n
+No exception should be signaled that is not deserved by
+the data supplied to that function.
+.IP ii) \w'iii)'u+2n
+Any exception signaled should be identified with that
+function rather than with one of its subroutines.
+.IP iii) \w'iii)'u+2n
+The internal behavior of an atomic function should not
+be disrupted when a calling program changes from
+one to another of the five or so ways of handling
+exceptions listed above, although the definition
+of the function may be correlated intentionally
+with exception handling.
+.PP
+Ideally, every programmer should be able \fIconveniently\fR to
+turn a debugged subprogram into one that appears atomic to
+its users.
+But simulating all three characteristics of an
+atomic function is still a tedious affair, entailing hosts
+of tests and saves\-restores; work is under way to ameliorate
+the inconvenience.
+.PP
+Meanwhile, the functions in \fIlibm\fR are only approximately atomic.
+They signal no inappropriate exception except possibly ...
+.RS
+Over/Underflow
+.RS
+when a result, if properly computed, might have lain barely within range, and
+.RE
+Inexact in \fIcabs\fR, \fIcbrt\fR, \fIhypot\fR, \fIlog10\fR and \fIpow\fR
+.RS
+when it happens to be exact, thanks to fortuitous cancellation of errors.
+.RE
+.RE
+Otherwise, ...
+.RS
+Invalid Operation is signaled only when
+.RS
+any result but \*(nn would probably be misleading.
+.RE
+Overflow is signaled only when
+.RS
+the exact result would be finite but beyond the overflow threshold.
+.RE
+Divide\-by\-Zero is signaled only when
+.RS
+a function takes exactly infinite values at finite operands.
+.RE
+Underflow is signaled only when
+.RS
+the exact result would be nonzero but tinier than the underflow threshold.
+.RE
+Inexact is signaled only when
+.RS
+greater range or precision would be needed to represent the exact result.
+.RE
+.RE
+.\" .Sh FILES
+.\" .Bl -tag -width /usr/lib/libm_p.a -compact
+.\" .It Pa /usr/lib/libm.a
+.\" the static math library
+.\" .It Pa /usr/lib/libm.so
+.\" the dynamic math library
+.\" .It Pa /usr/lib/libm_p.a
+.\" the static math library compiled for profiling
+.\" .El
+.SH SEE ALSO
+An explanation of IEEE 754 and its proposed extension p854
+was published in the IEEE magazine MICRO in August 1984 under
+the title "A Proposed Radix\- and Word\-length\-independent
+Standard for Floating\-point Arithmetic" by W. J. Cody et al.
+The manuals for Pascal, C and BASIC on the Apple Macintosh
+document the features of IEEE 754 pretty well.
+Articles in the IEEE magazine COMPUTER vol. 14 no. 3 (Mar. 1981),
+and in the ACM SIGNUM Newsletter Special Issue of
+Oct. 1979, may be helpful although they pertain to
+superseded drafts of the standard.
+.SH BUGS
+When signals are appropriate, they are emitted by certain
+operations within the codes, so a subroutine\-trace may be
+needed to identify the function with its signal in case
+method 5) above is in use.
+And the codes all take the
+IEEE 754 defaults for granted; this means that a decision to
+trap all divisions by zero could disrupt a code that would
+otherwise get correct results despite division by zero.
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/rint.3
index cf68a79..91c6ba8 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)rint.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: rint.3,v 1.12 2003/08/07 16:44:48 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/rint.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd March 10, 1994
+.Dt RINT 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm rint ,
+.Nm rintf
+.Nd round to integral value in floating-point format
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn rint "double x"
+.Ft float
+.Fn rintf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn rint
+function returns the integral value (represented as a double precision number)
+nearest to
+.Fa x
+according to the prevailing rounding mode.
 .Sh SEE ALSO
+.Xr abs 3 ,
+.Xr ceil 3 ,
+.Xr fabs 3 ,
+.Xr floor 3 ,
+.Xr ieee 3 ,
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Sh HISTORY
+A
+.Fn rint
+function appeared in
+.At v6 .
similarity index 50%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/round.3
index cf68a79..a3136e6 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 2003, Steven G. Kargl
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,13 +9,6 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
-.\"    may be used to endorse or promote products derived from this software
-.\"    without specific prior written permission.
 .\"
 .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\" $FreeBSD: src/lib/msun/man/round.3,v 1.2 2004/06/20 09:27:17 das Exp $
+.\" $NetBSD: round.3,v 1.3 2004/07/15 12:12:39 junyoung Exp $
+.\" $DragonFly: src/lib/libm/man/round.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd July 15, 2004
+.Dt ROUND 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm round ,
+.Nm roundf
+.Nd round to nearest integral value
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn round "double x"
+.Ft float
+.Fn roundf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn round
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn roundf
+functions return the nearest integral value to
+.Fa x ;
+if
+.Fa x
+lies halfway between two integral values, then these
+functions return the integral value with the larger
+absolute value (i.e., they round away from zero).
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr ceil 3 ,
+.Xr floor 3 ,
+.Xr ieee 3 ,
+.Xr math 3 ,
+.Xr rint 3
+.\" .Xr trunc 3
+.Sh STANDARDS
+The
+.Fn round
+function conforms to
+.St -isoC-99 .
+.Sh HISTORY
+The
+.Fn round
+and
+.Fn roundf
+functions appeared in
+.Nx 2.0 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/sin.3
index cf68a79..d7a4d37 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)sin.3        6.7 (Berkeley) 4/19/91
+.\"    $NetBSD: sin.3,v 1.14 2003/08/07 16:44:49 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/sin.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd April 19, 1991
+.Dt SIN 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm sin ,
+.Nm sinf
+.Nd sine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn sin "double x"
+.Ft float
+.Fn sinf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+.Fn sin
+function computes the sine of
+.Fa x
+(measured in radians).
+A large magnitude argument may yield a result with little
+or no significance.
+.Sh RETURN VALUES
 The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn sin
+function returns the sine value.
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sinh 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.Sh STANDARDS
+The
+.Fn sin
+function conforms to
+.St -ansiC .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/sinh.3
index cf68a79..263dd60 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"    from: @(#)sinh.3        6.6 (Berkeley) 4/19/91
+.\"    $NetBSD: sinh.3,v 1.14 2003/08/07 16:44:49 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/sinh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd April 19, 1991
+.Dt SINH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm sinh ,
+.Nm sinhf
+.Nd hyperbolic sine function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn sinh "double x"
+.Ft float
+.Fn sinhf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
+.Fn sinh
+function computes the hyperbolic sine of
+.Fa x .
+.Sh RETURN VALUES
 The
-.Fn isnan
-and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn sinh
+function returns the hyperbolic sine value unless
+the magnitude of
+.Fa x
+is too large; in this event, the global variable
+.Va errno
+is set to
+.Er ERANGE .
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr tan 3 ,
+.Xr tanh 3
+.Sh STANDARDS
+The
+.Fn sinh
+function conforms to
+.St -ansiC .
similarity index 55%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/sqrt.3
index cf68a79..c520d62 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1985, 1991 Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)sqrt.3       6.4 (Berkeley) 5/6/91
+.\"    $NetBSD: sqrt.3,v 1.13 2003/08/07 16:44:49 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/sqrt.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 6, 1991
+.Dt SQRT 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm cbrt ,
+.Nm cbrtf ,
+.Nm sqrt ,
+.Nm sqrtf
+.Nd cube root and square root functions
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn cbrt "double x"
+.Ft float
+.Fn cbrtf "float x"
+.Ft double
+.Fn sqrt "double x"
+.Ft float
+.Fn sqrtf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
+.Fn cbrt
+and
+.Fn cbrtf
+functions compute
+the cube root of
+.Ar x .
 .Pp
 The
-.Fn isnan
+.Fn sqrt
+and
+.Fn sqrtf
+functions compute
+the non-negative square root of x.
+.Sh RETURN VALUES
+If x is negative,
+.Fn sqrt "x"
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn sqrtf "x"
+.\" POSIX_MODE
+set the global variable
+.Va errno
+to EDOM.
+.\" SYSV_MODE
+.\" call
+.\" .Xr matherr 3 .
 .Sh SEE ALSO
 .Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.\" .Xr matherr 3
+.Sh STANDARDS
+The
+.Fn sqrt
+function conforms to
+.St -ansiC .
+.Sh HISTORY
+The
+.Fn cbrt
+function appeared in
+.Bx 4.3 .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/tan.3
index cf68a79..c28df3e 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)tan.3        5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: tan.3,v 1.13 2003/08/07 16:44:49 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/tan.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt TAN 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm tan ,
+.Nm tanf
+.Nd tangent function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn tan "double x"
+.Ft float
+.Fn tanf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn tan
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn tanf
+functions compute the tangent of
+.Fa x
+(measured in radians).
+A large magnitude argument may yield a result
+with little or no significance.
+For a discussion of error due to roundoff, see
+.Xr math 3 .
+.Sh RETURN VALUES
+The
+.Fn tan
+function returns the tangent value.
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tanh 3
+.Sh STANDARDS
+The
+.Fn tan
+function conforms to
+.St -ansiC .
similarity index 54%
copy from lib/libc/gen/isinf.3
copy to lib/libm/man/tanh.3
index cf68a79..3b53b5e 100644 (file)
@@ -1,5 +1,5 @@
-.\" Copyright (c) 1991, 1993
-.\"    The Regents of the University of California.  All rights reserved.
+.\" Copyright (c) 1991 The Regents of the University of California.
+.\" All rights reserved.
 .\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
@@ -9,11 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 3. All advertising materials mentioning features or use of this software
-.\"    must display the following acknowledgement:
-.\"    This product includes software developed by the University of
-.\"    California, Berkeley and its contributors.
-.\" 4. Neither the name of the University nor the names of its contributors
+.\" 3. Neither the name of the University nor the names of its contributors
 .\"    may be used to endorse or promote products derived from this software
 .\"    without specific prior written permission.
 .\"
 .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 .\" SUCH DAMAGE.
 .\"
-.\"     @(#)isinf.3    8.2 (Berkeley) 1/29/94
-.\" $FreeBSD: src/lib/libc/gen/isinf.3,v 1.5.2.3 2003/05/04 22:25:22 murray Exp $
-.\" $DragonFly: src/lib/libc/gen/isinf.3,v 1.2 2003/06/17 04:26:42 dillon Exp $
+.\"     from: @(#)tanh.3       5.1 (Berkeley) 5/2/91
+.\"    $NetBSD: tanh.3,v 1.12 2003/08/07 16:44:49 agc Exp $
+.\"    $DragonFly: src/lib/libm/man/tanh.3,v 1.1 2005/07/26 21:15:20 joerg Exp $
 .\"
-.Dd January 29, 1994
-.Dt ISINF 3
+.Dd May 2, 1991
+.Dt TANH 3
 .Os
 .Sh NAME
-.Nm isinf ,
-.Nm isnan ,
-.Nm isnanf
-.Nd test for infinity or not-a-number
+.Nm tanh ,
+.Nm tanhf
+.Nd hyperbolic tangent function
 .Sh LIBRARY
-.Lb libc
+.Lb libm
 .Sh SYNOPSIS
 .In math.h
-.Ft int
-.Fn isinf double
-.Ft int
-.Fn isnan double
-.Ft int
-.Fn isnanf float
+.Ft double
+.Fn tanh "double x"
+.Ft float
+.Fn tanhf "float x"
 .Sh DESCRIPTION
 The
-.Fn isinf
-function
-returns 1 if the number is
-.Dq \\*(If ,
-otherwise 0.
-.Pp
-The
-.Fn isnan
+.Fn tanh
 and
-.Fn isnanf
-functions
-return 1 if the double or float (respectively) is
-.Dq not-a-number ,
-otherwise 0.
+.Fn tanhf
+functions compute the hyperbolic tangent of
+.Fa x .
+For a discussion of error due to roundoff, see
+.Xr math 3 .
+.Sh RETURN VALUES
+The
+.Fn tanh
+function returns the hyperbolic tangent value.
 .Sh SEE ALSO
-.Xr math 3
-.Rs
-.%T "IEEE Standard for Binary Floating-Point Arithmetic"
-.%Q ANSI
-.%R Std 754-1985
-.Re
-.Sh BUGS
-Neither the
-.Tn VAX
-nor the Tahoe floating point have distinguished values
-for either infinity or not-a-number.
-These routines always return 0 on those architectures.
+.Xr acos 3 ,
+.Xr asin 3 ,
+.Xr atan 3 ,
+.Xr atan2 3 ,
+.Xr cos 3 ,
+.Xr cosh 3 ,
+.Xr math 3 ,
+.Xr sin 3 ,
+.Xr sinh 3 ,
+.Xr tan 3
+.Sh STANDARDS
+The
+.Fn tanh
+function conforms to
+.St -ansiC .
diff --git a/lib/libm/src/Makefile.inc b/lib/libm/src/Makefile.inc
new file mode 100644 (file)
index 0000000..775e7d0
--- /dev/null
@@ -0,0 +1,37 @@
+# $DragonFly: src/lib/libm/src/Makefile.inc,v 1.1 2005/07/26 21:15:20 joerg Exp $
+
+.PATH: ${.CURDIR}/src
+
+# This files are always used.
+SRCS+= k_cos.c k_cosf.c k_rem_pio2.c k_rem_pio2f.c k_sin.c k_sinf.c \
+       k_tan.c k_tanf.c llrint.c llrintf.c llround.c \
+       llroundf.c lrint.c lrintf.c lround.c lroundf.c w_cabs.c w_cabsf.c \
+       w_drem.c w_dremf.c w_gamma.c w_gamma_r.c w_gammaf.c w_gammaf_r.c \
+       w_lgamma.c w_lgammaf.c
+
+# This files are only used if the MI Makefile didn't already provide
+# them as assembler version.
+
+MI_FUNCS+=     \
+       e_acos.c e_acosf.c e_acosh.c e_acoshf.c e_asin.c e_asinf.c \
+       e_atan2.c e_atan2f.c e_atanh.c e_atanhf.c e_cosh.c e_coshf.c \
+       e_exp.c e_expf.c e_fmod.c e_fmodf.c e_hypot.c e_hypotf.c e_j0.c \
+       e_j0f.c e_j1.c e_j1f.c e_jn.c e_jnf.c e_lgamma_r.c e_lgammaf_r.c \
+       e_log.c e_log10.c e_log10f.c e_logf.c e_pow.c e_powf.c e_rem_pio2.c \
+       e_rem_pio2f.c e_remainder.c e_remainderf.c e_scalb.c e_scalbf.c \
+       e_sinh.c e_sinhf.c e_sqrt.c e_sqrtf.c \
+       s_asinh.c s_asinhf.c s_atan.c s_atanf.c s_cbrt.c s_cbrtf.c s_ceil.c \
+       s_ceilf.c s_copysign.c s_copysignf.c s_cos.c s_cosf.c s_erf.c \
+       s_erff.c s_expm1.c s_expm1f.c s_fabsf.c s_finite.c \
+       s_finitef.c s_floor.c s_floorf.c s_frexpf.c s_ilogb.c \
+       s_ilogbf.c s_ldexpf.c s_log1p.c s_log1pf.c s_logb.c s_logbf.c \
+       s_modff.c s_nextafter.c s_nextafterf.c s_rint.c s_rintf.c \
+       s_round.c s_roundf.c s_scalbn.c s_scalbnf.c \
+       s_signgam.c s_significand.c s_significandf.c s_sin.c s_sinf.c \
+       s_tan.c s_tanf.c s_tanh.c s_tanhf.c
+
+.for f in ${MI_FUNCS}
+.if empty(SRCS:M${f:H:R})
+SRCS+= $f
+.endif
+.endfor
diff --git a/lib/libm/src/e_acos.c b/lib/libm/src/e_acos.c
new file mode 100644 (file)
index 0000000..685a94e
--- /dev/null
@@ -0,0 +1,102 @@
+/* @(#)e_acos.c 5.1 93/09/24 */
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_acos.c,v 1.12 2002/05/26 22:01:47 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_acos.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+/* acos(x)
+ * Method :
+ *     acos(x)  = pi/2 - asin(x)
+ *     acos(-x) = pi/2 + asin(x)
+ * For |x|<=0.5
+ *     acos(x) = pi/2 - (x + x*x^2*R(x^2))     (see asin.c)
+ * For x>0.5
+ *     acos(x) = pi/2 - (pi/2 - 2asin(sqrt((1-x)/2)))
+ *             = 2asin(sqrt((1-x)/2))
+ *             = 2s + 2s*z*R(z)        ...z=(1-x)/2, s=sqrt(z)
+ *             = 2f + (2c + 2s*z*R(z))
+ *     where f=hi part of s, and c = (z-f*f)/(s+f) is the correction term
+ *     for f so that f+c ~ sqrt(z).
+ * For x<-0.5
+ *     acos(x) = pi - 2asin(sqrt((1-|x|)/2))
+ *             = pi - 0.5*(s+s*z*R(z)), where z=(1-|x|)/2,s=sqrt(z)
+ *
+ * Special cases:
+ *     if x is NaN, return x itself;
+ *     if |x|>1, return NaN with invalid signal.
+ *
+ * Function needed: sqrt
+ */
+
+#include <math.h>
+#include "math_private.h"
+
+static const double
+one=  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
+pi =  3.14159265358979311600e+00, /* 0x400921FB, 0x54442D18 */
+pio2_hi =  1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
+pio2_lo =  6.12323399573676603587e-17, /* 0x3C91A626, 0x33145C07 */
+pS0 =  1.66666666666666657415e-01, /* 0x3FC55555, 0x55555555 */
+pS1 = -3.25565818622400915405e-01, /* 0xBFD4D612, 0x03EB6F7D */
+pS2 =  2.01212532134862925881e-01, /* 0x3FC9C155, 0x0E884455 */
+pS3 = -4.00555345006794114027e-02, /* 0xBFA48228, 0xB5688F3B */
+pS4 =  7.91534994289814532176e-04, /* 0x3F49EFE0, 0x7501B288 */
+pS5 =  3.47933107596021167570e-05, /* 0x3F023DE1, 0x0DFDF709 */
+qS1 = -2.40339491173441421878e+00, /* 0xC0033A27, 0x1C8A2D4B */
+qS2 =  2.02094576023350569471e+00, /* 0x40002AE5, 0x9C598AC8 */
+qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
+qS4 =  7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
+
+double
+acos(double x)
+{
+       double z,p,q,r,w,s,c,df;
+       int32_t hx,ix;
+       GET_HIGH_WORD(hx,x);
+       ix = hx&0x7fffffff;
+       if(ix>=0x3ff00000) {    /* |x| >= 1 */
+           u_int32_t lx;
+           GET_LOW_WORD(lx,x);
+           if(((ix-0x3ff00000)|lx)==0) {       /* |x|==1 */
+               if(hx>0) return 0.0;            /* acos(1) = 0  */
+               else return pi+2.0*pio2_lo;     /* acos(-1)= pi */
+           }
+           return (x-x)/(x-x);         /* acos(|x|>1) is NaN */
+       }
+       if(ix<0x3fe00000) {     /* |x| < 0.5 */
+           if(ix<=0x3c600000) return pio2_hi+pio2_lo;/*if|x|<2**-57*/
+           z = x*x;
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           r = p/q;
+           return pio2_hi - (x - (pio2_lo-x*r));
+       } else  if (hx<0) {             /* x < -0.5 */
+           z = (one+x)*0.5;
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           s = sqrt(z);
+           r = p/q;
+           w = r*s-pio2_lo;
+           return pi - 2.0*(s+w);
+       } else {                        /* x > 0.5 */
+           z = (one-x)*0.5;
+           s = sqrt(z);
+           df = s;
+           SET_LOW_WORD(df,0);
+           c  = (z-df*df)/(s+df);
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           r = p/q;
+           w = r*s+c;
+           return 2.0*(df+w);
+       }
+}
diff --git a/lib/libm/src/e_acosf.c b/lib/libm/src/e_acosf.c
new file mode 100644 (file)
index 0000000..627c86d
--- /dev/null
@@ -0,0 +1,80 @@
+/* e_acosf.c -- float version of e_acos.c.
+ * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
+ */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_acosf.c,v 1.8 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_acosf.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+#include <math.h>
+#include "math_private.h"
+
+static const float
+one =  1.0000000000e+00, /* 0x3F800000 */
+pi =  3.1415925026e+00, /* 0x40490fda */
+pio2_hi =  1.5707962513e+00, /* 0x3fc90fda */
+pio2_lo =  7.5497894159e-08, /* 0x33a22168 */
+pS0 =  1.6666667163e-01, /* 0x3e2aaaab */
+pS1 = -3.2556581497e-01, /* 0xbea6b090 */
+pS2 =  2.0121252537e-01, /* 0x3e4e0aa8 */
+pS3 = -4.0055535734e-02, /* 0xbd241146 */
+pS4 =  7.9153501429e-04, /* 0x3a4f7f04 */
+pS5 =  3.4793309169e-05, /* 0x3811ef08 */
+qS1 = -2.4033949375e+00, /* 0xc019d139 */
+qS2 =  2.0209457874e+00, /* 0x4001572d */
+qS3 = -6.8828397989e-01, /* 0xbf303361 */
+qS4 =  7.7038154006e-02; /* 0x3d9dc62e */
+
+float
+acosf(float x)
+{
+       float z,p,q,r,w,s,c,df;
+       int32_t hx,ix;
+       GET_FLOAT_WORD(hx,x);
+       ix = hx&0x7fffffff;
+       if(ix==0x3f800000) {            /* |x|==1 */
+           if(hx>0) return 0.0;        /* acos(1) = 0  */
+           else return pi+(float)2.0*pio2_lo;  /* acos(-1)= pi */
+       } else if(ix>0x3f800000) {      /* |x| >= 1 */
+           return (x-x)/(x-x);         /* acos(|x|>1) is NaN */
+       }
+       if(ix<0x3f000000) {     /* |x| < 0.5 */
+           if(ix<=0x23000000) return pio2_hi+pio2_lo;/*if|x|<2**-57*/
+           z = x*x;
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           r = p/q;
+           return pio2_hi - (x - (pio2_lo-x*r));
+       } else  if (hx<0) {             /* x < -0.5 */
+           z = (one+x)*(float)0.5;
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           s = sqrtf(z);
+           r = p/q;
+           w = r*s-pio2_lo;
+           return pi - (float)2.0*(s+w);
+       } else {                        /* x > 0.5 */
+           int32_t idf;
+           z = (one-x)*(float)0.5;
+           s = sqrtf(z);
+           df = s;
+           GET_FLOAT_WORD(idf,df);
+           SET_FLOAT_WORD(df,idf&0xfffff000);
+           c  = (z-df*df)/(s+df);
+           p = z*(pS0+z*(pS1+z*(pS2+z*(pS3+z*(pS4+z*pS5)))));
+           q = one+z*(qS1+z*(qS2+z*(qS3+z*qS4)));
+           r = p/q;
+           w = r*s+c;
+           return (float)2.0*(df+w);
+       }
+}
diff --git a/lib/libm/src/e_acosh.c b/lib/libm/src/e_acosh.c
new file mode 100644 (file)
index 0000000..3ecfcfa
--- /dev/null
@@ -0,0 +1,61 @@
+/* @(#)e_acosh.c 5.1 93/09/24 */
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_acosh.c,v 1.12 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_acosh.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+
+/* acosh(x)
+ * Method :
+ *     Based on
+ *             acosh(x) = log [ x + sqrt(x*x-1) ]
+ *     we have
+ *             acosh(x) := log(x)+ln2, if x is large; else
+ *             acosh(x) := log(2x-1/(sqrt(x*x-1)+x)) if x>2; else
+ *             acosh(x) := log1p(t+sqrt(2.0*t+t*t)); where t=x-1.
+ *
+ * Special cases:
+ *     acosh(x) is NaN with signal if x<1.
+ *     acosh(NaN) is NaN without signal.
+ */
+
+#include <math.h>
+#include "math_private.h"
+
+static const double
+one    = 1.0,
+ln2    = 6.93147180559945286227e-01;  /* 0x3FE62E42, 0xFEFA39EF */
+
+double
+acosh(double x)
+{
+       double t;
+       int32_t hx;
+       u_int32_t lx;
+       EXTRACT_WORDS(hx,lx,x);
+       if(hx<0x3ff00000) {             /* x < 1 */
+           return (x-x)/(x-x);
+       } else if(hx >=0x41b00000) {    /* x > 2**28 */
+           if(hx >=0x7ff00000) {       /* x is inf of NaN */
+               return x+x;
+           } else
+               return log(x)+ln2;      /* acosh(huge)=log(2x) */
+       } else if(((hx-0x3ff00000)|lx)==0) {
+           return 0.0;                 /* acosh(1) = 0 */
+       } else if (hx > 0x40000000) {   /* 2**28 > x > 2 */
+           t=x*x;
+           return log(2.0*x-one/(x+sqrt(t-one)));
+       } else {                        /* 1<x<2 */
+           t = x-one;
+           return log1p(t+sqrt(2.0*t+t*t));
+       }
+}
diff --git a/lib/libm/src/e_acoshf.c b/lib/libm/src/e_acoshf.c
new file mode 100644 (file)
index 0000000..d37fd69
--- /dev/null
@@ -0,0 +1,48 @@
+/* e_acoshf.c -- float version of e_acosh.c.
+ * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
+ */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_acoshf.c,v 1.8 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_acoshf.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+#include <math.h>
+#include "math_private.h"
+
+static const float
+one    = 1.0,
+ln2    = 6.9314718246e-01;  /* 0x3f317218 */
+
+float
+acoshf(float x)
+{
+       float t;
+       int32_t hx;
+       GET_FLOAT_WORD(hx,x);
+       if(hx<0x3f800000) {             /* x < 1 */
+           return (x-x)/(x-x);
+       } else if(hx >=0x4d800000) {    /* x > 2**28 */
+           if(hx >=0x7f800000) {       /* x is inf of NaN */
+               return x+x;
+           } else
+               return logf(x)+ln2;     /* acosh(huge)=log(2x) */
+       } else if (hx==0x3f800000) {
+           return 0.0;                 /* acosh(1) = 0 */
+       } else if (hx > 0x40000000) {   /* 2**28 > x > 2 */
+           t=x*x;
+           return logf((float)2.0*x-one/(x+sqrtf(t-one)));
+       } else {                        /* 1<x<2 */
+           t = x-one;
+           return log1pf(t+sqrtf((float)2.0*t+t*t));
+       }
+}
diff --git a/lib/libm/src/e_asin.c b/lib/libm/src/e_asin.c
new file mode 100644 (file)
index 0000000..9eef32e
--- /dev/null
@@ -0,0 +1,113 @@
+/* @(#)e_asin.c 5.1 93/09/24 */
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_asin.c,v 1.12 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_asin.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+/* asin(x)
+ * Method :
+ *     Since  asin(x) = x + x^3/6 + x^5*3/40 + x^7*15/336 + ...
+ *     we approximate asin(x) on [0,0.5] by
+ *             asin(x) = x + x*x^2*R(x^2)
+ *     where
+ *             R(x^2) is a rational approximation of (asin(x)-x)/x^3
+ *     and its remez error is bounded by
+ *             |(asin(x)-x)/x^3 - R(x^2)| < 2^(-58.75)
+ *
+ *     For x in [0.5,1]
+ *             asin(x) = pi/2-2*asin(sqrt((1-x)/2))
+ *     Let y = (1-x), z = y/2, s := sqrt(z), and pio2_hi+pio2_lo=pi/2;
+ *     then for x>0.98
+ *             asin(x) = pi/2 - 2*(s+s*z*R(z))
+ *                     = pio2_hi - (2*(s+s*z*R(z)) - pio2_lo)
+ *     For x<=0.98, let pio4_hi = pio2_hi/2, then
+ *             f = hi part of s;
+ *             c = sqrt(z) - f = (z-f*f)/(s+f)         ...f+c=sqrt(z)
+ *     and
+ *             asin(x) = pi/2 - 2*(s+s*z*R(z))
+ *                     = pio4_hi+(pio4-2s)-(2s*z*R(z)-pio2_lo)
+ *                     = pio4_hi+(pio4-2f)-(2s*z*R(z)-(pio2_lo+2c))
+ *
+ * Special cases:
+ *     if x is NaN, return x itself;
+ *     if |x|>1, return NaN with invalid signal.
+ *
+ */
+
+
+#include <math.h>
+#include "math_private.h"
+
+static const double
+one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
+huge =  1.000e+300,
+pio2_hi =  1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
+pio2_lo =  6.12323399573676603587e-17, /* 0x3C91A626, 0x33145C07 */
+pio4_hi =  7.85398163397448278999e-01, /* 0x3FE921FB, 0x54442D18 */
+       /* coefficient for R(x^2) */
+pS0 =  1.66666666666666657415e-01, /* 0x3FC55555, 0x55555555 */
+pS1 = -3.25565818622400915405e-01, /* 0xBFD4D612, 0x03EB6F7D */
+pS2 =  2.01212532134862925881e-01, /* 0x3FC9C155, 0x0E884455 */
+pS3 = -4.00555345006794114027e-02, /* 0xBFA48228, 0xB5688F3B */
+pS4 =  7.91534994289814532176e-04, /* 0x3F49EFE0, 0x7501B288 */
+pS5 =  3.47933107596021167570e-05, /* 0x3F023DE1, 0x0DFDF709 */
+qS1 = -2.40339491173441421878e+00, /* 0xC0033A27, 0x1C8A2D4B */
+qS2 =  2.02094576023350569471e+00, /* 0x40002AE5, 0x9C598AC8 */
+qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
+qS4 =  7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
+
+double
+asin(double x)
+{
+       double t,w,p,q,c,r,s;
+       int32_t hx,ix;
+
+       t = 0;
+       GET_HIGH_WORD(hx,x);
+       ix = hx&0x7fffffff;
+       if(ix>= 0x3ff00000) {           /* |x|>= 1 */
+           u_int32_t lx;
+           GET_LOW_WORD(lx,x);
+           if(((ix-0x3ff00000)|lx)==0)
+                   /* asin(1)=+-pi/2 with inexact */
+               return x*pio2_hi+x*pio2_lo;
+           return (x-x)/(x-x);         /* asin(|x|>1) is NaN */
+       } else if (ix<0x3fe00000) {     /* |x|<0.5 */
+           if(ix<0x3e400000) {         /* if |x| < 2**-27 */
+               if(huge+x>one) return x;/* return x with inexact if x!=0*/
+           } else
+               t = x*x;
+               p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
+               q = one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
+               w = p/q;
+               return x+x*w;
+       }
+       /* 1> |x|>= 0.5 */
+       w = one-fabs(x);
+       t = w*0.5;
+       p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
+       q = one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
+       s = sqrt(t);
+       if(ix>=0x3FEF3333) {    /* if |x| > 0.975 */
+           w = p/q;
+           t = pio2_hi-(2.0*(s+s*w)-pio2_lo);
+       } else {
+           w  = s;
+           SET_LOW_WORD(w,0);
+           c  = (t-w*w)/(s+w);
+           r  = p/q;
+           p  = 2.0*s*r-(pio2_lo-2.0*c);
+           q  = pio4_hi-2.0*w;
+           t  = pio4_hi-(p-q);
+       }
+       if(hx>0) return t; else return -t;
+}
diff --git a/lib/libm/src/e_asinf.c b/lib/libm/src/e_asinf.c
new file mode 100644 (file)
index 0000000..a8aa9df
--- /dev/null
@@ -0,0 +1,85 @@
+/* e_asinf.c -- float version of e_asin.c.
+ * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
+ */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_asinf.c,v 1.8 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_asinf.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+#include <math.h>
+#include "math_private.h"
+
+static const float
+one =  1.0000000000e+00, /* 0x3F800000 */
+huge =  1.000e+30,
+pio2_hi =  1.5707962513e+00, /* 0x3fc90fda */
+pio2_lo =  7.5497894159e-08, /* 0x33a22168 */
+pio4_hi =  7.8539818525e-01, /* 0x3f490fdb */
+       /* coefficient for R(x^2) */
+pS0 =  1.6666667163e-01, /* 0x3e2aaaab */
+pS1 = -3.2556581497e-01, /* 0xbea6b090 */
+pS2 =  2.0121252537e-01, /* 0x3e4e0aa8 */
+pS3 = -4.0055535734e-02, /* 0xbd241146 */
+pS4 =  7.9153501429e-04, /* 0x3a4f7f04 */
+pS5 =  3.4793309169e-05, /* 0x3811ef08 */
+qS1 = -2.4033949375e+00, /* 0xc019d139 */
+qS2 =  2.0209457874e+00, /* 0x4001572d */
+qS3 = -6.8828397989e-01, /* 0xbf303361 */
+qS4 =  7.7038154006e-02; /* 0x3d9dc62e */
+
+float
+asinf(float x)
+{
+       float t,w,p,q,c,r,s;
+       int32_t hx,ix;
+
+       t = 0;
+       GET_FLOAT_WORD(hx,x);
+       ix = hx&0x7fffffff;
+       if(ix==0x3f800000) {
+               /* asin(1)=+-pi/2 with inexact */
+           return x*pio2_hi+x*pio2_lo;
+       } else if(ix> 0x3f800000) {     /* |x|>= 1 */
+           return (x-x)/(x-x);         /* asin(|x|>1) is NaN */
+       } else if (ix<0x3f000000) {     /* |x|<0.5 */
+           if(ix<0x32000000) {         /* if |x| < 2**-27 */
+               if(huge+x>one) return x;/* return x with inexact if x!=0*/
+           } else
+               t = x*x;
+               p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
+               q = one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
+               w = p/q;
+               return x+x*w;
+       }
+       /* 1> |x|>= 0.5 */
+       w = one-fabsf(x);
+       t = w*(float)0.5;
+       p = t*(pS0+t*(pS1+t*(pS2+t*(pS3+t*(pS4+t*pS5)))));
+       q = one+t*(qS1+t*(qS2+t*(qS3+t*qS4)));
+       s = sqrtf(t);
+       if(ix>=0x3F79999A) {    /* if |x| > 0.975 */
+           w = p/q;
+           t = pio2_hi-((float)2.0*(s+s*w)-pio2_lo);
+       } else {
+           int32_t iw;
+           w  = s;
+           GET_FLOAT_WORD(iw,w);
+           SET_FLOAT_WORD(w,iw&0xfffff000);
+           c  = (t-w*w)/(s+w);
+           r  = p/q;
+           p  = (float)2.0*s*r-(pio2_lo-(float)2.0*c);
+           q  = pio4_hi-(float)2.0*w;
+           t  = pio4_hi-(p-q);
+       }
+       if(hx>0) return t; else return -t;
+}
diff --git a/lib/libm/src/e_atan2.c b/lib/libm/src/e_atan2.c
new file mode 100644 (file)
index 0000000..ff64adf
--- /dev/null
@@ -0,0 +1,121 @@
+/* @(#)e_atan2.c 5.1 93/09/24 */
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ *
+ * $NetBSD: e_atan2.c,v 1.12 2002/05/26 22:01:48 wiz Exp $
+ * $DragonFly: src/lib/libm/src/e_atan2.c,v 1.1 2005/07/26 21:15:20 joerg Exp $
+ */
+
+/* atan2(y,x)
+ * Method :
+ *     1. Reduce y to positive by atan2(y,x)=-atan2(-y,x).
+ *     2. Reduce x to positive by (if x and y are unexceptional):
+ *             ARG (x+iy)&n