Stephen L Moshier <moshier@mediaone.net>

        * real.h (MAX_LONG_DOUBLE_TYPE_SIZE): Comment.
        * real.c (toe64): Revert previous change.

From-SVN: r33097

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 595d54aa99d7034583079dbad940f0e496322d69..3888e7801553bef6fc2ccf593bde51e44f10ed8d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-12  Stephen L Moshier  <moshier@mediaone.net>
+
+       * real.h (MAX_LONG_DOUBLE_TYPE_SIZE): Comment.
+       * real.c (toe64): Revert previous change.
+
 2000-04-12  Jakub Jelinek  <jakub@redhat.com>
 
        * objc/objc-act.c: Include ggc.h.

diff --git a/gcc/real.c b/gcc/real.c
index f26635b89de552298e45a1cbd7bb2b215909f4ee..b8a59b391b0eea6a30348fd3924cde8ffd05291f 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -3646,9 +3646,13 @@ toe64 (a, b)
   else
     {
       q = b + 4;                       /* point to output exponent */
-#if MAX_LONG_DOUBLE_TYPE_SIZE == 96
-      /* Clear the last two bytes of 12-byte Intel format */
-      *(q+1) = 0;
+      /* The purpose of this conditional is to avoid scribbling beyond
+         the end of a long double, in case the type is only 80 bits wide.  */
+      if (LONG_DOUBLE_TYPE_SIZE == 96)
+       {
+         /* Clear the last two bytes of 12-byte Intel format */
+         *(q+1) = 0;
+       }
 #endif
     }
 #endif

diff --git a/gcc/real.h b/gcc/real.h
index 3aba2e245d4048f53d5a24fd0c962f33c8b66dd1..a85ca74112072299d1cf53ba5e84fb52b1c8f28e 100644 (file)
--- a/gcc/real.h
+++ b/gcc/real.h
@@ -68,6 +68,11 @@ Boston, MA 02111-1307, USA.  */
 #ifndef LONG_DOUBLE_TYPE_SIZE
 #define LONG_DOUBLE_TYPE_SIZE 64
 #endif
+/* MAX_LONG_DOUBLE_TYPE_SIZE is a constant tested by #if.
+   LONG_DOUBLE_TYPE_SIZE can vary at compiler run time.
+   So long as macros like REAL_VALUE_TO_TARGET_LONG_DOUBLE cannot
+   vary too, however, then XFmode and TFmode long double
+   cannot both be supported at the same time.  */
 #ifndef MAX_LONG_DOUBLE_TYPE_SIZE
 #define MAX_LONG_DOUBLE_TYPE_SIZE LONG_DOUBLE_TYPE_SIZE
 #endif