diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 08:33:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-25 08:33:02 +0000 |
| commit | ead350b5314f68c8b4d223e2033cfb77cc7d1185 (patch) | |
| tree | df4aae4263012bbb39ad4216d707c67937758398 /gcc/ada/gnatcmd.adb | |
| parent | 1b0bf7d68b6af813509d6e95b279c4031bddff9f (diff) | |
| download | gcc-ead350b5314f68c8b4d223e2033cfb77cc7d1185.tar.gz | |
2009-06-25 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, mlib-prj.adb, prj.adb, prj.ads, prj-nmsc.adb,
prj-env.adb, prj-env.ads (Slash): removed, no longer used
(Source_Data): no longer use Path.Name to point to a locally removed
file. Instead we use the field Locally_Removed which is clearer
2009-06-25 Arnaud Charlet <charlet@adacore.com>
* gcc-interface/Make-lang.in: Remove references to sem_maps.o
* sem_maps.adb, sem_maps.ads: Removed, not used.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148931 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index d4d5122b51a..89dcb6860ca 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -417,7 +417,7 @@ procedure GNATCmd is if The_Command = List then if Unit.File_Names (Impl) /= null - and then Unit.File_Names (Impl).Path.Name /= Slash + and then not Unit.File_Names (Impl).Locally_Removed then -- There is a body, check if it is for this project @@ -427,7 +427,7 @@ procedure GNATCmd is Subunit := False; if Unit.File_Names (Spec) = null - or else Unit.File_Names (Spec).Path.Name = Slash + or else Unit.File_Names (Spec).Locally_Removed then -- We have a body with no spec: we need to check if -- this is a subunit, because gnatls will complain @@ -456,7 +456,7 @@ procedure GNATCmd is end if; elsif Unit.File_Names (Spec) /= null - and then Unit.File_Names (Spec).Path.Name /= Slash + and then not Unit.File_Names (Spec).Locally_Removed then -- We have a spec with no body. Check if it is for this -- project. @@ -478,7 +478,7 @@ procedure GNATCmd is elsif The_Command = Stack then if Unit.File_Names (Impl) /= null - and then Unit.File_Names (Impl).Path.Name /= Slash + and then not Unit.File_Names (Impl).Locally_Removed then -- There is a body. Check if .ci files for this project -- must be added. @@ -489,7 +489,7 @@ procedure GNATCmd is Subunit := False; if Unit.File_Names (Spec) = null - or else Unit.File_Names (Spec).Path.Name = Slash + or else Unit.File_Names (Spec).Locally_Removed then -- We have a body with no spec: we need to check -- if this is a subunit, because .ci files are not @@ -523,7 +523,7 @@ procedure GNATCmd is end if; elsif Unit.File_Names (Spec) /= null - and then Unit.File_Names (Spec).Path.Name /= Slash + and then not Unit.File_Names (Spec).Locally_Removed then -- Spec with no body, check if it is for this project @@ -552,7 +552,7 @@ procedure GNATCmd is if Unit.File_Names (Kind) /= null and then Check_Project (Unit.File_Names (Kind).Project, Project) - and then Unit.File_Names (Kind).Path.Name /= Slash + and then not Unit.File_Names (Kind).Locally_Removed then Get_Name_String (Unit.File_Names (Kind).Path.Display_Name); |