From: Ulrich Drepper <drepper@redhat.com>
Date: Fri, 11 Jun 1999 21:30:13 +0000 (+0000)
Subject: Update.
X-Git-Tag: upstream/2.30~27162
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=58d33bb594d64a7f48b84c19fb79f4cea0de91cb;p=external%2Fglibc.git

Update.

1999-06-10  Jakub Jelinek   <jj@ultra.linux.cz>

	* sysdeps/libm-ieee754/s_truncl.c: Subtract exponent
	bias from the raw exponent.
---

diff --git a/ChangeLog b/ChangeLog
index 6493540..ce50cdd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-06-10  Jakub Jelinek   <jj@ultra.linux.cz>
+
+	* sysdeps/libm-ieee754/s_truncl.c: Subtract exponent
+	bias from the raw exponent.
+
 1999-06-11  Ulrich Drepper  <drepper@cygnus.com>
 
 	* inet/arpa/tftp.h: Move attribute declaration in right position.
diff --git a/sysdeps/libm-ieee754/s_truncl.c b/sysdeps/libm-ieee754/s_truncl.c
index 206eab2..59c3b9c 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)