* Fix PR 2223. Recognize Pascal language marker in dwarf readers

This commit is contained in:
Pierre Muller 2007-02-12 15:19:31 +00:00
parent c44537cf16
commit fe8e67fdbb
3 changed files with 13 additions and 2 deletions

View File

@ -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> 2007-02-12 Corinna Vinschen <vinschen@redhat.com>
* win32-nat.c (win32_wait): Reset terminal pgrp to GDB. * win32-nat.c (win32_wait): Reset terminal pgrp to GDB.

View File

@ -6325,9 +6325,11 @@ set_cu_language (unsigned int lang, struct dwarf2_cu *cu)
case DW_LANG_Modula2: case DW_LANG_Modula2:
cu->language = language_m2; cu->language = language_m2;
break; break;
case DW_LANG_Pascal83:
cu->language = language_pascal;
break;
case DW_LANG_Cobol74: case DW_LANG_Cobol74:
case DW_LANG_Cobol85: case DW_LANG_Cobol85:
case DW_LANG_Pascal83:
default: default:
cu->language = language_minimal; cu->language = language_minimal;
break; break;

View File

@ -616,10 +616,12 @@ set_cu_language (struct dieinfo *dip)
case LANG_FORTRAN90: case LANG_FORTRAN90:
cu_language = language_fortran; cu_language = language_fortran;
break; break;
case LANG_PASCAL83:
cu_language = language_pascal;
break;
case LANG_ADA83: case LANG_ADA83:
case LANG_COBOL74: case LANG_COBOL74:
case LANG_COBOL85: case LANG_COBOL85:
case LANG_PASCAL83:
/* We don't know anything special about these yet. */ /* We don't know anything special about these yet. */
cu_language = language_unknown; cu_language = language_unknown;
break; break;