(location_or_const_value_attribute, case CONCAT): Add.

From-SVN: r13313

1 files changed, 9 insertions, 0 deletions

diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c
index 1d293945889..c4e4ccc4d63 100644
--- a/gcc/dwarfout.c
+++ b/gcc/dwarfout.c
@@ -2370,6 +2370,15 @@ location_or_const_value_attribute (decl)
       location_attribute (rtl);
       break;
 
+    case CONCAT:
+      /* ??? CONCAT is used for complex variables, which may have the real
+	 part stored in one place and the imag part stored somewhere else.
+	 DWARF1 has no way to describe a variable that lives in two different
+	 places, so we just describe where the first part lives, and hope that
+	 the second part is stored after it.  */
+      location_attribute (XEXP (rtl, 0));
+      break;
+
     default:
       abort ();		/* Should never happen.  */
     }