From fe8e67fdbb13938cd4c8004dd024167d9fff3285 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Mon, 12 Feb 2007 15:19:31 +0000 Subject: [PATCH] * Fix PR 2223. Recognize Pascal language marker in dwarf readers --- gdb/ChangeLog | 7 +++++++ gdb/dwarf2read.c | 4 +++- gdb/dwarfread.c | 4 +++- 3 files changed, 13 insertions(+), 2 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index fcbc6729a7a..037c06c7a0e 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2007-02-12 Pierre Muller + + 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 * win32-nat.c (win32_wait): Reset terminal pgrp to GDB. diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 3c61f9a0e84..4d629264007 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 6171b1a1c68..b7000e563d6 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; -- 2.30.2