summary refs log tree commit diff
path: root/sysdeps/libm-ieee754/s_truncl.c
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/libm-ieee754/s_truncl.c')
-rw-r--r--sysdeps/libm-ieee754/s_truncl.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/sysdeps/libm-ieee754/s_truncl.c b/sysdeps/libm-ieee754/s_truncl.c
index 206eab2f22..59c3b9c173 100644
--- a/sysdeps/libm-ieee754/s_truncl.c
+++ b/sysdeps/libm-ieee754/s_truncl.c
@@ -1,5 +1,5 @@
 /* Truncate argument to nearest integral value not larger than the argument.
-   Copyright (C) 1997 Free Software Foundation, Inc.
+   Copyright (C) 1997, 1999 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
 
@@ -32,7 +32,7 @@ __truncl (long double x)
 
   GET_LDOUBLE_WORDS (se, i0, i1, x);
   sx = se & 0x8000;
-  j0 = se & 0x7fff;
+  j0 = (se & 0x7fff) - 0x3fff;
   if (j0 < 31)
     {
       if (j0 < 0)