+2003-06-16 Ulrich Drepper <drepper@redhat.com>
+
+ * math/tgmath.h (__TGMATH_UNARY_IMAG_ONLY): Removed.
+
+2003-06-15 Andreas Jaeger <aj@suse.de>
+
+ * sysdeps/i386/fpu/feenablxcpt.c (feenableexcept): Correct setting
+ of MXCSR.
+ * sysdeps/i386/fpu/fedisblxcpt.c (fedisableexcept): Likewise.
+ * sysdeps/i386/fpu/feholdexcpt.c (feholdexcept): Likewise.
+ Reported by Arnaud Desitter
+ <arnaud.desitter@geography.oxford.ac.uk>.
+
+ * math/tgmath.h (carg): Handle real arguments.
+ (conj): Likewise.
+ (cproj): Likewise.
+ (cimag): Likewise.
+ (creal): Likewise.
+
+ * math/Makefile (CFLAGS-test-tgmath-ret.c): New.
+ (tests): Add test-tgmath-ret.
+ * math/test-tgmath-ret.c: New file.
+
+ * math/tgmath.h (ilogb): Return always an int.
+
2003-06-16 Ulrich Drepper <drepper@redhat.com>
* elf/rtld.c (dl_main): Use l_map_start not l_addr in Phdr
- computation so that prelinking wroks.
+ computation so that prelinking works.
2003-06-15 Ulrich Drepper <drepper@redhat.com>
+2003-06-16 Ulrich Drepper <drepper@redhat.com>
+
+ * locales/an_ES: New file. Contributed by Jordi Mallach Péez.
+
+2003-06-15 Petter Reinholdtsen <pere@hungry.com>
+
+ * tst-fmon.c (main): Remove unused variable 'monval'.
+
+ * tst-fmon.sh: Make sure all tests are executed before an error
+ code is reported to make.
+ * tst-numeric.sh: Likewise.
+
+2003-06-15 Petter Reinholdtsen <pere@hungry.com>
+
+ * locales/is_IS [LC_TIME]: Use lower case letters in month and
+ week day names. Patch from Bjarni Ingi Gislason.
+
2003-05-31 Petter Reinholdtsen <pere@hungry.com>
* locales/fi_FI: Add URL to a reference documenting Finish in
# Rules for the test suite.
tests = test-matherr test-fenv atest-exp atest-sincos atest-exp2 basic-test \
- test-misc test-fpucw tst-definitions test-tgmath
+ test-misc test-fpucw tst-definitions test-tgmath test-tgmath-ret
# We do the `long double' tests only if this data type is available and
# distinct from `double'.
test-longdouble-yes = test-ldouble test-ildoubl
CFLAGS-test-double.c = -fno-inline -ffloat-store
CFLAGS-test-ldouble.c = -fno-inline -ffloat-store
CFLAGS-test-tgmath.c = -fno-builtin
+CFLAGS-test-tgmath-ret.c = -fno-builtin
CPPFLAGS-test-ifloat.c = -U__LIBC_INTERNAL_MATH_INLINES -D__FAST_MATH__ \
-DTEST_FAST_MATH
CPPFLAGS-test-idouble.c = -U__LIBC_INTERNAL_MATH_INLINES -D__FAST_MATH__ \
--- /dev/null
+/* Test compilation of tgmath macros.
+ Copyright (C) 2003 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Andreas Jaeger <aj@suse.de>, 2003.
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ The GNU C Library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with the GNU C Library; if not, write to the Free
+ Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+ 02111-1307 USA. */
+
+#include <math.h>
+#include <complex.h>
+#include <tgmath.h>
+#include <stdio.h>
+
+static float fx;
+static double dx;
+static long double lx;
+static int errors = 0;
+
+static void
+our_error (const char *c)
+{
+ puts (c);
+ ++errors;
+}
+
+/* First function where the return type is constant. */
+
+#define CHECK_RET_CONST_TYPE(func, rettype, arg, name) \
+ if (sizeof (func (arg)) != sizeof (rettype)) \
+ our_error ("Return size of " #func " is wrong with " #name " argument");
+
+#define CHECK_RET_CONST_FLOAT(func, rettype) \
+ CHECK_RET_CONST_TYPE (func, rettype, fx, float)
+#define CHECK_RET_CONST_DOUBLE(func, rettype) \
+ CHECK_RET_CONST_TYPE (func, rettype, dx, double)
+#ifdef NO_LONG_DOUBLE
+# define CHECK_RET_CONST_LDOUBLE(func, rettype)
+#else
+# define CHECK_RET_CONST_LDOUBLE(func, rettype) \
+ CHECK_RET_CONST_TYPE (func, rettype, lx, long double)
+#endif
+
+#define CHECK_RET_CONST(func, rettype) \
+static void \
+check_return_ ##func (void) \
+{ \
+ CHECK_RET_CONST_FLOAT (func, rettype) \
+ CHECK_RET_CONST_DOUBLE (func, rettype) \
+ CHECK_RET_CONST_LDOUBLE (func, rettype) \
+}
+
+CHECK_RET_CONST(ilogb, int)
+CHECK_RET_CONST(lrint, long)
+CHECK_RET_CONST(lround, long)
+CHECK_RET_CONST(llrint, long long)
+CHECK_RET_CONST(llround, long long)
+
+static int
+do_test (void)
+{
+ check_return_ilogb ();
+ check_return_lrint ();
+ check_return_lround ();
+ check_return_llrint ();
+ check_return_llround ();
+
+ printf ("%Zd\n", sizeof(carg (lx)));
+
+ return errors != 0;
+}
+
+#define TEST_FUNCTION do_test ()
+#include "../test-skeleton.c"
} \
__tgmres; }))
-/* XXX This definition has to be changed as soon as the compiler understands
- the imaginary keyword. */
-# define __TGMATH_UNARY_IMAG_ONLY(Val, Fct) \
- (__extension__ ({ __tgmath_real_type (Val) __tgmres; \
- if (sizeof (Val) == sizeof (__complex__ double) \
- || __builtin_classify_type (__real__ (Val)) != 8) \
- __tgmres = Fct (Val); \
- else if (sizeof (Val) == sizeof (__complex__ float)) \
- __tgmres = Fct##f (Val); \
- else \
- __tgmres = __tgml(Fct) (Val); \
- __tgmres; }))
-
/* XXX This definition has to be changed as soon as the compiler understands
the imaginary keyword. */
# define __TGMATH_BINARY_REAL_IMAG(Val1, Val2, Fct, Cfct) \
__TGMATH_BINARY_FIRST_REAL_ONLY (Val1, Val2, scalbln)
/* Return the binary exponent of X, which must be nonzero. */
-#define ilogb(Val) __TGMATH_UNARY_REAL_ONLY (Val, ilogb)
+#define ilogb(Val) __TGMATH_UNARY_REAL_RET_ONLY (Val, int, ilogb)
/* Return positive difference between X and Y. */
/* Absolute value, conjugates, and projection. */
/* Argument value of Z. */
-#define carg(Val) __TGMATH_UNARY_IMAG_ONLY (Val, carg)
+#define carg(Val) __TGMATH_UNARY_REAL_IMAG (Val, carg, carg)
/* Complex conjugate of Z. */
-#define conj(Val) __TGMATH_UNARY_IMAG_ONLY (Val, conj)
+#define conj(Val) __TGMATH_UNARY_REAL_IMAG (Val, conj, conj)
/* Projection of Z onto the Riemann sphere. */
-#define cproj(Val) __TGMATH_UNARY_IMAG_ONLY (Val, cproj)
+#define cproj(Val) __TGMATH_UNARY_REAL_IMAG (Val, cproj, cproj)
/* Decomposing complex values. */
/* Imaginary part of Z. */
-#define cimag(Val) __TGMATH_UNARY_IMAG_ONLY (Val, cimag)
+#define cimag(Val) __TGMATH_UNARY_REAL_IMAG (Val, cimag, cimag)
/* Real part of Z. */
-#define creal(Val) __TGMATH_UNARY_IMAG_ONLY (Val, creal)
+#define creal(Val) __TGMATH_UNARY_REAL_IMAG (Val, creal, creal)
#endif /* tgmath.h */
+2003-06-16 Ulrich Drepper <drepper@redhat.com>
+
+ * Makefile: Add rules to build and run tst-cancel16 and
+ tst-cancelx16. Add missing CFLAGS definitions.
+ * tst-cancel16.c: New file.
+ * tst-cancelx16.c: New file.
+
2003-06-15 Ulrich Drepper <drepper@redhat.com>
* sysdeps/unix/sysv/linux/i386/dl-sysdep.h
/* Get the current control word. */
__asm__ ("stmxcsr %0" : "=m" (*&xnew_exc));
- xnew_exc |= excepts;
+ xnew_exc |= excepts << 7;
__asm__ ("ldmxcsr %0" : : "m" (*&xnew_exc));
}
/* Get the current control word. */
__asm__ ("ldmxcsr %0" : "=m" (*&xnew_exc));
- xnew_exc &= ~excepts;
+ xnew_exc &= ~(excepts << 7);
__asm__ ("stmxcsr %0" : : "m" (*&xnew_exc));
}
__asm__ ("stmxcsr %0" : "=m" (*&xwork));
/* Set all exceptions to non-stop. */
- work |= 0x1f80;
+ xwork |= 0x1f80;
__asm__ ("ldmxcsr %0" : : "m" (*&xwork));
}
projects / thirdparty / glibc.git / commitdiff
