[Ada] Debug information for components whose type is a private extension.

[Ada] Debug information for components whose type is a private extension.

[Arnaud Charlet]

[-- Attachment #1: Type: text/plain, Size: 436 bytes --]

This patch enables the generation of debug information for the itype created
for record components, when the base type is a private extension and the
component subtype has a discriminant constraint.

Tested on i686-pc-linux-gnu, committed on trunk

2008-08-20  Ed Schonberg  <schonberg@adacore.com>

	* sem_util.adb (Set_Debug_Info_Needed): If the entity is a private type
	and the full view is visible, set flag on full view as well.


[-- Attachment #2: difs --]
[-- Type: text/plain, Size: 674 bytes --]

Index: sem_util.adb
===================================================================
--- sem_util.adb	(revision 139262)
+++ sem_util.adb	(working copy)
@@ -8971,6 +8971,16 @@
            and then not Needs_Debug_Info (E)
          then
             Set_Debug_Info_Needed (E);
+
+            --  For a private type, indicate that the full view also needs
+            --  debug information.
+
+            if Is_Type (E)
+              and then Is_Private_Type (E)
+              and then Present (Full_View (E))
+            then
+               Set_Debug_Info_Needed (Full_View (E));
+            end if;
          end if;
       end Set_Debug_Info_Needed_If_Not_Set;