diff options
author | Michael Snyder <msnyder@vmware.com> | 2010-05-16 01:27:02 +0000 |
---|---|---|
committer | Michael Snyder <msnyder@vmware.com> | 2010-05-16 01:27:02 +0000 |
commit | ad3bbd48b65047845b258564db3fd2e64e00c7bc (patch) | |
tree | 6fa1e4fcc2207b1528a33e4097c13526e75db941 /gdb/p-typeprint.c | |
parent | 5cc80db34dcbe944fe7b480c9841f309c0cf6e96 (diff) |
2010-05-15 Michael Snyder <msnyder@vmware.com>
* parse.c: White space.
* p-lang.c: White space.
* posix-hdep.c: White space.
* printcmd.c: White space.
* progspace.c: White space.
* prologue-value.c: White space.
* psymtab.c: White space.
* p-typeprint.c: White space.
* p-valprint.c: White space.
Diffstat (limited to 'gdb/p-typeprint.c')
-rw-r--r-- | gdb/p-typeprint.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index 8924a28cc3..fc54e01caf 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -301,6 +301,7 @@ static void pascal_print_func_args (struct type *type, struct ui_file *stream) { int i, len = TYPE_NFIELDS (type); + if (len) { fprintf_filtered (stream, "("); @@ -439,8 +440,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, s_none, s_public, s_private, s_protected } section_type; - QUIT; + QUIT; wrap_here (" "); if (type == NULL) { @@ -764,6 +765,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, case TYPE_CODE_RANGE: { struct type *target = TYPE_TARGET_TYPE (type); + print_type_scalar (target, TYPE_LOW_BOUND (type), stream); fputs_filtered ("..", stream); print_type_scalar (target, TYPE_HIGH_BOUND (type), stream); |