aboutsummaryrefslogtreecommitdiff
path: root/sysdeps/s390/fpu/bits
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>2004-07-01 17:50:47 +0000
committerUlrich Drepper <drepper@redhat.com>2004-07-01 17:50:47 +0000
commitf8ea3acb623f42f696b69c6de7b37c1e7cca719c (patch)
tree25b19ca4c739693617dde6ad253abb671e3e0995 /sysdeps/s390/fpu/bits
parent9f5d26e2a77098a93b21f5d111835584c9a8b085 (diff)
downloadglibc-f8ea3acb623f42f696b69c6de7b37c1e7cca719c.tar
glibc-f8ea3acb623f42f696b69c6de7b37c1e7cca719c.tar.gz
glibc-f8ea3acb623f42f696b69c6de7b37c1e7cca719c.tar.bz2
glibc-f8ea3acb623f42f696b69c6de7b37c1e7cca719c.zip
Update.
2004-07-01 Martin Schwidefsky <schwidefsky@de.ibm.com> * sysdeps/s390/fpu/bits/mathinline.h [__LIBC_INTERNAL_MATH_INLINES] (__ieee754_sqrt): Define as __MATH_INLINE using sqdbr instruction. (__ieee754_sqrtf): Define as __MATH_INLINE using sqebr instruction. * sysdeps/s390/fpu/e_sqrt.c: New file. * sysdeps/s390/fpu/e_sqrtf.c: New file. * sysdeps/s390/Implies: New file. * sysdeps/s390/s390-32/Implies: Remove ieee754, move ieee754/dbl-64 and ieee754/flt-32 to s390/Implies. * sysdeps/s390/s390-64/Implies: Likewise. 2004-06-30 Jakub Jelinek <jakub@redhat.com> * sysdeps/unix/sysv/linux/s390/s390-32/sysdep.S: Include tls.h. * sysdeps/unix/sysv/linux/s390/s390-64/sysdep.S: Likewise. * sysdeps/unix/sysv/linux/s390/s390-32/clone.S (thread_start): DO_CALL (exit, 1) instead of branching to _exit. * sysdeps/unix/sysv/linux/s390/s390-64/clone.S (thread_start): Likewise. * sysdeps/s390/fpu/bits/mathinline.h: New file. * include/glob.h (glob64): Add libc_hidden_proto. * sysdeps/generic/glob64.c (glob64): Add libc_hidden_def. * sysdeps/gnu/glob64.c (glob64): Likewise. * sysdeps/unix/sysv/linux/i386/glob64.c (glob64): Likewise.
Diffstat (limited to 'sysdeps/s390/fpu/bits')
-rw-r--r--sysdeps/s390/fpu/bits/mathinline.h77
1 files changed, 77 insertions, 0 deletions
diff --git a/sysdeps/s390/fpu/bits/mathinline.h b/sysdeps/s390/fpu/bits/mathinline.h
new file mode 100644
index 0000000000..d83d9ca8b8
--- /dev/null
+++ b/sysdeps/s390/fpu/bits/mathinline.h
@@ -0,0 +1,77 @@
+/* Inline math functions for s390.
+ Copyright (C) 2004 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+
+ 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. */
+
+#ifndef _MATH_H
+# error "Never use <bits/mathinline.h> directly; include <math.h> instead."
+#endif
+
+#ifdef __cplusplus
+# define __MATH_INLINE __inline
+#else
+# define __MATH_INLINE extern __inline
+#endif
+
+#if (!defined __NO_MATH_INLINES || defined __LIBC_INTERNAL_MATH_INLINES) \
+ && defined __OPTIMIZE__
+
+#ifdef __USE_ISOC99
+
+/* Test for negative number. Used in the signbit() macro. */
+__MATH_INLINE int __signbitf (float __x) __THROW
+{
+ __extension__ union { float __f; int __i; } __u = { __f: __x };
+ return __u.__i < 0;
+}
+
+__MATH_INLINE int __signbit (double __x) __THROW
+{
+ __extension__ union { double __d; long __i; } __u = { __d: __x };
+ return __u.__i < 0;
+}
+
+#endif /* C99 */
+
+/* This code is used internally in the GNU libc. */
+#ifdef __LIBC_INTERNAL_MATH_INLINES
+
+#include <sysdep.h>
+#include <ldsodefs.h>
+#include <dl-procinfo.h>
+
+__MATH_INLINE double
+__ieee754_sqrt (double x)
+{
+ double res;
+
+ asm ( "sqdbr %0,%1" : "=f" (res) : "f" (x) );
+ return res;
+}
+
+__MATH_INLINE float
+__ieee754_sqrtf (float x)
+{
+ float res;
+
+ asm ( "sqebr %0,%1" : "=f" (res) : "f" (x) );
+ return res;
+}
+
+#endif /* __LIBC_INTERNAL_MATH_INLINES */
+
+#endif /* __NO_MATH_INLINES */