diff options
| author | Michael Snyder <msnyder@specifix.com> | 2010-05-18 19:23:34 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@specifix.com> | 2010-05-18 19:23:34 +0000 |
| commit | 5bcd90e16d5c52307d57e9907ab53bf078f831ae (patch) | |
| tree | 687c69fd22138904741868b29a1d53cbc3b44dbc /gdb/ada-typeprint.c | |
| parent | 76a4ebb4508ba5a3789f4d35c2591fcb5e953ce8 (diff) | |
| download | gdb-5bcd90e16d5c52307d57e9907ab53bf078f831ae.tar.gz | |
2010-05-18 Michael Snyder <msnyder@vmware.com>
* ada-lang.c: White space.
* ada-typeprint.c: White space.
* ada-valprint.c: White space.
* addrmap.c: White space.
* auxv.c: White space.
* ax-gdb.c: White space.
Diffstat (limited to 'gdb/ada-typeprint.c')
| -rw-r--r-- | gdb/ada-typeprint.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c index b69deabe454..7e8a649fa20 100644 --- a/gdb/ada-typeprint.c +++ b/gdb/ada-typeprint.c @@ -151,6 +151,7 @@ print_range_bound (struct type *type, char *bounds, int *n, struct ui_file *stream) { LONGEST B; + if (ada_scan_number (bounds, *n, &B, n)) { /* STABS decodes all range types which bounds are 0 .. -1 as @@ -363,6 +364,7 @@ print_array_type (struct type *type, struct ui_file *stream, int show, else { int k; + n_indices = TYPE_NFIELDS (range_desc_type); for (k = 0, arr_type = type; k < n_indices; @@ -380,6 +382,7 @@ print_array_type (struct type *type, struct ui_file *stream, int show, else { int i, i0; + for (i = i0 = ada_array_arity (type); i > 0; i -= 1) fprintf_filtered (stream, "%s<>", i == i0 ? "" : ", "); } @@ -435,6 +438,7 @@ print_choices (struct type *type, int field_num, struct ui_file *stream, case 'S': { LONGEST W; + if (!ada_scan_number (name, p + 1, &W, &p)) goto Huh; ada_print_scalar (val_type, W, stream); @@ -443,6 +447,7 @@ print_choices (struct type *type, int field_num, struct ui_file *stream, case 'R': { LONGEST L, U; + if (!ada_scan_number (name, p + 1, &L, &p) || name[p] != 'T' || !ada_scan_number (name, p + 1, &U, &p)) goto Huh; @@ -781,6 +786,7 @@ ada_print_type (struct type *type0, char *varstring, struct ui_file *stream, else { char *name = ada_type_name (type); + if (!ada_is_range_type_name (name)) fprintf_filtered (stream, _("<%d-byte integer>"), TYPE_LENGTH (type)); |