[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commits] r1717 - in /fsf/trunk/libc: ./ localedata/ sysdeps/alpha/fpu/ sysdeps/alpha/fpu/bits/ sysdeps/ieee754/ldbl-128/
- To: commits@xxxxxxxxxx
- Subject: [commits] r1717 - in /fsf/trunk/libc: ./ localedata/ sysdeps/alpha/fpu/ sysdeps/alpha/fpu/bits/ sysdeps/ieee754/ldbl-128/
- From: eglibc@xxxxxxxxxx
- Date: Thu, 15 Mar 2007 07:01:27 -0000
Author: eglibc
Date: Thu Mar 15 00:01:26 2007
New Revision: 1717
Log:
Import glibc-mainline for 2007-03-15
Added:
fsf/trunk/libc/sysdeps/alpha/fpu/s_fmax.S
fsf/trunk/libc/sysdeps/alpha/fpu/s_fmaxf.S
fsf/trunk/libc/sysdeps/alpha/fpu/s_fmin.S
fsf/trunk/libc/sysdeps/alpha/fpu/s_fminf.S
fsf/trunk/libc/sysdeps/alpha/fpu/s_isnan.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_isnanf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_llrint.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_llrintf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_llround.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_llroundf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_lrint.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_lrintf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_lround.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_lroundf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyint.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyintf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_round.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_roundf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_trunc.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_truncf.c
fsf/trunk/libc/sysdeps/ieee754/ldbl-128/Makefile
Modified:
fsf/trunk/libc/ChangeLog
fsf/trunk/libc/localedata/ChangeLog
fsf/trunk/libc/localedata/Makefile
fsf/trunk/libc/localedata/tst-sscanf.c
fsf/trunk/libc/sysdeps/alpha/fpu/bits/mathinline.h
fsf/trunk/libc/sysdeps/alpha/fpu/s_ceil.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_ceilf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_floor.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_floorf.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_rint.c
fsf/trunk/libc/sysdeps/alpha/fpu/s_rintf.c
Modified: fsf/trunk/libc/ChangeLog
==============================================================================
--- fsf/trunk/libc/ChangeLog (original)
+++ fsf/trunk/libc/ChangeLog Thu Mar 15 00:01:26 2007
@@ -1,3 +1,43 @@
+2007-03-14 Richard Henderson <rth@xxxxxxxxxx>
+
+ * sysdeps/alpha/fpu/s_llround.c: New file.
+ * sysdeps/alpha/fpu/s_llroundf.c: New file.
+ * sysdeps/alpha/fpu/s_lround.c: New file.
+ * sysdeps/alpha/fpu/s_lroundf.c: New file.
+ * sysdeps/alpha/fpu/s_round.c: New file.
+ * sysdeps/alpha/fpu/s_roundf.c: New file.
+ * sysdeps/alpha/fpu/s_trunc.c: New file.
+ * sysdeps/alpha/fpu/s_truncf.c: New file.
+
+ * sysdeps/alpha/fpu/s_ceil.c: Rewrite without branches.
+ * sysdeps/alpha/fpu/s_ceilf.c: Likewise.
+ * sysdeps/alpha/fpu/s_floor.c: Likewise.
+ * sysdeps/alpha/fpu/s_floorf.c: Likewise.
+ * sysdeps/alpha/fpu/s_rint.c: Likewise.
+ * sysdeps/alpha/fpu/s_rintf.c: Likewise.
+
+ * sysdeps/alpha/fpu/s_fmax.S: New file.
+ * sysdeps/alpha/fpu/s_fmaxf.S: New file.
+ * sysdeps/alpha/fpu/s_fmin.S: New file.
+ * sysdeps/alpha/fpu/s_fminf.S: New file.
+ * sysdeps/alpha/fpu/s_isnan.c: New file.
+ * sysdeps/alpha/fpu/s_isnanf.c: New file.
+ * sysdeps/alpha/fpu/s_llrint.c: New file.
+ * sysdeps/alpha/fpu/s_llrintf.c: New file.
+ * sysdeps/alpha/fpu/s_lrint.c: New file.
+ * sysdeps/alpha/fpu/s_lrintf.c: New file.
+ * sysdeps/alpha/fpu/s_nearbyint.c: New file.
+ * sysdeps/alpha/fpu/s_nearbyintf.c: New file.
+
+ * sysdeps/alpha/fpu/bits/mathinline.h (__floorf, __floor): Remove.
+ (__fdimf, fdimf, __fdim, fdim): Remove.
+ (__signbitf, __signbit, __signbitl): Use gcc builtin if available.
+ (__isnanf, __isnan, __isnanl): New.
+
+2007-03-13 Richard Henderson <rth@xxxxxxxxxx>
+
+ * sysdeps/ieee754/ldbl-128/Makefile: New file.
+
2007-03-13 Richard Henderson <rth@xxxxxxxxxx>
* sysdeps/alpha/Makefile (sysdep-CFLAGS): Force dynamic rounding.
Modified: fsf/trunk/libc/localedata/ChangeLog
==============================================================================
--- fsf/trunk/libc/localedata/ChangeLog (original)
+++ fsf/trunk/libc/localedata/ChangeLog Thu Mar 15 00:01:26 2007
@@ -1,3 +1,8 @@
+2007-03-07 Steven Munroe <sjmunroe@xxxxxxxxxx>
+
+ * Makefile: Define tst-sscanf-ENV.
+ * tst-sscanf.c: Use fa_IR.UTF-8 which exists internally.
+
2007-02-18 Ulrich Drepper <drepper@xxxxxxxxxx>
* Makefile (tests): Add tst-sscanf.
Modified: fsf/trunk/libc/localedata/Makefile
==============================================================================
--- fsf/trunk/libc/localedata/Makefile (original)
+++ fsf/trunk/libc/localedata/Makefile Thu Mar 15 00:01:26 2007
@@ -289,6 +289,8 @@
bug-iconv-trans-ENV = LOCPATH=$(common-objpfx)localedata
+tst-sscanf-ENV = LOCPATH=$(common-objpfx)localedata
+
tst-leaks-ENV = MALLOC_TRACE=$(objpfx)tst-leaks.mtrace \
LOCPATH=$(common-objpfx)localedata
$(objpfx)mtrace-tst-leaks: $(objpfx)tst-leaks.out
Modified: fsf/trunk/libc/localedata/tst-sscanf.c
==============================================================================
--- fsf/trunk/libc/localedata/tst-sscanf.c (original)
+++ fsf/trunk/libc/localedata/tst-sscanf.c Thu Mar 15 00:01:26 2007
@@ -36,7 +36,7 @@
static int
do_test (void)
{
- if (setlocale (LC_ALL, "fa_IR") == NULL)
+ if (setlocale (LC_ALL, "fa_IR.UTF-8") == NULL)
{
puts ("cannot set fa_IR locale");
return 1;
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/bits/mathinline.h
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/bits/mathinline.h (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/bits/mathinline.h Thu Mar 15 00:01:26 2007
@@ -1,5 +1,6 @@
/* Inline math functions for Alpha.
- Copyright (C) 1996, 1997, 1999-2001, 2004 Free Software Foundation, Inc.
+ Copyright (C) 1996, 1997, 1999-2001, 2004, 2007
+ Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by David Mosberger-Tang.
@@ -83,111 +84,64 @@
# undef __inline_fabs
#endif
-
-/* Use the -inf rounding mode conversion instructions to implement
- floor. We note when the exponent is large enough that the value
- must be integral, as this avoids unpleasant integer overflows. */
-
-__MATH_INLINE float
-__NTH (__floorf (float __x))
-{
- /* Check not zero since floor(-0) == -0. */
- if (__x != 0 && fabsf (__x) < 16777216.0f) /* 1 << FLT_MANT_DIG */
- {
- /* Note that Alpha S_Floating is stored in registers in a
- restricted T_Floating format, so we don't even need to
- convert back to S_Floating in the end. The initial
- conversion to T_Floating is needed to handle denormals. */
-
- float __tmp1, __tmp2;
-
- __asm ("cvtst/s %3,%2\n\t"
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(__x), "=&f"(__tmp1), "=&f"(__tmp2)
- : "f"(__x));
- }
- return __x;
-}
-
-__MATH_INLINE double
-__NTH (__floor (double __x))
-{
- if (__x != 0 && fabs (__x) < 9007199254740992.0) /* 1 << DBL_MANT_DIG */
- {
- double __tmp1;
- __asm (
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(__x), "=&f"(__tmp1)
- : "f"(__x));
- }
- return __x;
-}
-
-__MATH_INLINE float __NTH (floorf (float __x)) { return __floorf(__x); }
-__MATH_INLINE double __NTH (floor (double __x)) { return __floor(__x); }
-
-
#ifdef __USE_ISOC99
-
-__MATH_INLINE float
-__NTH (__fdimf (float __x, float __y))
-{
- return __x <= __y ? 0.0f : __x - __y;
-}
-
-__MATH_INLINE float
-__NTH (fdimf (float __x, float __y))
-{
- return __x <= __y ? 0.0f : __x - __y;
-}
-
-__MATH_INLINE double
-__NTH (__fdim (double __x, double __y))
-{
- return __x <= __y ? 0.0 : __x - __y;
-}
-
-__MATH_INLINE double
-__NTH (fdim (double __x, double __y))
-{
- return __x <= __y ? 0.0 : __x - __y;
-}
/* Test for negative number. Used in the signbit() macro. */
__MATH_INLINE int
__NTH (__signbitf (float __x))
{
+#if !__GNUC_PREREQ (4, 0)
__extension__ union { float __f; int __i; } __u = { __f: __x };
return __u.__i < 0;
+#else
+ return __builtin_signbitf (__x);
+#endif
}
__MATH_INLINE int
__NTH (__signbit (double __x))
{
+#if !__GNUC_PREREQ (4, 0)
__extension__ union { double __d; long __i; } __u = { __d: __x };
return __u.__i < 0;
+#else
+ return __builtin_signbit (__x);
+#endif
}
__MATH_INLINE int
__NTH (__signbitl (long double __x))
{
+#if !__GNUC_PREREQ (4, 0)
__extension__ union {
long double __d;
long __i[sizeof(long double)/sizeof(long)];
} __u = { __d: __x };
return __u.__i[sizeof(long double)/sizeof(long) - 1] < 0;
+#else
+ return __builtin_signbitl (__x);
+#endif
}
+/* Test for NaN. Used in the isnan() macro. */
+
+__MATH_INLINE int
+__NTH (__isnanf (float __x))
+{
+ return isunordered (__x, __x);
+}
+
+__MATH_INLINE int
+__NTH (__isnan (double __x))
+{
+ return isunordered (__x, __x);
+}
+
+__MATH_INLINE int
+__NTH (__isnanl (long double __x))
+{
+ return isunordered (__x, __x);
+}
#endif /* C99 */
#endif /* __NO_MATH_INLINES */
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_ceil.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_ceil.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_ceil.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998, 2000, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 1998, 2000, 2006, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -27,25 +27,20 @@
double
__ceil (double x)
{
- if (isless (fabs (x), 9007199254740992.0)) /* 1 << DBL_MANT_DIG */
- {
- double tmp1, new_x;
+ double two52 = copysign (0x1.0p52, x);
+ double r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "addt/suim %2, %3, %1\n\tsubt/suim %1, %3, %0"
+#else
+ "addt/sum %2, %3, %1\n\tsubt/sum %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(-x), "f"(-two52));
- new_x = -x;
- __asm (
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1)
- : "f"(new_x));
-
- /* Fix up the negation we did above, as well as handling -0 properly. */
- x = copysign(new_x, x);
- }
- return x;
+ /* Fix up the negation we did above, as well as handling -0 properly. */
+ return copysign (r, x);
}
weak_alias (__ceil, ceil)
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_ceilf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_ceilf.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_ceilf.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1998, 2000, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -26,30 +26,20 @@
float
__ceilf (float x)
{
- if (isless (fabsf (x), 16777216.0f)) /* 1 << FLT_MANT_DIG */
- {
- /* Note that Alpha S_Floating is stored in registers in a
- restricted T_Floating format, so we don't even need to
- convert back to S_Floating in the end. The initial
- conversion to T_Floating is needed to handle denormals. */
+ float two23 = copysignf (0x1.0p23, x);
+ float r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "adds/suim %2, %3, %1\n\tsubs/suim %1, %3, %0"
+#else
+ "adds/sum %2, %3, %1\n\tsubs/sum %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(-x), "f"(-two23));
- float tmp1, tmp2, new_x;
-
- new_x = -x;
- __asm ("cvtst/s %3,%2\n\t"
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1), "=&f"(tmp2)
- : "f"(new_x));
-
- /* Fix up the negation we did above, as well as handling -0 properly. */
- x = copysignf(new_x, x);
- }
- return x;
+ /* Fix up the negation we did above, as well as handling -0 properly. */
+ return copysignf (r, x);
}
weak_alias (__ceilf, ceilf)
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_floor.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_floor.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_floor.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998, 1999, 2000, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 1998, 1999, 2000, 2006, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -21,32 +21,26 @@
#include <math_ldbl_opt.h>
-/* Use the -inf rounding mode conversion instructions to implement
- floor. We note when the exponent is large enough that the value
- must be integral, as this avoids unpleasant integer overflows. */
+/* Use the -inf rounding mode conversion instructions to implement floor. */
double
__floor (double x)
{
- if (isless (fabs (x), 9007199254740992.0)) /* 1 << DBL_MANT_DIG */
- {
- double tmp1, new_x;
+ double two52 = copysign (0x1.0p52, x);
+ double r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "addt/suim %2, %3, %1\n\tsubt/suim %1, %3, %0"
+#else
+ "addt/sum %2, %3, %1\n\tsubt/sum %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(x), "f"(two52));
- __asm (
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1)
- : "f"(x));
-
- /* floor(-0) == -0, and in general we'll always have the same
- sign as our input. */
- x = copysign(new_x, x);
- }
- return x;
+ /* floor(-0) == -0, and in general we'll always have the same
+ sign as our input. */
+ return copysign (r, x);
}
weak_alias (__floor, floor)
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_floorf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_floorf.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_floorf.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1998, 1999, 2000, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -20,37 +20,26 @@
#include <math.h>
-/* Use the -inf rounding mode conversion instructions to implement
- floor. We note when the exponent is large enough that the value
- must be integral, as this avoids unpleasant integer overflows. */
+/* Use the -inf rounding mode conversion instructions to implement floor. */
float
__floorf (float x)
{
- if (isless (fabsf (x), 16777216.0f)) /* 1 << FLT_MANT_DIG */
- {
- /* Note that Alpha S_Floating is stored in registers in a
- restricted T_Floating format, so we don't even need to
- convert back to S_Floating in the end. The initial
- conversion to T_Floating is needed to handle denormals. */
+ float two23 = copysignf (0x1.0p23, x);
+ float r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "adds/suim %2, %3, %1\n\tsubs/suim %1, %3, %0"
+#else
+ "adds/sum %2, %3, %1\n\tsubs/sum %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(x), "f"(two23));
- float tmp1, tmp2, new_x;
-
- __asm ("cvtst/s %3,%2\n\t"
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svim %2,%1\n\t"
-#else
- "cvttq/svm %2,%1\n\t"
-#endif
- "cvtqt/m %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1), "=&f"(tmp2)
- : "f"(x));
-
- /* floor(-0) == -0, and in general we'll always have the same
- sign as our input. */
- x = copysignf(new_x, x);
- }
- return x;
+ /* floor(-0) == -0, and in general we'll always have the same
+ sign as our input. */
+ return copysignf (r, x);
}
weak_alias (__floorf, floorf)
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_fmax.S
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_fmax.S (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_fmax.S Thu Mar 15 00:01:26 2007
@@ -1,0 +1,58 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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 <sysdep.h>
+#include <math_ldbl_opt.h>
+
+ .set noat
+ .set noreorder
+
+ .text
+ENTRY (__fmax)
+ .prologue 0
+
+ cmptun/su $f16, $f16, $f10
+ cmptun/su $f17, $f17, $f11
+ fmov $f17, $f0
+ unop
+
+ trapb
+ fbne $f10, $ret
+ fmov $f16, $f0
+ fbne $f11, $ret
+
+ cmptlt/su $f16, $f17, $f11
+ trapb
+ fcmovne $f11, $f17, $f0
+$ret: ret
+
+END (__fmax)
+
+/* Given the in-register format of single-precision, this works there too. */
+strong_alias (__fmax, __fmaxf)
+weak_alias (__fmaxf, fmaxf)
+
+weak_alias (__fmax, fmax)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__fmax, __fmaxl)
+weak_alias (__fmaxl, fmaxl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __fmax, fmaxl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_fmaxf.S
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_fmaxf.S (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_fmaxf.S Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* __fmaxf is in s_fmax.c */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_fmin.S
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_fmin.S (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_fmin.S Thu Mar 15 00:01:26 2007
@@ -1,0 +1,58 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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 <sysdep.h>
+#include <math_ldbl_opt.h>
+
+ .set noat
+ .set noreorder
+
+ .text
+ENTRY (__fmin)
+ .prologue 0
+
+ cmptun/su $f16, $f16, $f10
+ cmptun/su $f17, $f17, $f11
+ fmov $f17, $f0
+ unop
+
+ trapb
+ fbne $f10, $ret
+ fmov $f16, $f0
+ fbne $f11, $ret
+
+ cmptlt/su $f17, $f16, $f11
+ trapb
+ fcmovne $f11, $f17, $f0
+$ret: ret
+
+END (__fmin)
+
+/* Given the in-register format of single-precision, this works there too. */
+strong_alias (__fmin, __fminf)
+weak_alias (__fminf, fminf)
+
+weak_alias (__fmin, fmin)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__fmin, __fminl)
+weak_alias (__fminl, fminl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __fmin, fminl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_fminf.S
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_fminf.S (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_fminf.S Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* __fminf is in s_fmin.c */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_isnan.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_isnan.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_isnan.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,58 @@
+/* Return 1 if argument is a NaN, else 0.
+ Copyright (C) 2007 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. */
+
+/* Ugly kludge to avoid declarations. */
+#define __isnanf not___isnanf
+#define isnanf not_isnanf
+#define __GI___isnanf not__GI___isnanf
+
+#include <math.h>
+#include <math_ldbl_opt.h>
+
+#undef __isnanf
+#undef isnanf
+#undef __GI___isnanf
+
+/* The hidden_proto in include/math.h was obscured by the macro hackery. */
+__typeof (__isnan) __isnanf;
+hidden_proto (__isnanf)
+
+
+int
+__isnan (double x)
+{
+ return isunordered (x, x);
+}
+
+hidden_def (__isnan)
+weak_alias (__isnan, isnan)
+
+/* It turns out that the 'double' version will also always work for
+ single-precision. */
+strong_alias (__isnan, __isnanf)
+hidden_def (__isnanf)
+weak_alias (__isnanf, isnanf)
+
+#ifdef NO_LONG_DOUBLE
+strong_alias (__isnan, __isnanl)
+weak_alias (__isnan, isnanl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __isnan, isnanl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_isnanf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_isnanf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_isnanf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* In s_isnan.c */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_llrint.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_llrint.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_llrint.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* In s_lrint.c */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_llrintf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_llrintf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_llrintf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* In s_lrintf.c */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_llround.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_llround.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_llround.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* In s_lround.c. */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_llroundf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_llroundf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_llroundf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+/* In s_lroundf.c. */
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_lrint.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_lrint.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_lrint.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,48 @@
+/* Copyright (C) 2007 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. */
+
+#define __llrint not___llrint
+#define llrint not_llrint
+#include <math.h>
+#include <math_ldbl_opt.h>
+#undef __llrint
+#undef llrint
+
+long int
+__lrint (double x)
+{
+ long ret;
+
+ __asm ("cvttq/svd %1,%0" : "=&f"(ret) : "f"(x));
+
+ return ret;
+}
+
+strong_alias (__lrint, __llrint)
+weak_alias (__lrint, lrint)
+weak_alias (__llrint, llrint)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__lrint, __lrintl)
+strong_alias (__lrint, __llrintl)
+weak_alias (__lrintl, lrintl)
+weak_alias (__llrintl, llrintl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __lrint, lrintl, GLIBC_2_0);
+compat_symbol (libm, __llrint, llrintl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_lrintf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_lrintf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_lrintf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,39 @@
+/* Copyright (C) 2007 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. */
+
+#define __llrintf not___llrintf
+#define llrintf not_llrintf
+#include <math.h>
+#undef __llrintf
+#undef llrintf
+
+long int
+__lrintf (float x)
+{
+ double tmp;
+ long ret;
+
+ __asm ("cvtst/s %2,%1\n\tcvttq/svd %1,%0"
+ : "=&f"(ret), "=&f"(tmp) : "f"(x));
+
+ return ret;
+}
+
+strong_alias (__lrintf, __llrintf)
+weak_alias (__lrintf, lrintf)
+weak_alias (__llrintf, llrintf)
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_lround.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_lround.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_lround.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,48 @@
+/* Copyright (C) 2007 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. */
+
+#define __llround not___llround
+#define llround not_llround
+#include <math.h>
+#include <math_ldbl_opt.h>
+#undef __llround
+#undef llround
+
+long int
+__lround (double x)
+{
+ double adj;
+
+ adj = 0x1.fffffffffffffp-2; /* nextafter (0.5, 0.0) */
+ adj = copysign (adj, x);
+ return x + adj;
+}
+
+strong_alias (__lround, __llround)
+weak_alias (__lround, lround)
+weak_alias (__llround, llround)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__lround, __lroundl)
+strong_alias (__lround, __llroundl)
+weak_alias (__lroundl, lroundl)
+weak_alias (__llroundl, llroundl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __lround, lroundl, GLIBC_2_0);
+compat_symbol (libm, __llround, llroundl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_lroundf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_lroundf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_lroundf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,38 @@
+/* Copyright (C) 2007 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. */
+
+#define __llroundf not___llroundf
+#define llroundf not_llroundf
+#include <math.h>
+#undef __llroundf
+#undef llroundf
+
+
+long int
+__lroundf (float x)
+{
+ float adj;
+
+ adj = 0x1.fffffep-2; /* nextafterf (0.5f, 0.0f) */
+ adj = copysignf (adj, x);
+ return x + adj;
+}
+
+strong_alias (__lroundf, __llroundf)
+weak_alias (__lroundf, lroundf)
+weak_alias (__llroundf, llroundf)
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyint.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyint.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyint.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,48 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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 <math_ldbl_opt.h>
+
+#ifdef _IEEE_FP_INEXACT
+#error "Don't compile with -mieee-with-inexact"
+#endif
+
+double
+__nearbyint (double x)
+{
+ double two52 = copysign (0x1.0p52, x);
+ double r;
+
+ r = x + two52;
+ r = r - two52;
+
+ /* nearbyint(-0.1) == -0, and in general we'll always have the same sign
+ as our input. */
+ return copysign (r, x);
+}
+
+weak_alias (__nearbyint, nearbyint)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__nearbyint, __nearbyintl)
+weak_alias (__nearbyint, nearbyintl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __nearbyint, nearbyintl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyintf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyintf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_nearbyintf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,40 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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>
+
+#ifdef _IEEE_FP_INEXACT
+#error "Don't compile with -mieee-with-inexact"
+#endif
+
+float
+__nearbyintf (float x)
+{
+ float two23 = copysignf (0x1.0p23, x);
+ float r;
+
+ r = x + two23;
+ r = r - two23;
+
+ /* nearbyint(-0.1) == -0, and in general we'll always have the same sign
+ as our input. */
+ return copysign (r, x);
+}
+
+weak_alias (__nearbyintf, nearbyintf)
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_rint.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_rint.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_rint.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 2000, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 2000, 2006, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -24,24 +24,15 @@
double
__rint (double x)
{
- if (isless (fabs (x), 9007199254740992.0)) /* 1 << DBL_MANT_DIG */
- {
- double tmp1, new_x;
- __asm (
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svid %2,%1\n\t"
-#else
- "cvttq/svd %2,%1\n\t"
-#endif
- "cvtqt/d %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1)
- : "f"(x));
+ double two52 = copysign (0x1.0p52, x);
+ double r;
+
+ r = x + two52;
+ r = r - two52;
- /* rint(-0.1) == -0, and in general we'll always have the same
- sign as our input. */
- x = copysign(new_x, x);
- }
- return x;
+ /* rint(-0.1) == -0, and in general we'll always have the same sign
+ as our input. */
+ return copysign (r, x);
}
weak_alias (__rint, rint)
Modified: fsf/trunk/libc/sysdeps/alpha/fpu/s_rintf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_rintf.c (original)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_rintf.c Thu Mar 15 00:01:26 2007
@@ -1,4 +1,4 @@
-/* Copyright (C) 2000 Free Software Foundation, Inc.
+/* Copyright (C) 2000, 2007 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Richard Henderson.
@@ -23,30 +23,15 @@
float
__rintf (float x)
{
- if (isless (fabsf (x), 16777216.0f)) /* 1 << FLT_MANT_DIG */
- {
- /* Note that Alpha S_Floating is stored in registers in a
- restricted T_Floating format, so we don't even need to
- convert back to S_Floating in the end. The initial
- conversion to T_Floating is needed to handle denormals. */
+ float two23 = copysignf (0x1.0p23, x);
+ float r;
- float tmp1, tmp2, new_x;
+ r = x + two23;
+ r = r - two23;
- __asm ("cvtst/s %3,%2\n\t"
-#ifdef _IEEE_FP_INEXACT
- "cvttq/svid %2,%1\n\t"
-#else
- "cvttq/svd %2,%1\n\t"
-#endif
- "cvtqt/d %1,%0\n\t"
- : "=f"(new_x), "=&f"(tmp1), "=&f"(tmp2)
- : "f"(x));
-
- /* rint(-0.1) == -0, and in general we'll always have the same
- sign as our input. */
- x = copysignf(new_x, x);
- }
- return x;
+ /* rint(-0.1) == -0, and in general we'll always have the same sign
+ as our input. */
+ return copysign (r, x);
}
weak_alias (__rintf, rintf)
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_round.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_round.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_round.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,49 @@
+/* Copyright (C) 2007 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. */
+
+#include <math.h>
+#include <math_ldbl_opt.h>
+
+
+double
+__round (double x)
+{
+ const double almost_half = 0x1.fffffffffffffp-2;
+ const double two52 = 0x1.0p52;
+ double tmp, r;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "addt/suic %2, %3, %1\n\tsubt/suic %1, %3, %0"
+#else
+ "addt/suc %2, %3, %1\n\tsubt/suc %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(fabs (x) + almost_half), "f"(two52));
+
+ return copysign (r, x);
+}
+
+weak_alias (__round, round)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__round, __roundl)
+weak_alias (__roundl, roundl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __round, roundl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_roundf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_roundf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_roundf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,44 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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>
+
+
+float
+__roundf (float x)
+{
+ const float almost_half = 0x1.fffffep-2;
+ const float two23 = 0x1.0p23;
+ float r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "adds/suic %2, %3, %1\n\tsubs/suic %1, %3, %0"
+#else
+ "adds/suc %2, %3, %1\n\tsubs/suc %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(fabsf (x) + almost_half), "f"(two23));
+
+ /* round(-0) == -0, and in general we'll always have the same
+ sign as our input. */
+ return copysignf (r, x);
+}
+
+weak_alias (__roundf, roundf)
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_trunc.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_trunc.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_trunc.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,53 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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 <math_ldbl_opt.h>
+
+
+/* Use the chopped rounding mode conversion instructions to implement trunc. */
+
+double
+__trunc (double x)
+{
+ double two52 = copysign (0x1.0p52, x);
+ double r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "addt/suic %2, %3, %1\n\tsubt/suic %1, %3, %0"
+#else
+ "addt/suc %2, %3, %1\n\tsubt/suc %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(x), "f"(two52));
+
+ /* trunc(-0) == -0, and in general we'll always have the same
+ sign as our input. */
+ return copysign (r, x);
+}
+
+weak_alias (__trunc, trunc)
+#ifdef NO_LONG_DOUBLE
+strong_alias (__trunc, __truncl)
+weak_alias (__trunc, truncl)
+#endif
+#if LONG_DOUBLE_COMPAT(libm, GLIBC_2_0)
+compat_symbol (libm, __trunc, truncl, GLIBC_2_0);
+#endif
Added: fsf/trunk/libc/sysdeps/alpha/fpu/s_truncf.c
==============================================================================
--- fsf/trunk/libc/sysdeps/alpha/fpu/s_truncf.c (added)
+++ fsf/trunk/libc/sysdeps/alpha/fpu/s_truncf.c Thu Mar 15 00:01:26 2007
@@ -1,0 +1,45 @@
+/* Copyright (C) 2007 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+ Contributed by Richard Henderson.
+
+ 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>
+
+
+/* Use the chopped rounding mode conversion instructions to implement trunc. */
+
+float
+__truncf (float x)
+{
+ float two23 = copysignf (0x1.0p23, x);
+ float r, tmp;
+
+ __asm (
+#ifdef _IEEE_FP_INEXACT
+ "adds/suic %2, %3, %1\n\tsubs/suic %1, %3, %0"
+#else
+ "adds/suc %2, %3, %1\n\tsubs/suc %1, %3, %0"
+#endif
+ : "=&f"(r), "=&f"(tmp)
+ : "f"(x), "f"(two23));
+
+ /* trunc(-0) == -0, and in general we'll always have the same
+ sign as our input. */
+ return copysignf (r, x);
+}
+
+weak_alias (__truncf, truncf)
Added: fsf/trunk/libc/sysdeps/ieee754/ldbl-128/Makefile
==============================================================================
--- fsf/trunk/libc/sysdeps/ieee754/ldbl-128/Makefile (added)
+++ fsf/trunk/libc/sysdeps/ieee754/ldbl-128/Makefile Thu Mar 15 00:01:26 2007
@@ -1,0 +1,1 @@
+long-double-fcts = yes