mirror of
https://github.com/darlinghq/darling-gdb.git
synced 2024-12-11 22:24:42 +00:00
* Fix PR 2223. Recognize Pascal language marker in dwarf readers
This commit is contained in:
parent
c44537cf16
commit
fe8e67fdbb
@ -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.
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user