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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f6e1b35..77c7701 100644 (file)
--- 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 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -3623,7 +3623,7 @@ const struct real_format mips_quad_format =
 \f
 /* 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));