2008-05-27 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / makegpr.adb

diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb
index 2d655e1..684cae9 100644 (file)
--- a/gcc/ada/makegpr.adb
+++ b/gcc/ada/makegpr.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -283,6 +283,8 @@ package body Makegpr is
    Dash_cargs        : constant String_Access := Dash_cargs_String'Access;
    Dash_d_String     : aliased  String := "-d";
    Dash_d            : constant String_Access := Dash_d_String'Access;
+   Dash_eL_String    : aliased  String := "-eL";
+   Dash_eL           : constant String_Access := Dash_eL_String'Access;
    Dash_f_String     : aliased  String := "-f";
    Dash_f            : constant String_Access := Dash_f_String'Access;
    Dash_k_String     : aliased  String := "-k";
@@ -2609,6 +2611,12 @@ package body Makegpr is
          Add_Argument (Dash_d, True);
       end if;
 
+      --  -eL
+
+      if Follow_Links_For_Files then
+         Add_Argument (Dash_eL, True);
+      end if;
+
       --  -k
 
       if Keep_Going then
@@ -3375,8 +3383,8 @@ package body Makegpr is
 
       --  Add the directory where gprmake is invoked in front of the path,
       --  if gprmake is invoked from a bin directory or with directory
-      --  information. Only do this if the platform is not VMS,
-      --  where the notion of path does not really exist.
+      --  information. Only do this if the platform is not VMS, where the
+      --  notion of path does not really exist.
 
       --  Below code shares nasty code duplication with make.adb code???
 
@@ -4231,6 +4239,9 @@ package body Makegpr is
          elsif Arg = "-d" then
             Display_Compilation_Progress := True;
 
+         elsif Arg = "-eL" then
+            Follow_Links_For_Files := True;
+
          elsif Arg = "-f" then
             Force_Compilations := True;
 
@@ -4370,6 +4381,12 @@ package body Makegpr is
          Write_Str ("  -c       Compile only");
          Write_Eol;
 
+         --  Line for -eL
+
+         Write_Str ("  -eL      Follow symbolic links when processing " &
+                    "project files");
+         Write_Eol;
+
          --  Line for -f
 
          Write_Str ("  -f       Force recompilations");