aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJerry Quinn <jlquinn@optonline.net>2003-09-11 05:08:22 +0000
committerJim Wilson <wilson@gcc.gnu.org>2003-09-10 22:08:22 -0700
commit64871887a66662af46478ac19a262ce142959e6c (patch)
tree961170966b14151df4fa875915bddca5829ec66b
parent93dc9a320d88e48edfe4f80b3a123c1a8bd4cc99 (diff)
downloadgcc-64871887a66662af46478ac19a262ce142959e6c.zip
gcc-64871887a66662af46478ac19a262ce142959e6c.tar.gz
gcc-64871887a66662af46478ac19a262ce142959e6c.tar.bz2
real.c: Update URL to VAX floating point docs.
* real.c: Update URL to VAX floating point docs. (decode_vax_d): Extract 8 exponent bits instead of 7. From-SVN: r71294
-rw-r--r--gcc/ChangeLog5
-rw-r--r--gcc/real.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f6e1b35..77c7701 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-10 Jerry Quinn <jlquinn@optonline.net>
+
+ * real.c: Update URL to VAX floating point docs.
+ (decode_vax_d): Extract 8 exponent bits instead of 7.
+
2003-09-10 Ian Lance Taylor <ian@wasabisystems.com>
* combine.c (force_to_mode): Set fuller_mask based only on mask,
diff --git a/gcc/real.c b/gcc/real.c
index d2e780c..08a2ab2 100644
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -3623,7 +3623,7 @@ const struct real_format mips_quad_format =
/* Descriptions of VAX floating point formats can be found beginning at
- http://www.openvms.compaq.com:8000/73final/4515/4515pro_013.html#f_floating_point_format
+ http://h71000.www7.hp.com/doc/73FINAL/4515/4515pro_013.html#f_floating_point_format
The thing to remember is that they're almost IEEE, except for word
order, exponent bias, and the lack of infinities, nans, and denormals.
@@ -3768,7 +3768,7 @@ decode_vax_d (const struct real_format *fmt ATTRIBUTE_UNUSED,
image0 &= 0xffffffff;
image1 &= 0xffffffff;
- exp = (image0 >> 7) & 0x7f;
+ exp = (image0 >> 7) & 0xff;
memset (r, 0, sizeof (*r));