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.

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>
 

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;