2009-02-11 Pierre Muller <[email protected]>

	* dwarf2read.c (read_base_type): Set code to TYPE_CODE_CHAR
	for DW_ATE_signed_char and DW_ATE_unisgned_char
	for pascal language.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 107c3e117662f303d505e2dd5b86d4b209b52547..00eee92d073a5ae608d56aea64748e963f18731b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-11  Pierre Muller  <[email protected]>
+
+       * 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  <[email protected]>
            Jan Kratochvil  <[email protected]>
 

diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 925cfd028158771a2ebaffa344e10f0abdb0c971..988c4e507665d5fe130d1aa428a0c4378234f453 100644 (file)
--- 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;