From: Richard Stallman <rms@gnu.org>
Date: Thu, 4 Mar 1993 18:47:42 +0000 (+0000)
Subject: (dbxout_type): Handle complex integer types.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=47cc012b655f52985c4d8b52d1ba7732606e57c8;p=gcc.git

(dbxout_type): Handle complex integer types.

From-SVN: r3634
---

diff --git a/gcc/dbxout.c b/gcc/dbxout.c
index 8a902b82125..506701ad7d3 100644
--- a/gcc/dbxout.c
+++ b/gcc/dbxout.c
@@ -1044,8 +1044,27 @@ dbxout_type (type, full, show_arg_types)
 		   TYPE_SYMTAB_ADDRESS (type),
 		   TREE_INT_CST_LOW (size_in_bytes (TREE_TYPE (type))));
 	  CHARS (15);		/* The number is probably incorrect here.  */
-	} else
-	  abort (); /* What to do with CSImode complex? */
+	}
+      else
+	{
+	  /* Output a complex integer type as a structure,
+	     pending some other way to do it.  */
+	  fprintf (asmfile, "s%d", TREE_INT_CST_LOW (size_in_bytes (type)));
+
+	  fprintf (asmfile, "real:");
+	  CHARS (10);
+	  dbxout_type (TREE_TYPE (type), 0, 0);
+	  fprintf (asmfile, ",%d,%d;",
+		   0, TYPE_PRECISION (TREE_TYPE (type)));
+	  CHARS (8);
+	  fprintf (asmfile, "imag:");
+	  CHARS (5);
+	  dbxout_type (TREE_TYPE (type), 0, 0);
+	  fprintf (asmfile, ",%d,%d;;",
+		   TYPE_PRECISION (TREE_TYPE (type)),
+		   TYPE_PRECISION (TREE_TYPE (type)));
+	  CHARS (9);
+	}
       break;
 
     case SET_TYPE: