diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 107c3e1176..00eee92d07 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 925cfd0281..988c4e5076 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;