1 /* Support for printing Chill types for GDB, the GNU debugger.
2 Copyright 1986, 1988, 1989, 1991 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
22 #include "bfd.h" /* Binary File Description */
25 #include "expression.h"
39 chill_type_print_base PARAMS ((struct type *, FILE *, int, int));
42 chill_print_type (type, varstring, stream, show, level)
49 if (varstring != NULL && *varstring != '\0')
51 fputs_filtered (varstring, stream);
52 fputs_filtered (" ", stream);
54 chill_type_print_base (type, stream, show, level);
57 /* Print the name of the type (or the ultimate pointer target,
58 function value or array element).
60 SHOW nonzero means don't print this type as just its name;
61 show its real definition even if it has a name.
62 SHOW zero means print just typename or tag if there is one
63 SHOW negative means abbreviate structure elements.
64 SHOW is decremented for printing of structure elements.
66 LEVEL is the depth to indent by.
67 We increase it for some recursive calls. */
70 chill_type_print_base (type, stream, show, level)
79 struct type *index_type;
80 struct type *range_type;
89 fputs_filtered ("<type unknown>", stream);
93 /* When SHOW is zero or less, and there is a valid type name, then always
94 just print the type name directly from the type. */
96 if ((show <= 0) && (TYPE_NAME (type) != NULL))
98 fputs_filtered (TYPE_NAME (type), stream);
102 switch (TYPE_CODE (type))
105 if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID)
107 fprintf_filtered (stream, "PTR");
110 fprintf_filtered (stream, "REF ");
111 chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
114 case TYPE_CODE_ARRAY:
115 range_type = TYPE_FIELD_TYPE (type, 0);
116 index_type = TYPE_TARGET_TYPE (range_type);
117 low_bound = TYPE_FIELD_BITPOS (range_type, 0);
118 high_bound = TYPE_FIELD_BITPOS (range_type, 1);
119 fputs_filtered ("ARRAY (", stream);
120 print_type_scalar (index_type, low_bound, stream);
121 fputs_filtered (":", stream);
122 print_type_scalar (index_type, high_bound, stream);
123 fputs_filtered (") ", stream);
124 chill_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level);
127 case TYPE_CODE_STRING:
128 range_type = TYPE_FIELD_TYPE (type, 0);
129 index_type = TYPE_TARGET_TYPE (range_type);
130 high_bound = TYPE_FIELD_BITPOS (range_type, 1);
131 fputs_filtered ("CHAR (", stream);
132 print_type_scalar (index_type, high_bound + 1, stream);
133 fputs_filtered (")", stream);
136 case TYPE_CODE_MEMBER:
137 fprintf_filtered (stream, "MEMBER ");
138 chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
141 fprintf_filtered (stream, "/*LOC*/ ");
142 chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
145 fprintf_filtered (stream, "PROC (?)");
146 chill_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
149 case TYPE_CODE_STRUCT:
150 fprintf_filtered (stream, "STRUCT ");
151 if ((name = type_name_no_tag (type)) != NULL)
153 fputs_filtered (name, stream);
154 fputs_filtered (" ", stream);
159 fprintf_filtered (stream, "(...)");
163 check_stub_type (type);
164 fprintf_filtered (stream, "(\n");
165 if ((TYPE_NFIELDS (type) == 0) && (TYPE_NFN_FIELDS (type) == 0))
167 if (TYPE_FLAGS (type) & TYPE_FLAG_STUB)
169 fprintfi_filtered (level + 4, stream, "<incomplete type>\n");
173 fprintfi_filtered (level + 4, stream, "<no data fields>\n");
178 len = TYPE_NFIELDS (type);
179 for (i = TYPE_N_BASECLASSES (type); i < len; i++)
182 print_spaces_filtered (level + 4, stream);
183 chill_print_type (TYPE_FIELD_TYPE (type, i),
184 TYPE_FIELD_NAME (type, i),
185 stream, show - 1, level + 4);
188 fputs_filtered (",", stream);
190 fputs_filtered ("\n", stream);
193 fprintfi_filtered (level, stream, ")");
198 case TYPE_CODE_UNDEF:
199 case TYPE_CODE_ERROR:
200 case TYPE_CODE_RANGE:
202 case TYPE_CODE_UNION:
203 case TYPE_CODE_METHOD:
204 error ("missing language support in chill_type_print_base");
209 /* Handle types not explicitly handled by the other cases,
210 such as fundamental types. For these, just print whatever
211 the type name is, as recorded in the type itself. If there
212 is no type name, then complain. */
214 if (TYPE_NAME (type) != NULL)
216 fputs_filtered (TYPE_NAME (type), stream);
220 error ("Unrecognized type code (%d) in symbol table.",