49 struct ui_file *stream,
int show,
int level,
68 if ((varstring != NULL && *varstring !=
'\0')
85 demangled_args = varstring ? strchr (varstring,
'(') != NULL : 0;
160 if (is_constructor || is_destructor)
167 if (physname && (*physname != 0))
171 while (isdigit (physname[0]))
177 while (isdigit (physname[len]))
181 i = strtol (physname, &argname, 0);
184 for (j = 0; j < i; ++j)
188 if (physname[0] != 0)
207 int show,
int passed_a_ptr,
243 stream, 0, passed_a_ptr, flags);
300 error (
_(
"type not handled in pascal_type_print_varspec_prefix()"));
315 for (i = 0; i <
len; i++)
329 ,stream, -1, 0, flags);
343 int show,
int passed_a_ptr,
372 stream, 0, 0, flags);
376 passed_a_ptr, 0, flags);
383 stream, 0, 1, 0, flags);
395 stream, 0, 0, flags);
399 passed_a_ptr, 0, flags);
422 error (
_(
"type not handled in pascal_type_print_varspec_suffix()"));
452 s_none, s_public, s_private, s_protected
560 section_type = s_none;
581 if (section_type != s_protected)
583 section_type = s_protected;
590 if (section_type != s_private)
592 section_type = s_private;
598 if (section_type != s_public)
600 section_type = s_public;
611 stream, show - 1, level + 4, flags);
628 if (len && section_type != s_none)
633 for (i = 0; i <
len; i++)
642 for (j = 0; j < len2; j++)
652 if (section_type != s_protected)
654 section_type = s_protected;
661 if (section_type != s_private)
663 section_type = s_private;
669 if (section_type != s_public)
671 section_type = s_public;
691 else if (is_destructor)
751 for (i = 0; i <
len; i++)
797 show - 1, level, flags);
#define TYPE_ERROR_NAME(type)
#define TYPE_FIELD_PRIVATE(thistype, n)
#define SYMBOL_PRINT_NAME(symbol)
#define TYPE_FIELD_NAME(thistype, n)
#define TYPE_N_BASECLASSES(thistype)
#define TYPE_LOW_BOUND(range_type)
#define TYPE_NFN_FIELDS(thistype)
static void pascal_type_print_varspec_suffix(struct type *, struct ui_file *, int, int, int, const struct type_print_options *)
int fputc_filtered(int c, struct ui_file *stream)
#define TYPE_NAME(thistype)
#define TYPE_HIGH_BOUND(range_type)
char * plongest(LONGEST l)
#define BASETYPE_VIA_VIRTUAL(thistype, index)
void type_print(struct type *type, const char *varstring, struct ui_file *stream, int show)
#define TYPE_FN_FIELD_STATIC_P(thisfn, n)
#define TYPE_FIELD(thistype, n)
#define TYPE_FIELD_ENUMVAL(thistype, n)
#define TYPE_FIELD_TYPE(thistype, n)
void pascal_type_print_base(struct type *type, struct ui_file *stream, int show, int level, const struct type_print_options *flags)
mach_port_t kern_return_t mach_port_t msgports mach_port_t kern_return_t pid_t pid mach_port_t kern_return_t mach_port_t task mach_port_t kern_return_t int flags
int is_cplus_marker(int c)
#define TYPE_FN_FIELD_PHYSNAME(thisfn, n)
#define TYPE_FN_FIELD_VIRTUAL_P(thisfn, n)
#define TYPE_FN_FIELD_PRIVATE(thisfn, n)
int field_is_static(struct field *f)
void fprintf_filtered(struct ui_file *stream, const char *format,...)
void pascal_print_type(struct type *type, const char *varstring, struct ui_file *stream, int show, int level, const struct type_print_options *flags)
void fputs_filtered(const char *linebuffer, struct ui_file *stream)
static int startswith(const char *string, const char *pattern)
void print_type_scalar(struct type *type, LONGEST val, struct ui_file *stream)
static struct symbol * new_symbol(struct die_info *, struct type *, struct dwarf2_cu *)
#define TYPE_BASECLASS(thistype, index)
void wrap_here(char *indent)
#define TYPE_FIELD_PACKED(thistype, n)
#define TYPE_ARRAY_UPPER_BOUND_IS_UNDEFINED(arraytype)
#define TYPE_FIELD_BITSIZE(thistype, n)
void pascal_type_print_method_args(const char *physname, const char *methodname, struct ui_file *stream)
#define TYPE_FIELD_PROTECTED(thistype, n)
void fprintfi_filtered(int spaces, struct ui_file *stream, const char *format,...)
void print_spaces_filtered(int n, struct ui_file *stream)
#define TYPE_FN_FIELD_TYPE(thisfn, n)
void pascal_print_typedef(struct type *type, struct symbol *new_symbol, struct ui_file *stream)
#define TYPE_TARGET_TYPE(thistype)
#define TYPE_FN_FIELD_PROTECTED(thisfn, n)
#define TYPE_CODE(thistype)
#define TYPE_INDEX_TYPE(type)
#define HAVE_CPLUS_STRUCT(type)
#define TYPE_NFIELDS(thistype)
#define CHECK_TYPEDEF(TYPE)
#define TYPE_TAG_NAME(type)
#define BASETYPE_VIA_PUBLIC(thistype, index)
#define TYPE_ARRAY_LOWER_BOUND_VALUE(arraytype)
#define TYPE_FN_FIELDLIST_NAME(thistype, n)
const char * type_name_no_tag(const struct type *type)
#define TYPE_LENGTH(thistype)
#define TYPE_FN_FIELDLIST_LENGTH(thistype, n)
void pascal_type_print_varspec_prefix(struct type *type, struct ui_file *stream, int show, int passed_a_ptr, const struct type_print_options *flags)
#define TYPE_ARRAY_UPPER_BOUND_VALUE(arraytype)
static void pascal_type_print_derivation_info(struct ui_file *, struct type *)
static void pascal_print_func_args(struct type *type, struct ui_file *stream, const struct type_print_options *flags)
#define TYPE_SELF_TYPE(thistype)
void error(const char *fmt,...)
#define TYPE_FN_FIELDLIST1(thistype, n)
const ULONGEST const LONGEST len