diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-02 10:19:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-02 10:19:14 +0200 |
| commit | 07ef182e37382f49a97e8da1ce3508acdf3e3493 (patch) | |
| tree | f5aad546b751a3741904e051f9156b42eb05c3c5 /gcc/ada/gnatcmd.adb | |
| parent | 2a7b8e181bd51b6e96864840550c66619573e8d1 (diff) | |
| download | gcc-07ef182e37382f49a97e8da1ce3508acdf3e3493.zip gcc-07ef182e37382f49a97e8da1ce3508acdf3e3493.tar.gz gcc-07ef182e37382f49a97e8da1ce3508acdf3e3493.tar.bz2 | |
[multiple changes]
2012-10-02 Vincent Pucci <pucci@adacore.com>
* sem_attr.adb (Analyze_Attribute): Check dimension for attribute
Old before it gets expanded.
* sem_dim.adb (Analyze_Dimension_Has_Etype): Correctly propagate
dimensions for identifier.
2012-10-02 Ed Schonberg <schonberg@adacore.com>
* exp_ch5.adb (Expand_Iterator_Loop): Handle properly the case
where the iterator type is derived locally from an instantiation
of Ada.Iterators_Interface.
* exp_ch7.adb (Establish_Transient_Scope): Do not create a
transient scope if within the expansion of an iterator loop,
because a transient block already exists.
2012-10-02 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Use absolute path for configuration pragmas files
* make.adb (Configuration_Pragmas_Switch.Absolute_Path): Moved
to Makeutl.
* makeutl.ads, makeutl.adb (Absolute_Path): New function, moved from
make.adb.
2012-10-02 Vincent Celier <celier@adacore.com>
* prj-part.adb (Post_Parse_Context_Clause): Resurrect Boolean
parameter In_Limited. Check for circularity also if In_Limited
is True.
(Parse_Single_Project): Call Post_Parse_Context_Clause with
In_Limited parameter.
From-SVN: r191961
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 7e54753..1919f9a 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -2352,9 +2352,14 @@ begin if Variable /= Nil_Variable_Value and then Length_Of_Name (Variable.Value) /= 0 then - Add_To_Carg_Switches - (new String' - ("-gnatec=" & Get_Name_String (Variable.Value))); + declare + Path : constant String := + Absolute_Path + (Path_Name_Type (Variable.Value), Project); + begin + Add_To_Carg_Switches + (new String'("-gnatec=" & Path)); + end; end if; end; @@ -2392,10 +2397,14 @@ begin if Variable /= Nil_Variable_Value and then Length_Of_Name (Variable.Value) /= 0 then - Add_To_Carg_Switches - (new String' - ("-gnatec=" & - Get_Name_String (Variable.Value))); + declare + Path : constant String := + Absolute_Path + (Path_Name_Type (Variable.Value), Project); + begin + Add_To_Carg_Switches + (new String'("-gnatec=" & Path)); + end; end if; end; end if; |