From 26902ae0728c9eb202fb719450e1387aace3c0b1 Mon Sep 17 00:00:00 2001 From: Jim Wilson Date: Tue, 6 Jul 1993 15:41:43 -0700 Subject: [PATCH] (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 --- gcc/config/sparc/sparc.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c index b3d69c85468..a93a63b01b9 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! */ -- 2.30.2