-static void
-pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
- int show, int passed_a_ptr,
- int demangled_args)
+void
+pascal_language::type_print_func_varspec_suffix (struct type *type,
+ struct ui_file *stream,
+ int show, int passed_a_ptr,
+ int demangled_args,
+ const struct type_print_options *flags) const
+{
+ if (type->target_type () == NULL
+ || type->target_type ()->code () != TYPE_CODE_VOID)
+ {
+ gdb_printf (stream, " : ");
+ type_print_varspec_prefix (type->target_type (),
+ stream, 0, 0, flags);
+
+ if (type->target_type () == NULL)
+ type_print_unknown_return_type (stream);
+ else
+ type_print_base (type->target_type (), stream, show, 0,
+ flags);
+
+ type_print_varspec_suffix (type->target_type (), stream, 0,
+ passed_a_ptr, 0, flags);
+ }
+}
+
+/* See p-lang.h. */
+
+void
+pascal_language::type_print_varspec_suffix (struct type *type,
+ struct ui_file *stream,
+ int show, int passed_a_ptr,
+ int demangled_args,
+ const struct type_print_options *flags) const