diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-19 14:46:15 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-19 14:46:15 +0000 |
| commit | b10a88c1e3b7a008c125737ad92b339cf1251f38 (patch) | |
| tree | f5fca4a10559895dc76a6a3ab95035437587620d /gcc/ada/prj-conf.adb | |
| parent | fc0bb78b0c166626a9be6988707825660807e7ef (diff) | |
| download | gcc-b10a88c1e3b7a008c125737ad92b339cf1251f38.tar.gz | |
2014-02-19 Ed Schonberg <schonberg@adacore.com>
* sem_util.ads, sem_util.adb (Get_Cursor_Type): Moved to sem_util
from sem_ch13, for use elsewhere.
* sem_ch13.adb (Get_Cursor_Type): Moved to sem_util.
* sem_ch5.adb (Analyze_Iterator_Specification): Set properly the
cursor type on the loop variable when the iteration is over o
formal container.
2014-02-19 Vincent Celier <celier@adacore.com>
* prj-conf.adb (Add_Default_GNAT_Naming_Scheme): Add declaration
for an empty Target (Check_Target): Never fail when an empty
target is declared in the configuration project.
2014-02-19 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb (Check_Arg_Is_Local_Name): Argument is local if
the pragma comes fron a predicate aspect and the context is a
record declaration within the scope that declares the type.
2014-02-19 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Minor clarifications.
* expander.adb, sem_aggr.adb: Add comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207903 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-conf.adb')
| -rw-r--r-- | gcc/ada/prj-conf.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/prj-conf.adb b/gcc/ada/prj-conf.adb index 300c33c942e..8d35fe25b8d 100644 --- a/gcc/ada/prj-conf.adb +++ b/gcc/ada/prj-conf.adb @@ -202,6 +202,10 @@ package body Prj.Conf is Create_Attribute (Name_Library_Auto_Init_Supported, "false"); end if; + -- Declare an empty target + + Create_Attribute (Name_Target, ""); + -- Setup Ada support (Ada is the default language here, since this -- is only called when no config file existed initially, ie for -- gnatmake). @@ -574,7 +578,8 @@ package body Prj.Conf is OK := Target = "" or else (Tgt_Name /= No_Name - and then Target = Get_Name_String (Tgt_Name)); + and then (Length_Of_Name (Tgt_Name) = 0 + or else Target = Get_Name_String (Tgt_Name))); if not OK then if Autoconf_Specified then |