public inbox for gcc-patches@gcc.gnu.org
 help / color / mirror / Atom feed
* [Ada] Debug information for components whose type is a private extension.
@ 2008-08-20 15:14 Arnaud Charlet
  0 siblings, 0 replies; only message in thread
From: Arnaud Charlet @ 2008-08-20 15:14 UTC (permalink / raw)
  To: gcc-patches; +Cc: Ed Schonberg

[-- 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;
 

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2008-08-20 15:05 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-08-20 15:14 [Ada] Debug information for components whose type is a private extension Arnaud Charlet

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).