diff options
Diffstat (limited to 'gdb/p-lang.c')
| -rw-r--r-- | gdb/p-lang.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 0b85f70..9b9f19b 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -150,6 +150,16 @@ is_pascal_string_type (struct type *type,int *length_pos, return 0; } +/* This is a wrapper around IS_PASCAL_STRING_TYPE that returns true if TYPE + is a string. */ + +static bool +pascal_is_string_type_p (struct type *type) +{ + return is_pascal_string_type (type, nullptr, nullptr, nullptr, + nullptr, nullptr) > 0; +} + static void pascal_one_char (int, struct ui_file *, int *); /* Print the character C on STREAM as part of the contents of a literal @@ -460,5 +470,6 @@ extern const struct language_defn pascal_language_defn = &default_varobj_ops, NULL, NULL, + pascal_is_string_type_p, "{...}" /* la_struct_too_deep_ellipsis */ }; |