diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-24 09:41:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-24 09:41:39 +0000 |
| commit | 983b1ca857786f66942e4dcf59199f054c5f761f (patch) | |
| tree | b139b0d558f241992058a451e7afb4d494e288f9 /gcc/ada/gnatcmd.adb | |
| parent | 08d56cd132b9c87ba6eb48ea972d4c9559618fd0 (diff) | |
| download | gcc-983b1ca857786f66942e4dcf59199f054c5f761f.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148902 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 43 |
1 files changed, 18 insertions, 25 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index f19bdd07de4..d4d5122b51a 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -411,6 +411,7 @@ procedure GNATCmd is Unit := Units_Htable.Get_First (Project_Tree.Units_HT); while Unit /= No_Unit_Index loop + -- For gnatls, we only need to put the library units, body or -- spec, but not the subunits. @@ -465,10 +466,8 @@ procedure GNATCmd is then Last_Switches.Increment_Last; Last_Switches.Table (Last_Switches.Last) := - new String' - (Get_Name_String - (Unit.File_Names - (Spec).Display_File)); + new String'(Get_Name_String + (Unit.File_Names (Spec).Display_File)); end if; end if; @@ -485,7 +484,7 @@ procedure GNATCmd is -- must be added. if Check_Project - (Unit.File_Names (Impl).Project, Project) + (Unit.File_Names (Impl).Project, Project) then Subunit := False; @@ -513,14 +512,12 @@ procedure GNATCmd is Last_Switches.Table (Last_Switches.Last) := new String' (Get_Name_String - (Unit.File_Names - (Impl).Project. - Object_Directory.Name) & - Directory_Separator & + (Unit.File_Names + (Impl).Project. Object_Directory.Name) & + Directory_Separator & MLib.Fil.Ext_To (Get_Name_String - (Unit.File_Names - (Impl).Display_File), + (Unit.File_Names (Impl).Display_File), "ci")); end if; end if; @@ -528,23 +525,20 @@ procedure GNATCmd is elsif Unit.File_Names (Spec) /= null and then Unit.File_Names (Spec).Path.Name /= Slash then - -- We have a spec with no body. Check if it is for this - -- project. + -- Spec with no body, check if it is for this project if Check_Project - (Unit.File_Names (Spec).Project, Project) + (Unit.File_Names (Spec).Project, Project) then Last_Switches.Increment_Last; Last_Switches.Table (Last_Switches.Last) := new String' (Get_Name_String - (Unit.File_Names - (Spec).Project. - Object_Directory.Name) & - Dir_Separator & + (Unit.File_Names + (Spec).Project. Object_Directory.Name) & + Dir_Separator & MLib.Fil.Ext_To - (Get_Name_String - (Unit.File_Names (Spec).File), + (Get_Name_String (Unit.File_Names (Spec).File), "ci")); end if; end if; @@ -557,7 +551,7 @@ procedure GNATCmd is for Kind in Spec_Or_Body loop if Unit.File_Names (Kind) /= null and then Check_Project - (Unit.File_Names (Kind).Project, Project) + (Unit.File_Names (Kind).Project, Project) and then Unit.File_Names (Kind).Path.Name /= Slash then Get_Name_String @@ -576,10 +570,9 @@ procedure GNATCmd is else Last_Switches.Increment_Last; Last_Switches.Table (Last_Switches.Last) := - new String' - (Get_Name_String - (Unit.File_Names - (Kind).Path.Display_Name)); + new String'(Get_Name_String + (Unit.File_Names + (Kind).Path.Display_Name)); end if; end if; end loop; |