diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 08:26:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 08:26:17 +0000 |
| commit | e13474c869c67f5eb1687dc1df90817c00973c73 (patch) | |
| tree | 803f7bb6b3bc1622ade0b961c533a13bf1248b45 /gcc/ada/prj-pp.adb | |
| parent | 23255a5b14416256c1b36986cdc40840ce5ff434 (diff) | |
| download | gcc-e13474c869c67f5eb1687dc1df90817c00973c73.tar.gz | |
2011-08-03 Gary Dismukes <dismukes@adacore.com>
* sem_ch3.adb (Build_Derived_Record_Type): Test the Derive_Subps formal
as a condition for the delayed call to Derived_Subprograms done for the
case of the rewriting of a derived type that constrains the
discriminants of its parent type.
Avoids redundant subprogram derivations for private subtype derivations.
2011-08-03 Javier Miranda <miranda@adacore.com>
* exp_aggr.adb (Init_Hidden_Discriminants): New subprogram of
Build_Record_Aggr_Code.
(Build_Record_Aggr_Code): Add missing support to initialize hidden
discriminants in extension aggregates.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* prj-pp.adb (Print): also output project qualifiers, since in
particular "aggregate" is mandatory in an aggregate project.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* prj-part.adb, prj.adb, prj.ads, prj-nmsc.adb, prj-env.adb:
(Debug_Output): new function.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177240 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-pp.adb')
| -rw-r--r-- | gcc/ada/prj-pp.adb | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gcc/ada/prj-pp.adb b/gcc/ada/prj-pp.adb index e03146ce4a6..4a8680e77cf 100644 --- a/gcc/ada/prj-pp.adb +++ b/gcc/ada/prj-pp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -373,6 +373,22 @@ package body Prj.PP is Print (First_Comment_Before (Node, In_Tree), Indent); Start_Line (Indent); + + case Project_Qualifier_Of (Node, In_Tree) is + when Unspecified | Standard => + null; + when Aggregate => + Write_String ("aggregate ", Indent); + when Aggregate_Library => + Write_String ("aggregate library ", Indent); + when Library => + Write_String ("library ", Indent); + when Configuration => + Write_String ("configuration ", Indent); + when Dry => + Write_String ("abstract ", Indent); + end case; + Write_String ("project ", Indent); if Id /= Prj.No_Project then |