diff options
| author | Pedro Alves <pedro@palves.net> | 2021-07-15 10:47:56 +0100 |
|---|---|---|
| committer | Pedro Alves <pedro@palves.net> | 2021-07-15 15:10:59 +0100 |
| commit | 50991aaf22b03a9925ae37155f16bc8257f95242 (patch) | |
| tree | db0d641ebab1211d0f79c5dc00062c0708ad5b60 /gdb/ada-lang.c | |
| parent | 67ea24cb99efcd50d8acb6ce3e3ffbd8c97f0829 (diff) | |
| download | binutils-users/palves/value_string.zip binutils-users/palves/value_string.tar.gz binutils-users/palves/value_string.tar.bz2 | |
all languagesusers/palves/value_string
Change-Id: I79ef914087dbf85e1cbc19263843a6034383afe7
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index b098991..82319e4 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -12900,6 +12900,16 @@ public: return language_defn::read_var_value (var, var_block, frame); } + struct value *value_string (struct gdbarch *gdbarch, + const char *ptr, ssize_t len) const override + { + struct type *type = language_string_char_type (this, gdbarch); + value *val = ::value_string (ptr, len, type); + /* See ada_string_operation::evaluate. */ + value_type (val)->set_code (TYPE_CODE_ARRAY); + return val; + } + /* See language.h. */ void language_arch_info (struct gdbarch *gdbarch, struct language_arch_info *lai) const override |