From b9e7cd9a846cf584049a719bbd0e4cabe3c50bea Mon Sep 17 00:00:00 2001 From: Nick Clifton Date: Fri, 6 Feb 2015 16:14:04 +0000 Subject: * libc/include/complex.h (cabsl): Add prototype. (cimagl): Add prototype. (creall): Add prototype. * libc/include/ieeefp.h: Include float.h. (EXT_EXPBITS, EXT_FRACHBITS, EXT_FRACLBITS) (EXT_EXP_INFNAN. EXT_EXP_BIAS, EXT_FRACBITS): Define. (struct ieee_ext, union ieee_ext_u): New types for long double support. * libc/include/math.h (finitel): Add prototype. (hypotl): Add prototype. (sqrtl): Add prototype. * libm/common/Makefile.am (lsrc): Add sl_finite.c. * libm/common/Makefile.in: Regenerate. * libm/common/fdlibm.h (__ieee754_hypotl): Add prototype. * libm/common/hypotl.c (hypotl): Add implementation for when long double is larger than double. * libm/common/sqrtl.c (sqrtl): Likewise. * libm/common/sl_finite.c: New file. Adds implementation of the finitel function. * libm/complex/Makefile.am (lsrc): Define. (libcomplex_la_SOURCES): Add lsrc. (lib_a_SOURCES): Add lsrc. * libm/complex/Makefile.in: Regenerate. * libm/complex/cabs.c: Add documentation of cabsl function. * libm/complex/cimag.c: Add documentation of cimagl function. * libm/complex/creall.c: Add documentation of creall function. * libm/complex/cabsl.c: New file. Adds implementation of the cabsl function. * libm/complex/cimagl.c: New file. Adds implementation of the cimagl function. * libm/complex/creall.c: New file. Adds implementation of the creall function. * libm/math/Makefile.am (lsrc): Define. (libmath_la_SOURCES): Add lsrc. (lib_a_SOURCES): Add lsrc. * libm/math/Makefile.in: Regenerate. * libm/math/el_hypot.c: New file. Adds implementation of the __ieee754_hypotl function. --- newlib/libm/common/sl_finite.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 newlib/libm/common/sl_finite.c (limited to 'newlib/libm/common/sl_finite.c') diff --git a/newlib/libm/common/sl_finite.c b/newlib/libm/common/sl_finite.c new file mode 100644 index 000000000..0c27b4fae --- /dev/null +++ b/newlib/libm/common/sl_finite.c @@ -0,0 +1,25 @@ +/* Copyright (C) 2015 by Red Hat, Incorporated. All rights reserved. + * + * Permission to use, copy, modify, and distribute this software + * is freely granted, provided that this notice is preserved. + */ + +/* finitel(x) returns 1 is x is finite, else 0; */ + +#include + +int +finitel (long double x) +{ +#ifdef _LDBL_EQ_DBL + return finite (x); +#else + /* Let the compiler do this for us. + Note - we do not know how many bits there are in a long double. + Some architectures for example have an 80-bit long double whereas + others use 128-bits. We use macros and comiler builtin functions + to avoid specific knowledge of the long double format. */ + return __builtin_isinf_sign (x) == 0; +#endif +} + -- cgit v1.2.3