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 563f619425b..a3c2ef897d6 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -238,7 +238,7 @@ pascal_language::type_print_varspec_prefix (struct type *type, gdb_printf (stream, "("); gdb_printf (stream, "array "); if (type->target_type ()->length () > 0 - && type->bounds ()->high.kind () != PROP_UNDEFINED) + && type->bounds ()->high.is_constant ()) gdb_printf (stream, "[%s..%s] ", plongest (type->bounds ()->low.const_val ()), plongest (type->bounds ()->high.const_val ())); |