From 868a0084c9d3a15565869fa378d42e02319a478b Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Wed, 11 Feb 2009 22:30:04 +0000 Subject: [PATCH] 2009-02-11 Pierre Muller * dwarf2read.c (read_base_type): Set code to TYPE_CODE_CHAR for DW_ATE_signed_char and DW_ATE_unisgned_char for pascal language. --- gdb/ChangeLog | 6 ++++++ gdb/dwarf2read.c | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 107c3e11766..00eee92d073 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2009-02-11 Pierre Muller + + * 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 Jan Kratochvil diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 925cfd02815..988c4e50766 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; -- 2.30.2