From c7d22ee76f9231727d5e8c38f4f363b6cc7382ff Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 5 Feb 2015 15:35:53 +0100 Subject: [multiple changes] 2015-02-05 Robert Dewar * prj-proc.adb, sem_aux.adb, exp_ch9.adb, errout.adb, prj-dect.adb, prj-nmsc.adb: Minor reformatting. 2015-02-05 Ed Schonberg * 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 * exp_ch3.adb (Make_Tag_Assignment): Do not perform this expansion activity in ASIS mode. From-SVN: r220452 --- gcc/ada/prj-nmsc.adb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'gcc/ada/prj-nmsc.adb') 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); -- cgit v1.1