OSDN Git Service

* real.c: Update URL to VAX floating point docs.
authorwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 11 Sep 2003 05:08:22 +0000 (05:08 +0000)
committerwilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 11 Sep 2003 05:08:22 +0000 (05:08 +0000)
(decode_vax_d): Extract 8 exponent bits instead of 7.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@71294 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ChangeLog
gcc/real.c

index f6e1b35..77c7701 100644 (file)
@@ -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,
index d2e780c..08a2ab2 100644 (file)
@@ -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));