diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 14:35:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 14:35:21 +0000 |
| commit | 448545d4cb3b7de4837201b32876908a2fb8e9be (patch) | |
| tree | fb3fc87fa6c935ed02ccd6b3f65c3a662b29c471 /gcc/ada/clean.adb | |
| parent | 89d3406ff9d729616d18ab158049fe4c5df73147 (diff) | |
| download | gcc-448545d4cb3b7de4837201b32876908a2fb8e9be.tar.gz | |
2009-04-24 Emmanuel Briot <briot@adacore.com>
* prj-proc.adb, make.adb, mlib-prj.adb, prj.adb, prj.ads, clean.adb,
prj-nmsc.adb, prj-env.adb (Project_List_Table, Project_Element):
removed. Lists of projects are now implemented via standard malloc
rather than through the table.
2009-04-24 Thomas Quinot <quinot@adacore.com>
* sem_ch12.adb: Minor reformatting
* g-trasym.adb: Minor reformatting
* exp_ch6.adb: Minor reformatting
2009-04-24 Robert Dewar <dewar@adacore.com>
* layout.adb (Layout_Type): For packed array type, copy unset
size/alignment fields from the referenced Packed_Array_Type.
2009-04-24 Bob Duff <duff@adacore.com>
* lib-load.adb (Make_Instance_Unit): Revert previous change, no
longer needed after sem_ch12 changes.
* sem.adb (Walk_Library_Items): Include with's in some debugging
printouts.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146727 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/clean.adb')
| -rw-r--r-- | gcc/ada/clean.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index ff59a467ffa..756fa990272 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1079,30 +1079,29 @@ package body Clean is if All_Projects then declare Imported : Project_List := Data.Imported_Projects; - Element : Project_Element; Process : Boolean; begin -- For each imported project, call Clean_Project if the project -- has not been processed already. - while Imported /= Empty_Project_List loop - Element := Project_Tree.Project_Lists.Table (Imported); - Imported := Element.Next; + while Imported /= null loop Process := True; for J in Processed_Projects.First .. Processed_Projects.Last loop - if Element.Project = Processed_Projects.Table (J) then + if Imported.Project = Processed_Projects.Table (J) then Process := False; exit; end if; end loop; if Process then - Clean_Project (Element.Project); + Clean_Project (Imported.Project); end if; + + Imported := Imported.Next; end loop; -- If this project extends another project, call Clean_Project for |