diff options
| author | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1992-10-09 22:10:02 +0000 |
|---|---|---|
| committer | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1992-10-09 22:10:02 +0000 |
| commit | 5e76b7bd35c11aab80713e9bcc48ca7a4f553396 (patch) | |
| tree | 2170f9226c63c0f3ce5ec2bbbef340a57c346287 /gcc/config/sparc/sparc.c | |
| parent | 9091d7fcb997f0456b2b395fc259ecee5f05a6d0 (diff) | |
| download | gcc-5e76b7bd35c11aab80713e9bcc48ca7a4f553396.tar.gz | |
(sparc_type_code): Return reasonable result for COMPLEX_TYPE.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@2388 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/config/sparc/sparc.c')
| -rw-r--r-- | gcc/config/sparc/sparc.c | 5 |
1 files changed, 5 insertions, 0 deletions
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. */ |