diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2007-12-24 06:29:27 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2007-12-24 06:29:27 +0000 |
| commit | 7b9f71f2886b62bb3c0e2b5df7cbcf1ff70d77b5 (patch) | |
| tree | 9d652fc333bd358f666cbf265c5521d4cca2759f /gdb/dwarf2read.c | |
| parent | 5209009a1b5cd9e55c6289e4f958f771548e5dc8 (diff) | |
| download | gdb-7b9f71f2886b62bb3c0e2b5df7cbcf1ff70d77b5.zip gdb-7b9f71f2886b62bb3c0e2b5df7cbcf1ff70d77b5.tar.gz gdb-7b9f71f2886b62bb3c0e2b5df7cbcf1ff70d77b5.tar.bz2 | |
* dwarf2read.c (read_base_type): Set code to TYPE_CODE_CHAR
for char and unsigned char types of Ada compilation units.
* ada-lang.c (ada_is_character_type): Always return true if
the type code is TYPE_CODE_CHAR.
Diffstat (limited to 'gdb/dwarf2read.c')
| -rw-r--r-- | gdb/dwarf2read.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 48f02dd..e47ef93 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -5007,11 +5007,11 @@ 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_m2) + if (cu->language == language_ada && cu->language == language_m2) code = TYPE_CODE_CHAR; break; case DW_ATE_unsigned_char: - if (cu->language == language_m2) + if (cu->language == language_ada && cu->language == language_m2) code = TYPE_CODE_CHAR; type_flags |= TYPE_FLAG_UNSIGNED; break; |