diff options
Diffstat (limited to 'gdb/p-typeprint.c')
| -rw-r--r-- | gdb/p-typeprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index f83c883..b6c6d59 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -237,7 +237,7 @@ pascal_language::type_print_varspec_prefix (struct type *type, if (passed_a_ptr) gdb_printf (stream, "("); gdb_printf (stream, "array "); - if (TYPE_LENGTH (type->target_type ()) > 0 + if (type->target_type ()->length () > 0 && type->bounds ()->high.kind () != PROP_UNDEFINED) gdb_printf (stream, "[%s..%s] ", plongest (type->bounds ()->low.const_val ()), |