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/f-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/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 16ec9e0..869a95d 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -103,6 +103,14 @@ f_language::get_encoding (struct type *type) +struct value * +f_language::value_string (struct gdbarch *gdbarch, + const char *ptr, ssize_t len) const +{ + struct type *type = language_string_char_type (this, gdbarch); + return ::value_string (ptr, len, type); +} + /* A helper function for the "bound" intrinsics that checks that TYPE is an array. LBOUND_P is true for lower bound; this is used for the error message, if any. */ |