diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-29 14:01:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-01-29 14:01:21 +0000 |
| commit | 37f757cf7679e0762e5c3a3e864665c1f9cdad70 (patch) | |
| tree | c97baf59573b2e4562047b821947b9c984abb702 /gcc/ada/gnatcmd.adb | |
| parent | bc054fa5c69b4f4b688ca9c761ba16ea5e5d1db0 (diff) | |
| download | gcc-37f757cf7679e0762e5c3a3e864665c1f9cdad70.tar.gz | |
2013-01-29 Robert Dewar <dewar@adacore.com>
* atree.ads, atree.adb (Node30): New function.
(Set_Node30): New procedure.
(Num_Extension_Nodes): Change to 5 (activate new fields/flags).
* atree.h: Add macros for Field30 and Node30.
* einfo.ads, einfo.adb: Move some fields to avoid duplexing.
* treepr.adb (Print_Entity_Information): Print fields 30-35.
2013-01-29 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma, case Interface): Consider to
be a violation of No_Obsolescent_Features even in Ada 95. Also
generates a warning in -gnatwj mode.
(Analyze_Pragma, case Interface_Name): Generates a warning in -gnatwj
mode.
* gnat_ugn.texi: Additional documentation on -gnatwj and pragma
Interface[_Name].
2013-01-29 Vincent Celier <celier@adacore.com>
* snames.ads-tmpl: Add new standard name Trailing_Switches.
2013-01-29 Ed Schonberg <schonberg@adacore.com>
* sem_disp.adb (Check_Controlling_Type): If a designated type T
of an anonymous access type is a limited view of a tagged type,
it can be a controlling type only if the subprogram is in the
same scope as T.
2013-01-29 Vincent Celier <celier@adacore.com>
* gnatcmd.adb: Use the project where the config pragmas file is
declared to get its path.
2013-01-29 Vincent Celier <celier@adacore.com>
* prj-attr.adb: New attribute Linker'Trailing_Switches.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@195535 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 2fa479cc980..ce690e567b4 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -2366,8 +2366,9 @@ begin then declare Path : constant String := - Absolute_Path - (Path_Name_Type (Variable.Value), Project); + Absolute_Path + (Path_Name_Type (Variable.Value), + Variable.Project); begin Add_To_Carg_Switches (new String'("-gnatec=" & Path)); @@ -2411,8 +2412,9 @@ begin then declare Path : constant String := - Absolute_Path - (Path_Name_Type (Variable.Value), Project); + Absolute_Path + (Path_Name_Type (Variable.Value), + Variable.Project); begin Add_To_Carg_Switches (new String'("-gnatec=" & Path)); |