* dwarf2out.c (add_const_value_attribute): If long < HOST_WIDE_INT,

        fall back to add_AT_long_long for large CONST_INT.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 8992aa8..c9753ca 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,10 @@
 2001-10-11  Richard Henderson  <rth@redhat.com>
 
+       * dwarf2out.c (add_const_value_attribute): If long < HOST_WIDE_INT,
+       fall back to add_AT_long_long for large CONST_INT.
+
+2001-10-11  Richard Henderson  <rth@redhat.com>
+
        * config/i386/i386.md (setcc splitters): Add four splitters to
        simplify compound compares that simplify_comparison can't handle.
 

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 275e5b4..01613d9 100644 (file)
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -8329,18 +8329,19 @@ add_const_value_attribute (die, rtl)
        HOST_WIDE_INT val = INTVAL (rtl);
        
        /* ??? We really should be using HOST_WIDE_INT throughout.  */
-       if (val < 0)
+       if (val < 0 && (long) val == val)
          {
            if ((long) val != val)
              abort ();
            add_AT_int (die, DW_AT_const_value, (long) val);
          }
+       else if ((unsigned long) val == (unsigned HOST_WIDE_INT) val)
+         add_AT_unsigned (die, DW_AT_const_value, (unsigned long) val);
+       else if (2*HOST_BITS_PER_LONG == HOST_BITS_PER_WIDE_INT)
+         add_AT_long_long (die, DW_AT_const_value,
+                           val >> HOST_BITS_PER_LONG, val);
        else
-         {
-           if ((unsigned long) val != (unsigned HOST_WIDE_INT) val)
-             abort ();
-           add_AT_unsigned (die, DW_AT_const_value, (unsigned long) val);
-         }
+         abort ();
       }
       break;