diff options
author | das <das@FreeBSD.org> | 2007-12-16 21:19:28 +0000 |
---|---|---|
committer | das <das@FreeBSD.org> | 2007-12-16 21:19:28 +0000 |
commit | bb384eba43f6fa8d7c4e8bc5904985d7438b3ed4 (patch) | |
tree | 2cbe77198dcb8b739e1c217a414214adc49077f9 /lib/msun/ld128 | |
parent | 1cc7475e872b281213100f41c9593400e47590d8 (diff) | |
download | FreeBSD-src-bb384eba43f6fa8d7c4e8bc5904985d7438b3ed4.zip FreeBSD-src-bb384eba43f6fa8d7c4e8bc5904985d7438b3ed4.tar.gz |
Implement and document nan(), nanf(), and nanl(). This commit
adds two new directories in msun: ld80 and ld128. These are for
long double functions specific to the 80-bit long double format
used on x86-derived architectures, and the 128-bit format used on
sparc64, respectively.
Diffstat (limited to 'lib/msun/ld128')
-rw-r--r-- | lib/msun/ld128/s_nanl.c | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/lib/msun/ld128/s_nanl.c b/lib/msun/ld128/s_nanl.c new file mode 100644 index 0000000..6a9bfbf --- /dev/null +++ b/lib/msun/ld128/s_nanl.c @@ -0,0 +1,47 @@ +/*- + * Copyright (c) 2007 David Schultz + * 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. + * + * THIS SOFTWARE IS PROVIDED BY AUTHOR 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 AUTHOR 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. + * + * $FreeBSD$ + */ + +#include <math.h> + +#include "fpmath.h" +#include "../../../contrib/gdtoa/gdtoaimp.h" + +long double +nanl(const char *s) +{ + static FPI fpi = { 113, -16494, 16271, 1, SI }; + + union IEEEl2bits result; + ULong bits[2]; + int k; + + s--; + k = hexnan(&s, &fpi, bits); + ULtoQ((UShort *)&result.e, bits, 16272, k); + return (result.e); +} |