diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 09:26:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 09:26:07 +0000 |
| commit | 77378d518eb62788e2f759abb1a87a66dfafabaf (patch) | |
| tree | 116462c37d01ba1b6c932ed55b7db566a03c056d /gcc/ada/prj-proc.adb | |
| parent | 703cfbf8e933ced3dc6df60732afddc46441db02 (diff) | |
| download | gcc-77378d518eb62788e2f759abb1a87a66dfafabaf.tar.gz | |
2009-06-25 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, prj-proc.adb, make.adb, prj.adb, prj.ads, prj-nmsc.adb,
prj-util.adb, prj-env.adb, prj-env.ads: Merge handling of naming_data
between gnatmake and gprbuild.
(Naming_Data): Removed, no longer used
(Naming_Table, Project_Tree_Ref.Namings): Removed, since this is only
needed locally in one subprogram, no need to store forever in the
structure.
(Check_Naming_Scheme, Check_Package_Naming): Merged, since they play
a similar role.
(Body_Suffix_Of, Body_Suffix_Id_Of, Register_Default_Naming_Scheme,
Same_Naming_Scheme, Set_Body_Suffix, Set_Spec_Suffix, Spec_Suffix_Of,
Spec_Suffix_Id_Of): removed, no longer used.
2009-06-25 Javier Miranda <miranda@adacore.com>
* sem_res.adb (Resolve_Allocator): Skip test requiring exact match of
types on qualified expression in calls to imported C++ constructors.
* exp_ch4.adb (Expand_Allocator_Expression): Add missing support for
imported C++ constructors.
2009-06-25 Sergey Rybin <rybin@adacore.com>
* vms_data.ads: Add qualifier for new gnatcheck '-t' option.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148937 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-proc.adb')
| -rw-r--r-- | gcc/ada/prj-proc.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index 31cd2922557..4c45642bf0d 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -2336,6 +2336,7 @@ package body Prj.Proc is begin Error_Report := Report_Error; + Success := True; if Project /= No_Project then @@ -2581,7 +2582,7 @@ package body Prj.Proc is return; end if; - Project := new Project_Data'(Empty_Project (In_Tree)); + Project := new Project_Data'(Empty_Project); In_Tree.Projects := new Project_List_Element' (Project => Project, Next => In_Tree.Projects); |