* dwarf2out.c (loc_descriptor_from_tree, case CONSTRUCTOR): New case.

From-SVN: r70013

gcc/ChangeLog

+2003-07-31  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* dwarf2out.c (loc_descriptor_from_tree, case CONSTRUCTOR): New case.
+
 2003-07-31  Per Bothner  <pbothner@apple.com>
 
 	* opts.c (in_fnames, num_in_fnames):  Moved here from c-opts.

gcc/dwarf2out.c

@@ -8558,6 +8558,26 @@ loc_descriptor_from_tree (tree loc, int addressp)
 	return 0;
       break;
 
+    case CONSTRUCTOR:
+      {
+	/* If this is already in memory and at a constant address, we can
+	   support it.  */
+	rtx rtl = TREE_CST_RTL (loc);
+
+#ifdef ASM_SIMPLIFY_DWARF_ADDR
+	if (rtl)
+	  rtl = ASM_SIMPLIFY_DWARF_ADDR (rtl);
+#endif
+
+	if (rtl == NULL_RTX ||  GET_CODE (rtl) != MEM
+	    || !CONSTANT_P (XEXP (rtl, 0)))
+	  return 0;
+
+	indirect_p = 1;
+	ret = mem_loc_descriptor (XEXP (rtl, 0), GET_MODE (rtl));
+	break;
+      }
+
     case TRUTH_AND_EXPR:
     case TRUTH_ANDIF_EXPR:
     case BIT_AND_EXPR: