diff options
| author | Pierre Muller <muller@sourceware.org> | 2009-02-11 22:30:04 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2009-02-11 22:30:04 +0000 |
| commit | 868a0084c9d3a15565869fa378d42e02319a478b (patch) | |
| tree | 69475b59fbcc500bcc60ebcb765366f394cb52a2 /gdb/dwarf2read.c | |
| parent | 42e2132c64c9935a31073fb5460ac5b14430b69b (diff) | |
| download | gdb-868a0084c9d3a15565869fa378d42e02319a478b.zip gdb-868a0084c9d3a15565869fa378d42e02319a478b.tar.gz gdb-868a0084c9d3a15565869fa378d42e02319a478b.tar.bz2 | |
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.
Diffstat (limited to 'gdb/dwarf2read.c')
| -rw-r--r-- | gdb/dwarf2read.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 925cfd0..988c4e5 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; |