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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 45ff600c8f4fce52f78816281dbffce587f2d049..6114ab1e1c76a4927e62ec0b9ac55b00e7a80519 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/dbxout.c b/gcc/dbxout.c
index d057c581dc85f77d3eed7a10d5aaf6dc7b35c5b6..97d6151ac00e57876339b3bf9e1ef87b52cb9403 100644 (file)
--- a/gcc/dbxout.c
+++ b/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.  */