From 3950ffe2a485479f6561c27364d3d7df5a21d124 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sun, 24 Jun 2012 22:28:35 +0000 Subject: Imported Upstream version 93u+ --- src/lib/libast/port/astmath.c | 72 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 src/lib/libast/port/astmath.c (limited to 'src/lib/libast/port/astmath.c') 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 * +* David Korn * +* Phong Vo * +* * +***********************************************************************/ +/* + * 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 + +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 +} -- cgit v1.2.3