diff options
| author | Pierre Muller <muller@sourceware.org> | 2007-02-12 15:19:31 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2007-02-12 15:19:31 +0000 |
| commit | fe8e67fdbb13938cd4c8004dd024167d9fff3285 (patch) | |
| tree | c0629bdbabc012c183498b0038d64703eac3a919 /gdb | |
| parent | c44537cf1694643086cb5a9c376a38e18816fc92 (diff) | |
| download | gdb-fe8e67fdbb13938cd4c8004dd024167d9fff3285.zip gdb-fe8e67fdbb13938cd4c8004dd024167d9fff3285.tar.gz gdb-fe8e67fdbb13938cd4c8004dd024167d9fff3285.tar.bz2 | |
* Fix PR 2223. Recognize Pascal language marker in dwarf readers
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/dwarf2read.c | 4 | ||||
| -rw-r--r-- | gdb/dwarfread.c | 4 |
3 files changed, 13 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index fcbc672..037c06c 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2007-02-12 Pierre Muller <muller@ics.u-strasbg.fr> + + Fix PR pascal/2223. + * dwarfread.c (set_cu_language): Recognize DW_LANG_Pascal83 as + Pascal language marker. + * dwarf2read.c (set_cu_language): Likewise. + 2007-02-12 Corinna Vinschen <vinschen@redhat.com> * win32-nat.c (win32_wait): Reset terminal pgrp to GDB. diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 3c61f9a..4d62926 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -6325,9 +6325,11 @@ set_cu_language (unsigned int lang, struct dwarf2_cu *cu) case DW_LANG_Modula2: cu->language = language_m2; break; + case DW_LANG_Pascal83: + cu->language = language_pascal; + break; case DW_LANG_Cobol74: case DW_LANG_Cobol85: - case DW_LANG_Pascal83: default: cu->language = language_minimal; break; diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c index 6171b1a..b7000e5 100644 --- a/gdb/dwarfread.c +++ b/gdb/dwarfread.c @@ -616,10 +616,12 @@ set_cu_language (struct dieinfo *dip) case LANG_FORTRAN90: cu_language = language_fortran; break; + case LANG_PASCAL83: + cu_language = language_pascal; + break; case LANG_ADA83: case LANG_COBOL74: case LANG_COBOL85: - case LANG_PASCAL83: /* We don't know anything special about these yet. */ cu_language = language_unknown; break; |