isfinitel.c revision 1.2 1 1.2 christos /* $NetBSD: isfinitel.c,v 1.2 2007/02/02 23:18:57 christos Exp $ */
2 1.1 kleink
3 1.1 kleink /*-
4 1.1 kleink * Copyright (c) 2003 The NetBSD Foundation, Inc.
5 1.1 kleink * All rights reserved.
6 1.1 kleink *
7 1.1 kleink * This code is derived from software contributed to The NetBSD Foundation
8 1.1 kleink * by Klaus Klein.
9 1.1 kleink *
10 1.1 kleink * Redistribution and use in source and binary forms, with or without
11 1.1 kleink * modification, are permitted provided that the following conditions
12 1.1 kleink * are met:
13 1.1 kleink * 1. Redistributions of source code must retain the above copyright
14 1.1 kleink * notice, this list of conditions and the following disclaimer.
15 1.1 kleink * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 kleink * notice, this list of conditions and the following disclaimer in the
17 1.1 kleink * documentation and/or other materials provided with the distribution.
18 1.1 kleink * 3. All advertising materials mentioning features or use of this software
19 1.1 kleink * must display the following acknowledgement:
20 1.1 kleink * This product includes software developed by the NetBSD
21 1.1 kleink * Foundation, Inc. and its contributors.
22 1.1 kleink * 4. Neither the name of The NetBSD Foundation nor the names of its
23 1.1 kleink * contributors may be used to endorse or promote products derived
24 1.1 kleink * from this software without specific prior written permission.
25 1.1 kleink *
26 1.1 kleink * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27 1.1 kleink * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28 1.1 kleink * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 1.1 kleink * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30 1.1 kleink * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31 1.1 kleink * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32 1.1 kleink * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33 1.1 kleink * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34 1.1 kleink * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 1.1 kleink * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36 1.1 kleink * POSSIBILITY OF SUCH DAMAGE.
37 1.1 kleink */
38 1.1 kleink
39 1.1 kleink #include <sys/cdefs.h>
40 1.1 kleink #if defined(LIBC_SCCS) && !defined(lint)
41 1.2 christos __RCSID("$NetBSD: isfinitel.c,v 1.2 2007/02/02 23:18:57 christos Exp $");
42 1.1 kleink #endif
43 1.1 kleink
44 1.1 kleink #include <machine/ieee.h>
45 1.1 kleink #include <assert.h>
46 1.1 kleink #include <math.h>
47 1.1 kleink
48 1.1 kleink /*
49 1.1 kleink * 7.12.3.2 isfinite - determine whether an argument has finite value
50 1.1 kleink * IEEE 754 compatible 80-bit extended-precision Intel 386 version
51 1.1 kleink */
52 1.1 kleink int
53 1.1 kleink __isfinitel(long double x)
54 1.1 kleink {
55 1.1 kleink union ieee_ext_u u;
56 1.1 kleink
57 1.1 kleink u.extu_ld = x;
58 1.1 kleink
59 1.2 christos _DIAGASSERT(u.extu_ext.ext_exp == 0 ||
60 1.2 christos (u.extu_ext.ext_frach & 0x80000000));
61 1.1 kleink
62 1.1 kleink if (u.extu_ext.ext_exp == EXT_EXP_INFNAN)
63 1.1 kleink return 0;
64 1.1 kleink
65 1.1 kleink return 1;
66 1.1 kleink }
67