projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't write to inferior_ptid in corelow.c
[deliverable/binutils-gdb.git]
/
gdb
/
p-typeprint.c
diff --git
a/gdb/p-typeprint.c
b/gdb/p-typeprint.c
index 70a8308b047e2ef51cc06b808b033cb7310a6254..75c1e25f5faa110fb809e40cb38e8922a3409580 100644
(file)
--- a/
gdb/p-typeprint.c
+++ b/
gdb/p-typeprint.c
@@
-327,7
+327,7
@@
pascal_print_func_args (struct type *type, struct ui_file *stream,
{
fprintf_filtered (stream, "var ");
} */
{
fprintf_filtered (stream, "var ");
} */
- pascal_print_type (
TYPE_FIELD_TYPE (type, i), ""
/* TYPE_FIELD_NAME
+ pascal_print_type (
type->field (i).type (), ""
/* TYPE_FIELD_NAME
seems invalid! */
,stream, -1, 0, flags);
}
seems invalid! */
,stream, -1, 0, flags);
}
@@
-620,7
+620,7
@@
pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
print_spaces_filtered (level + 4, stream);
if (field_is_static (&type->field (i)))
fprintf_filtered (stream, "static ");
print_spaces_filtered (level + 4, stream);
if (field_is_static (&type->field (i)))
fprintf_filtered (stream, "static ");
- pascal_print_type (
TYPE_FIELD_TYPE (type, i
),
+ pascal_print_type (
type->field (i).type (
),
TYPE_FIELD_NAME (type, i),
stream, show - 1, level + 4, flags);
if (!field_is_static (&type->field (i))
TYPE_FIELD_NAME (type, i),
stream, show - 1, level + 4, flags);
if (!field_is_static (&type->field (i))
@@
-805,7
+805,7
@@
pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
case TYPE_CODE_SET:
fputs_filtered ("set of ", stream);
case TYPE_CODE_SET:
fputs_filtered ("set of ", stream);
- pascal_print_type (
TYPE_INDEX_TYPE (type
), "", stream,
+ pascal_print_type (
type->index_type (
), "", stream,
show - 1, level, flags);
break;
show - 1, level, flags);
break;
This page took
0.025526 seconds
and
4
git commands to generate.