diff options
| author | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:55 +0200 |
|---|---|---|
| committer | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:55 +0200 |
| commit | d4c948427dea866c6afb8d9ec7cf1f05dd1c9623 (patch) | |
| tree | e576be7a3ef4a0feccf9f9f2591eaf63d884752e /gdb/f-exp.y | |
| parent | 04f4c17c7a14ebb6c2212267b2ebc83f1376fe20 (diff) | |
| download | gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.zip gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.tar.gz gdb-d4c948427dea866c6afb8d9ec7cf1f05dd1c9623.tar.bz2 | |
gdb/f-lang: add Integer*1 to Fortran builtin types
Add builtin_integer_s1 of size TARGET_CHAR_BIT to Fortran builtin types.
Diffstat (limited to 'gdb/f-exp.y')
| -rw-r--r-- | gdb/f-exp.y | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index ae5cc4e..d6103a0 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -1051,7 +1051,9 @@ convert_to_kind_type (struct type *basetype, int kind) } else if (basetype == parse_f_type (pstate)->builtin_integer) { - if (kind == 2) + if (kind == 1) + return parse_f_type (pstate)->builtin_integer_s1; + else if (kind == 2) return parse_f_type (pstate)->builtin_integer_s2; else if (kind == 4) return parse_f_type (pstate)->builtin_integer; |