diff options
| author | Jim Wilson <wilson@gcc.gnu.org> | 1993-07-06 15:41:43 -0700 |
|---|---|---|
| committer | Jim Wilson <wilson@gcc.gnu.org> | 1993-07-06 15:41:43 -0700 |
| commit | 26902ae0728c9eb202fb719450e1387aace3c0b1 (patch) | |
| tree | 2ce97719b5e4bf355ad91458288c1471d1282da2 /gcc/config/sparc | |
| parent | 6f65afb0df496cfda654bbbc02fd2932f460d19b (diff) | |
| download | gcc-26902ae0728c9eb202fb719450e1387aace3c0b1.zip gcc-26902ae0728c9eb202fb719450e1387aace3c0b1.tar.gz gcc-26902ae0728c9eb202fb719450e1387aace3c0b1.tar.bz2 | |
(sparc_type_code): Recognize SET_TYPE.
(sparc_type_code): Recognize SET_TYPE. For special
Fortran/Pascal types, just return qualifiers instead of aborting.
From-SVN: r4870
Diffstat (limited to 'gcc/config/sparc')
| -rw-r--r-- | gcc/config/sparc/sparc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c index b3d69c8..a93a63b 100644 --- a/gcc/config/sparc/sparc.c +++ b/gcc/config/sparc/sparc.c @@ -2993,9 +2993,10 @@ sparc_type_code (type) 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. */ - case STRING_TYPE: /* GNU Fortran STRING type. */ + case STRING_TYPE: /* GNU Fortran STRING type. */ + case SET_TYPE: /* GNU Pascal SET type. */ case LANG_TYPE: /* ? */ - abort (); + return qualifiers; default: abort (); /* Not a type! */ |