From: Jim Wilson <wilson@gcc.gnu.org>
Date: Fri, 9 Oct 1992 22:10:02 +0000 (-0700)
Subject: (sparc_type_code): Return reasonable result for COMPLEX_TYPE.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c82aa69aa38c58458abb3b08785bc08e879aec9f;p=gcc.git

(sparc_type_code): Return reasonable result for COMPLEX_TYPE.

From-SVN: r2388
---

diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c
index fe451f91321..2a6bcd061b2 100644
--- a/gcc/config/sparc/sparc.c
+++ b/gcc/config/sparc/sparc.c
@@ -3020,6 +3020,11 @@ sparc_type_code (type)
 	  abort ();
   
 	case COMPLEX_TYPE:	/* GNU Fortran COMPLEX type.  */
+	  /* ??? We need to dinguish between double and float complex types,
+	     but I don't know how yet because I can't reach this code from
+	     existing front-ends.  */
+	  return (qualifiers | 7);	/* Who knows? */
+
 	case CHAR_TYPE:		/* GNU Pascal CHAR type.  Not used in C.  */
 	case BOOLEAN_TYPE:	/* GNU Fortran BOOLEAN type.  */
 	case FILE_TYPE:		/* GNU Pascal FILE type.  */