- }
- fprintfi_filtered (level, stream, "End Type ");
- fputs_filtered (TYPE_TAG_NAME (type), stream);
+ for (index = 0; index < type->num_fields (); index++)
+ {
+ f_type_print_base (type->field (index).type (), stream,
+ show - 1, level + 4);
+ fputs_filtered (" :: ", stream);
+ fputs_styled (TYPE_FIELD_NAME (type, index),
+ variable_name_style.style (), stream);
+ f_type_print_varspec_suffix (type->field (index).type (),
+ stream, show - 1, 0, 0, 0, false);
+ fputs_filtered ("\n", stream);
+ }
+ fprintfi_filtered (level, stream, "End Type ");
+ fputs_filtered (type->name (), stream);
+ }