[multiple changes]

2014-11-20  Thomas Quinot  <quinot@adacore.com>

	* freeze.adb, sem_ch13.adb: Minor editing.

2014-11-20  Vincent Celier  <celier@adacore.com>

	* gnatcmd.adb: Remove any special processing for the ASIS tools
	(gnatpp, gnatmetric, gnatcheck, gnatelim and gnatstup) and simply
	invoke the tool with the provided switches and arguments.

2014-11-20  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch6.adb (Analyze_Expression_Function): Reject declaration
	of expression function with identical profile as previous
	expression function.

From-SVN: r217846

gcc/ada/ChangeLog

 2014-11-20  Thomas Quinot  <quinot@adacore.com>
 
+	* freeze.adb, sem_ch13.adb: Minor editing.
+
+2014-11-20  Vincent Celier  <celier@adacore.com>
+
+	* gnatcmd.adb: Remove any special processing for the ASIS tools
+	(gnatpp, gnatmetric, gnatcheck, gnatelim and gnatstup) and simply
+	invoke the tool with the provided switches and arguments.
+
+2014-11-20  Ed Schonberg  <schonberg@adacore.com>
+
+	* sem_ch6.adb (Analyze_Expression_Function): Reject declaration
+	of expression function with identical profile as previous
+	expression function.
+
+2014-11-20  Thomas Quinot  <quinot@adacore.com>
+
 	* sem_ch13.adb: Complete previous change.
 	* exp_dist.adb, exp_dist.ads: Rework PolyORB/DSA arguments processing
 	circuitry to correctly handle the case of non-private limited

gcc/ada/freeze.adb

@@ -7705,8 +7705,8 @@ package body Freeze is
                              and then not (Is_Tagged_Type (T)
                                             and then Is_Derived_Type (T))))
       then
-         if ((Bytes_Big_Endian and then SSO_Set_Low_By_Default (T))
-               or else
+         if ((Bytes_Big_Endian       and then SSO_Set_Low_By_Default  (T))
+                or else
             ((not Bytes_Big_Endian) and then SSO_Set_High_By_Default (T)))
 
            --  For a record type, if native bit order is specified explicitly,

gcc/ada/sem_ch13.adb

@@ -3798,7 +3798,8 @@ package body Sem_Ch13 is
                      ("variable indexing must return a reference type");
                   return;
 
-               elsif Is_Access_Constant (Etype (First_Discriminant (Ret_Type)))
+               elsif Is_Access_Constant
+                       (Etype (First_Discriminant (Ret_Type)))
                then
                   Illegal_Indexing
                     ("variable indexing must return an access to variable");
@@ -10936,7 +10937,8 @@ package body Sem_Ch13 is
                                 SSO_Set_High_By_Default (Bas_Typ)))
                then
                   Set_Reverse_Storage_Order (Bas_Typ,
-                    Reverse_Storage_Order (Base_Type (Etype (Bas_Typ))));
+                    Reverse_Storage_Order
+                      (Implementation_Base_Type (Etype (Bas_Typ))));
 
                   --  Clear default SSO indications, since the inherited aspect
                   --  which was set explicitly overrides the default.

gcc/ada/sem_ch6.adb

@@ -326,6 +326,17 @@ package body Sem_Ch6 is
       then
          Def_Id := Analyze_Subprogram_Specification (Spec);
          Prev   := Find_Corresponding_Spec (N);
+
+         --  The previous entity may be an expression function as well, in
+         --  which case the redeclaration is illegal.
+
+         if Present (Prev)
+           and then Nkind (Original_Node (Unit_Declaration_Node (Prev)))
+             =  N_Expression_Function
+         then
+            Error_Msg_N ("Duplicate expression function", N);
+            return;
+         end if;
       end if;
 
       Ret := Make_Simple_Return_Statement (LocX, Expression (N));