[multiple changes]

2015-10-26  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_util.adb, sem_aux.adb, exp_attr.adb, sem_eval.adb: Minor
	reformatting.
	* sem_util.adb, sem_ch5.adb: Minor reformatting.

2015-10-26  Ed Schonberg  <schonberg@adacore.com>

	* exp_unst.adb (Unnest_Subprogram): Add guard to prevent compiler
	abort when handling a reference to a formal in an aspect of a
	nested subprogram declaration as an uplevel reference.

From-SVN: r229359

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c4097993ea5940f9c6349f57677c5d7ebd04a574..65f700c7341eb08c161d7738eb5d68af6928bd1f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+2015-10-26  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * exp_util.adb, sem_aux.adb, exp_attr.adb, sem_eval.adb: Minor
+       reformatting.
+       * sem_util.adb, sem_ch5.adb: Minor reformatting.
+
+2015-10-26  Ed Schonberg  <schonberg@adacore.com>
+
+       * exp_unst.adb (Unnest_Subprogram): Add guard to prevent compiler
+       abort when handling a reference to a formal in an aspect of a
+       nested subprogram declaration as an uplevel reference.
+
 2015-10-26  Bob Duff  <duff@adacore.com>
 
        * snames.ads-tmpl, aspects.adb, aspects.ads: Add the aspect and

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 51297ec413259720089c5988259f8da0c1390c5e..532dd273d51636a1e0df17cec65d94387307d7ca 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -2999,9 +2999,8 @@ package body Exp_Attr is
 
          elsif Ekind (Entity (Pref)) = E_Constant
            and then Present (Renamed_Object (Entity (Pref)))
-           and then
-             Ekind (Entity (Renamed_Object (Entity (Pref))))
-               = E_Enumeration_Literal
+           and then Ekind (Entity (Renamed_Object (Entity (Pref)))) =
+                      E_Enumeration_Literal
          then
             Rewrite (N,
               Make_Integer_Literal (Loc,
@@ -4987,8 +4986,8 @@ package body Exp_Attr is
             --  both cases the type of the first formal of their expanded
             --  subprogram is Address)
 
-            if Etype (First_Entity (Protected_Body_Subprogram (Subprg)))
-              = RTE (RE_Address)
+            if Etype (First_Entity (Protected_Body_Subprogram (Subprg))) =
+                 RTE (RE_Address)
             then
                declare
                   New_Itype : Entity_Id;

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index b555fe705619ccb25a320275fe94cd275c2e1a69..689726bd919520c0d292e87db078ad348f4c617d 100644 (file)
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -496,7 +496,7 @@ package body Exp_Unst is
                --  We have a new uplevel referenced entity
 
                --  All we do at this stage is to add the uplevel reference to
-               --  the table. It's too earch to do anything else, since this
+               --  the table. It's too early to do anything else, since this
                --  uplevel reference may come from an unreachable subprogram
                --  in which case the entry will be deleted.
 
@@ -798,6 +798,13 @@ package body Exp_Unst is
                   S := URJ.Caller;
                   loop
                      S := Enclosing_Subprogram (S);
+
+                     --  if we are at the top level, as can happen with
+                     --  references to formals in aspects of nested subprogram
+                     --  declarations, there are no further subprograms to
+                     --  mark as requiring activation records.
+
+                     exit when No (S);
                      Subps.Table (Subp_Index (S)).Declares_AREC := True;
                      exit when S = URJ.Callee;
                   end loop;

diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index d546fa8d77356a1969540d95616f9c895927f835..f2d7b59b18a502d95debf82c1c03927152481da8 100644 (file)
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -6508,13 +6508,13 @@ package body Exp_Util is
       Expr : Node_Id) return Node_Id
    is
       Loc      : constant Source_Ptr := Sloc (Expr);
-      Nam      : Name_Id;
       Arg_List : List_Id;
+      Nam      : Name_Id;
 
    begin
-      --  If predicate checks are suppressed, then return a null statement.
-      --  For this call, we check only the scope setting. If the caller wants
-      --  to check a specific entity's setting, they must do it manually.
+      --  If predicate checks are suppressed, then return a null statement. For
+      --  this call, we check only the scope setting. If the caller wants to
+      --  check a specific entity's setting, they must do it manually.
 
       if Predicate_Checks_Suppressed (Empty) then
          return Make_Null_Statement (Loc);
@@ -6548,8 +6548,8 @@ package body Exp_Util is
          Append_To (Arg_List,
            Make_Pragma_Argument_Association (Loc,
              Expression =>
-               New_Copy_Tree (Expression
-                 (Find_Aspect (Typ, Aspect_Predicate_Failure)))));
+               New_Copy_Tree
+                 (Expression (Find_Aspect (Typ, Aspect_Predicate_Failure)))));
       end if;
 
       return

diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb
index b7bf9f4d5c6e5e3aa7894c7d27bac784d090afbe..f704f93d5de8622c26e02e9b1234ab58d6a39b34 100644 (file)
--- a/gcc/ada/sem_aux.adb
+++ b/gcc/ada/sem_aux.adb
@@ -120,7 +120,7 @@ package body Sem_Aux is
       --  If there is an expression, return it
 
       elsif Present (Expression (D)) then
-         return (Expression (D));
+         return Expression (D);
 
       --  For a constant, see if we have a full view
 

diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index 0c9c56e2e2e2a10f37eb24028db767b3408f823d..418ff13edbb44b7cbc3a1b50008660d69961aa8e 100644 (file)
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -316,10 +316,11 @@ package body Sem_Ch5 is
             Get_First_Interp (Lhs, I, It);
 
             while Present (It.Typ) loop
+
                --  An indexed component with generalized indexing is always
-               --  overloaded with the corresponding dereference. Discard
-               --  the interpretation that yields a reference type, which
-               --  is not assignable.
+               --  overloaded with the corresponding dereference. Discard the
+               --  interpretation that yields a reference type, which is not
+               --  assignable.
 
                if Nkind (Lhs) = N_Indexed_Component
                  and then Present (Generalized_Indexing (Lhs))

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 5110f16b4de7c5e0526220e888b0d928e910c5cb..3f7e97b1ef1565cd5b4d27ff0e648309030c4d49 100644 (file)
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -3761,9 +3761,6 @@ package body Sem_Eval is
       Source_Type : constant Entity_Id := Etype (Operand);
       Target_Type : constant Entity_Id := Etype (N);
 
-      Stat   : Boolean;
-      Fold   : Boolean;
-
       function To_Be_Treated_As_Integer (T : Entity_Id) return Boolean;
       --  Returns true if type T is an integer type, or if it is a fixed-point
       --  type to be treated as an integer (i.e. the flag Conversion_OK is set
@@ -3796,6 +3793,11 @@ package body Sem_Eval is
              or else (Is_Fixed_Point_Type (T) and then not Conversion_OK (N));
       end To_Be_Treated_As_Real;
 
+      --  Local variables
+
+      Fold : Boolean;
+      Stat : Boolean;
+
    --  Start of processing for Eval_Type_Conversion
 
    begin

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 3125b372d1fac460d79666c21aaf1a3ee2bbe8c0..01d6737551c53130c3f56ca2eb380a7fc4718871 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -5345,7 +5345,6 @@ package body Sem_Util is
    -------------------------
 
    function Denotes_Same_Prefix (A1, A2 : Node_Id) return Boolean is
-
    begin
       if Is_Entity_Name (A1) then
          if Nkind_In (A2, N_Selected_Component, N_Indexed_Component)
@@ -7856,6 +7855,7 @@ package body Sem_Util is
          return Defining_Entity (Unit);
       end if;
    end Get_Parent_Entity;
+
    -------------------
    -- Get_Pragma_Id --
    -------------------
@@ -8806,7 +8806,7 @@ package body Sem_Util is
       Comp : Entity_Id;
 
    begin
-      --  A scalar type is fully default initialized if it is subjec to aspect
+      --  A scalar type is fully default initialized if it is subject to aspect
       --  Default_Value.
 
       if Is_Scalar_Type (Typ) then