diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-24 11:41:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-24 11:41:39 +0200 |
| commit | 95cd3246e62ebeafa33bd25cec72f04912e2e5cc (patch) | |
| tree | b139b0d558f241992058a451e7afb4d494e288f9 /gcc/ada/clean.adb | |
| parent | 5a66a7661d4f7686ea0e4dea661926f7fee21653 (diff) | |
| download | gcc-95cd3246e62ebeafa33bd25cec72f04912e2e5cc.zip gcc-95cd3246e62ebeafa33bd25cec72f04912e2e5cc.tar.gz gcc-95cd3246e62ebeafa33bd25cec72f04912e2e5cc.tar.bz2 | |
[multiple changes]
2009-06-24 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check): A project declared abstract is legal if no
attribute Source_Dirs, Source_Files, Source_List_File or Languages is
declared.
2009-06-24 Robert Dewar <dewar@adacore.com>
* clean.adb, gnatcmd.adb, make.adb, mlib-prj.adb,
prj-env.adb: Minor reformatting
2009-06-24 Ed Falis <falis@adacore.com>
* s-taprop-vxworks.adb, s-osinte-vxworks.ads, s-vxwext.ads,
s-vxwext-kernel.adb, s-vxwext-kernel.ads, s-vxwext-rtp.adb,
s-tasinf-vxworks.ads, gcc-interface/Makefile.in: Add processor affinity
support for VxWorks SMP.
* gcc-interface/Make-lang.in: Update dependencies
From-SVN: r148902
Diffstat (limited to 'gcc/ada/clean.adb')
| -rw-r--r-- | gcc/ada/clean.adb | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index fa03e5c..e909cae 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -577,10 +577,10 @@ package body Clean is while Unit /= No_Unit_Index loop if Unit.File_Names (Impl) /= null and then Ultimate_Extending_Project_Of - (Unit.File_Names (Impl).Project) = Project + (Unit.File_Names (Impl).Project) = Project and then - Get_Name_String (Unit.File_Names (Impl).File) - = Name (1 .. Last) + Get_Name_String (Unit.File_Names (Impl).File) = + Name (1 .. Last) then Delete_File := True; exit; @@ -588,11 +588,10 @@ package body Clean is if Unit.File_Names (Spec) /= null and then Ultimate_Extending_Project_Of - (Unit.File_Names (Spec).Project) = Project + (Unit.File_Names (Spec).Project) = Project and then Get_Name_String - (Unit.File_Names (Spec).File) = - Name (1 .. Last) + (Unit.File_Names (Spec).File) = Name (1 .. Last) then Delete_File := True; exit; @@ -742,11 +741,11 @@ package body Clean is while Unit /= No_Unit_Index loop if Unit.File_Names (Impl) /= null and then Unit.File_Names (Impl).Project /= - No_Project + No_Project then if Ultimate_Extending_Project_Of - (Unit.File_Names (Impl).Project) = - Project + (Unit.File_Names (Impl).Project) = + Project then Get_Name_String (Unit.File_Names (Impl).File); @@ -754,7 +753,7 @@ package body Clean is File_Extension (Name (1 .. Name_Len))'Length; if Name_Buffer (1 .. Name_Len) = - Name (1 .. Last - 4) + Name (1 .. Last - 4) then Delete_File := True; exit; @@ -763,25 +762,26 @@ package body Clean is elsif Unit.File_Names (Spec) /= null and then Ultimate_Extending_Project_Of - (Unit.File_Names (Spec).Project) = - Project + (Unit.File_Names (Spec).Project) = + Project then Get_Name_String (Unit.File_Names (Spec).File); - Name_Len := Name_Len - - File_Extension - (Name (1 .. Name_Len))'Length; + Name_Len := + Name_Len - + File_Extension + (Name (1 .. Name_Len))'Length; if Name_Buffer (1 .. Name_Len) = - Name (1 .. Last - 4) + Name (1 .. Last - 4) then Delete_File := True; exit; end if; end if; - Unit := Units_Htable.Get_Next - (Project_Tree.Units_HT); + Unit := + Units_Htable.Get_Next (Project_Tree.Units_HT); end loop; end; end if; |