From: Vincent Celier <celier@adacore.com>
Date: Thu, 7 Oct 2010 09:27:50 +0000 (+0200)
Subject: gnatcmd.adb (Check_Files): When looking for the .ci file for a binder generated file...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=844ba5faec84783f31bab615ea507508329b6620;p=gcc.git

gnatcmd.adb (Check_Files): When looking for the .ci file for a binder generated file...

2010-10-07  Vincent Celier  <celier@adacore.com>

        * gnatcmd.adb (Check_Files): When looking for the .ci file for a
        binder generated file, look for both b~xxx and b__xxx as gprbuild
        always uses b__ as the prefix of such files.

From-SVN: r165085
---

diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb
index a91653cb94d..4e189e36909 100644
--- a/gcc/ada/gnatcmd.adb
+++ b/gcc/ada/gnatcmd.adb
@@ -407,6 +407,21 @@ procedure GNATCmd is
                                         (Main).Value),
                                    "ci"));
 
+                           if not Is_Regular_File (File.all) and then
+                             B_Start.all /= "b__"
+                           then
+                              File :=
+                                new String'
+                                  (Get_Name_String
+                                     (Proj.Project.Object_Directory.Name)    &
+                                   "b__"                                     &
+                                   MLib.Fil.Ext_To
+                                     (Get_Name_String
+                                        (Project_Tree.String_Elements.Table
+                                           (Main).Value),
+                                      "ci"));
+                           end if;
+
                            if Is_Regular_File (File.all) then
                               Last_Switches.Increment_Last;
                               Last_Switches.Table (Last_Switches.Last) := File;
@@ -430,6 +445,19 @@ procedure GNATCmd is
                                 Get_Name_String (Proj.Project.Library_Name)  &
                                 ".ci");
 
+                           if not Is_Regular_File (File.all) and then
+                               B_Start.all /= "b__"
+                           then
+                              File :=
+                                new String'
+                                  (Get_Name_String
+                                     (Proj.Project.Object_Directory.Name)    &
+                                   "b__"                                     &
+                                   Get_Name_String
+                                     (Proj.Project.Library_Name)             &
+                                   ".ci");
+                           end if;
+
                            if Is_Regular_File (File.all) then
                               Last_Switches.Increment_Last;
                               Last_Switches.Table (Last_Switches.Last) := File;