diff options
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/dwarf2read.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 107c3e1..00eee92 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2009-02-11 Pierre Muller <muller@ics.u-strasbg.fr> + + * dwarf2read.c (read_base_type): Set code to TYPE_CODE_CHAR + for DW_ATE_signed_char and DW_ATE_unisgned_char + for pascal language. + 2009-02-11 Jim Meyering <meyering@redhat.com> Jan Kratochvil <jan.kratochvil@redhat.com> diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 925cfd0..988c4e5 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -5098,11 +5098,13 @@ read_base_type (struct die_info *die, struct dwarf2_cu *cu) type_flags |= TYPE_FLAG_UNSIGNED; break; case DW_ATE_signed_char: - if (cu->language == language_ada || cu->language == language_m2) + if (cu->language == language_ada || cu->language == language_m2 + || cu->language == language_pascal) code = TYPE_CODE_CHAR; break; case DW_ATE_unsigned_char: - if (cu->language == language_ada || cu->language == language_m2) + if (cu->language == language_ada || cu->language == language_m2 + || cu->language == language_pascal) code = TYPE_CODE_CHAR; type_flags |= TYPE_FLAG_UNSIGNED; break; |