dbxout.c (dbxout_symbol_location): For CONCAT, skip types not COMPLEX_TYPE.

2001-05-17  Jeffrey Oldham  <oldham@codesourcery.com>

	* dbxout.c (dbxout_symbol_location): For CONCAT, skip types not
	COMPLEX_TYPE.

From-SVN: r42231

gcc/ChangeLog

+2001-05-17  Jeffrey Oldham  <oldham@codesourcery.com>
+
+	* dbxout.c (dbxout_symbol_location): For CONCAT, skip types not
+	COMPLEX_TYPE.
+
 Thu May 17 19:42:39 2001  Mark Kettenis  <kettenis@wins.uva.nl>
 
 	* dwarf2out.c (modified_type_die): Equate qualified type to die.

gcc/dbxout.c

@@ -2148,7 +2148,15 @@ dbxout_symbol_location (decl, type, suffix, home)
     }
   else if (GET_CODE (home) == CONCAT)
     {
-      tree subtype = TREE_TYPE (type);
+      tree subtype;
+
+      /* If TYPE is not a COMPLEX_TYPE (it might be a RECORD_TYPE,
+	 for example), then there is no easy way to figure out
+	 what SUBTYPE should be.  So, we give up.  */
+      if (TREE_CODE (type) != COMPLEX_TYPE)
+	return 0;
+
+      subtype = TREE_TYPE (type);
 
       /* If the variable's storage is in two parts,
 	 output each as a separate stab with a modified name.  */