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 50c6b35..0ff49e2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,11 @@
 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
        p-valprint.c (pascal_val_print): correct current language check.
        Also print array of char as strings.

diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 370035f..e5e8aa4 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)