2007-09-26 Pierre Muller <muller@ics.u-strasbg.fr>

	* Fix PR pascal/2231
	dwarf2read.c (read_subroutine_type):
	All pascal functions are prototyped.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 50c6b354e421154ece62cf8ee75518aecfb121a8..0ff49e201c46af90f7dbf33445fa8cbba5590c65 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-26  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * Fix PR pascal/2231
+       dwarf2read.c (read_subroutine_type): 
+       All pascal functions are prototyped. 
+
 2007-09-26  Pierre Muller  <muller@ics.u-strasbg.fr>
 
        * Fix PR pascal/2283

diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 370035f754d7b67fabcfff052b482608715482be..e5e8aa4aa263c77edefa2dabd62c2f8816dafd21 100644 (file)
--- 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)