diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 15:35:53 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 15:35:53 +0100 |
| commit | c7d22ee76f9231727d5e8c38f4f363b6cc7382ff (patch) | |
| tree | 4fdb0927c5da676f7766b4a6f4243c2738a02762 /gcc/ada/prj-nmsc.adb | |
| parent | 273123a48a42b08a87cacdfe665848c143716ef1 (diff) | |
| download | gcc-c7d22ee76f9231727d5e8c38f4f363b6cc7382ff.zip gcc-c7d22ee76f9231727d5e8c38f4f363b6cc7382ff.tar.gz gcc-c7d22ee76f9231727d5e8c38f4f363b6cc7382ff.tar.bz2 | |
[multiple changes]
2015-02-05 Robert Dewar <dewar@adacore.com>
* prj-proc.adb, sem_aux.adb, exp_ch9.adb, errout.adb, prj-dect.adb,
prj-nmsc.adb: Minor reformatting.
2015-02-05 Ed Schonberg <schonberg@adacore.com>
* sem_type.adb (Covers): In ASIS_Mode the Corresponding_Record
of a protected type may not be available, so to check conformance
with an interface type, examine the interface list in the type
declaration directly.
(Write_Overloads): Improve information for indirect calls,
for debugger use.
2015-02-05 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Make_Tag_Assignment): Do not perform this
expansion activity in ASIS mode.
From-SVN: r220452
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 9c7a8d0..7b3d337 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -1803,9 +1803,9 @@ package body Prj.Nmsc is Lang_Index := Get_Language_From_Name (Project, Get_Name_String (Element.Index)); - if Lang_Index /= No_Language_Index and then - Element.Value.Kind = Single and then - Element.Value.Value /= No_Name + if Lang_Index /= No_Language_Index + and then Element.Value.Kind = Single + and then Element.Value.Value /= No_Name then case Current_Array.Name is when Name_Spec_Suffix | Name_Specification_Suffix => @@ -4290,8 +4290,8 @@ package body Prj.Nmsc is Shared => Shared); end if; - if Suffix /= Nil_Variable_Value and then - Suffix.Value /= No_Name + if Suffix /= Nil_Variable_Value + and then Suffix.Value /= No_Name then Lang_Id.Config.Naming_Data.Spec_Suffix := File_Name_Type (Suffix.Value); @@ -4325,8 +4325,8 @@ package body Prj.Nmsc is Shared => Shared); end if; - if Suffix /= Nil_Variable_Value and then - Suffix.Value /= No_Name + if Suffix /= Nil_Variable_Value + and then Suffix.Value /= No_Name then Lang_Id.Config.Naming_Data.Body_Suffix := File_Name_Type (Suffix.Value); |