From: Pierre Muller Date: Wed, 26 Sep 2007 13:59:54 +0000 (+0000) Subject: 2007-09-26 Pierre Muller X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5b8101ae7bd7e95bfa6404d7403b51176785f2e8;p=binutils-gdb.git 2007-09-26 Pierre Muller * Fix PR pascal/2231 dwarf2read.c (read_subroutine_type): All pascal functions are prototyped. --- diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 50c6b354e42..0ff49e201c4 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2007-09-26 Pierre Muller + + * Fix PR pascal/2231 + dwarf2read.c (read_subroutine_type): + All pascal functions are prototyped. + 2007-09-26 Pierre Muller * Fix PR pascal/2283 diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 370035f754d..e5e8aa4aa26 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -4744,11 +4744,12 @@ read_subroutine_type (struct die_info *die, struct dwarf2_cu *cu) type = die_type (die, cu); ftype = make_function_type (type, (struct type **) 0); - /* All functions in C++ and Java have prototypes. */ + /* All functions in C++, Pascal and Java have prototypes. */ attr = dwarf2_attr (die, DW_AT_prototyped, cu); if ((attr && (DW_UNSND (attr) != 0)) || cu->language == language_cplus - || cu->language == language_java) + || cu->language == language_java + || cu->language == language_pascal) TYPE_FLAGS (ftype) |= TYPE_FLAG_PROTOTYPED; if (die->child != NULL)