diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
| commit | 3950ffe2a485479f6561c27364d3d7df5a21d124 (patch) | |
| tree | 468c6e14449d1b1e279222ec32f676b0311917d2 /src/lib/libast/port/astmath.c | |
| download | ksh-upstream.tar.gz | |
Imported Upstream version 93u+upstream
Diffstat (limited to 'src/lib/libast/port/astmath.c')
| -rw-r--r-- | src/lib/libast/port/astmath.c | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/src/lib/libast/port/astmath.c b/src/lib/libast/port/astmath.c new file mode 100644 index 0000000..395312e --- /dev/null +++ b/src/lib/libast/port/astmath.c @@ -0,0 +1,72 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler <gsf@research.att.com> * +* David Korn <dgk@research.att.com> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +/* + * used to test if -last requires -lm + * + * arch -last -lm + * ---- ----- --- + * linux.sparc sfdlen,sfputd frexp,ldexp + */ + +#if N >= 8 +#define _ISOC99_SOURCE 1 +#endif + +#include <math.h> + +int +main() +{ +#if N & 1 + long double value = 0; +#else + double value = 0; +#endif +#if N < 5 + int exp = 0; +#endif + +#if N == 1 + return ldexpl(value, exp) != 0; +#endif +#if N == 2 + return ldexp(value, exp) != 0; +#endif +#if N == 3 + return frexpl(value, &exp) != 0; +#endif +#if N == 4 + return frexp(value, &exp) != 0; +#endif +#if N == 5 + return isnan(value); +#endif +#if N == 6 + return isnan(value); +#endif +#if N == 7 + return copysign(1.0, value) < 0; +#endif +#if N == 8 + return signbit(value); +#endif +} |