[multiple changes]

2012-08-06  Robert Dewar  <dewar@adacore.com>

	* s-oscons-tmplt.c, sem_ch9.adb, osint.adb: Minor reformatting.

2012-08-06  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch5.adb (Analyze_Loop_Parameter_Specification): Remove obsolete
	Alfa-specific guard. The code is a leftover from an early
	implementation of iterators which is no longer in use.

2012-08-06  Vincent Celier  <celier@adacore.com>

	* par-ch13.adb (Get_Aspect_Specifications): Do not consider
	No_Aspect when checking for a mispelled aspect.

From-SVN: r190158

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index df4334b1ef13712f0c2d795c221ba39c8250e7e3..8f7c9ca2316585c71cde0cf829cb74af7e8dc65c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,18 @@
+2012-08-06  Robert Dewar  <dewar@adacore.com>
+
+       * s-oscons-tmplt.c, sem_ch9.adb, osint.adb: Minor reformatting.
+
+2012-08-06  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Remove obsolete
+       Alfa-specific guard. The code is a leftover from an early
+       implementation of iterators which is no longer in use.
+
+2012-08-06  Vincent Celier  <celier@adacore.com>
+
+       * par-ch13.adb (Get_Aspect_Specifications): Do not consider
+       No_Aspect when checking for a mispelled aspect.
+
 2012-08-06  Robert Dewar  <dewar@adacore.com>
 
        * s-htable.adb: Minor reformatting.

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index 9a2e7ee26f382ac093dc29d34dbe9f3511484c94..d42a48e9ac023ea3e9a0a4b7e117a2c603c50bbc 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -3103,9 +3103,9 @@ package body Osint is
          return null;
    end To_Canonical_Path_Spec;
 
-   ---------------------------
+   ----------------------
    -- To_Host_Dir_Spec --
-   ---------------------------
+   ----------------------
 
    function To_Host_Dir_Spec
      (Canonical_Dir : String;
@@ -3138,9 +3138,9 @@ package body Osint is
       end if;
    end To_Host_Dir_Spec;
 
-   ----------------------------
+   -----------------------
    -- To_Host_File_Spec --
-   ----------------------------
+   -----------------------
 
    function To_Host_File_Spec
      (Canonical_File : String) return String_Access

diff --git a/gcc/ada/par-ch13.adb b/gcc/ada/par-ch13.adb
index 030f929a7b700d6cf79885ceaeca71b4091a8d0d..f6927edc68fbacbfe37f7aa4babb09bdd14fdb67 100644 (file)
--- a/gcc/ada/par-ch13.adb
+++ b/gcc/ada/par-ch13.adb
@@ -188,7 +188,9 @@ package body Ch13 is
             --  Check bad spelling
 
             for J in Aspect_Id loop
-               if Is_Bad_Spelling_Of (Token_Name, Aspect_Names (J)) then
+               if J /= No_Aspect and then
+                  Is_Bad_Spelling_Of (Token_Name, Aspect_Names (J))
+               then
                   Error_Msg_Name_1 := Aspect_Names (J);
                   Error_Msg_SC -- CODEFIX
                     ("\possible misspelling of%");

diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c
index dbfab4ec804cff40b5b21fb01c286c81fa9285f7..8583784c04a1d72c44fe0d8f48698c26b453d6cf 100644 (file)
--- a/gcc/ada/s-oscons-tmplt.c
+++ b/gcc/ada/s-oscons-tmplt.c
@@ -267,7 +267,7 @@ C("Target_OS", OS_Type, TARGET_OS, "")
 /*
    pragma Warnings (Off, Target_OS);
    --  Suppress warnings on Target_OS since it is in general tested for
-   --  equality with a constant valueto implement conditional compilation,
+   --  equality with a constant value to implement conditional compilation,
    --  which normally generates a constant condition warning.
 
 */

diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb
index da0e9011379b8d9668c57894ec3ee4f8fb0805b2..d2e9d9169d4e8af214c48366ad893ec2ef5d6858 100644 (file)
--- a/gcc/ada/sem_ch5.adb
+++ b/gcc/ada/sem_ch5.adb
@@ -2226,17 +2226,7 @@ package body Sem_Ch5 is
          --  Ada 2012: If the domain of iteration is a function call, it is the
          --  new iterator form.
 
-         --  We have also implemented the shorter form : for X in S for Alfa
-         --  use. In this case, 'Old and 'Result must be treated as entity
-         --  names over which iterators are legal.
-
          if Nkind (DS_Copy) = N_Function_Call
-           or else
-             (Alfa_Mode
-               and then (Nkind (DS_Copy) = N_Attribute_Reference
-               and then
-                 (Attribute_Name (DS_Copy) = Name_Result
-                   or else Attribute_Name (DS_Copy) = Name_Old)))
            or else
              (Is_Entity_Name (DS_Copy)
                and then not Is_Type (Entity (DS_Copy)))

diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb
index 1b34c03bc86066e9f2a183511e61dc70af532ba3..e033afa97dfa1bdb9602463c898bff647260c483 100644 (file)
--- a/gcc/ada/sem_ch9.adb
+++ b/gcc/ada/sem_ch9.adb
@@ -350,9 +350,9 @@ package body Sem_Ch9 is
                                         Get_Aspect_Id (Asp_Name);
 
                         begin
-                           if Asp_Id = Aspect_Address
-                             or else Asp_Id = Aspect_Export
-                             or else Asp_Id = Aspect_Import
+                           if Asp_Id = Aspect_Address or else
+                              Asp_Id = Aspect_Export  or else
+                              Asp_Id = Aspect_Import
                            then
                               Error_Msg_Name_1 := Asp_Name;