freeze.adb, [...]: Minor reformatting.

2011-12-12  Robert Dewar  <dewar@adacore.com>

	* freeze.adb, s-taprop-mingw.adb, exp_disp.adb, sem_ch13.adb: Minor
	reformatting.

From-SVN: r182241

gcc/ada/ChangeLog

 2011-12-12  Robert Dewar  <dewar@adacore.com>
 
+	* freeze.adb, s-taprop-mingw.adb, exp_disp.adb, sem_ch13.adb: Minor
+	reformatting.
+
+2011-12-12  Robert Dewar  <dewar@adacore.com>
+
 	* sem_ch6.adb, gnatls.adb: Minor reformatting.
 
 2011-12-12  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/exp_disp.adb

@@ -7170,8 +7170,8 @@ package body Exp_Disp is
                  Make_Object_Declaration (Loc,
                    Defining_Identifier => Predef_Prims_Ptr,
                    Constant_Present    => True,
-                   Object_Definition   => New_Reference_To
-                                               (RTE (RE_Address), Loc),
+                   Object_Definition   =>
+                     New_Reference_To (RTE (RE_Address), Loc),
                    Expression          =>
                      Make_Attribute_Reference (Loc,
                        Prefix         =>
@@ -7198,7 +7198,8 @@ package body Exp_Disp is
                              Prefix => New_Reference_To (DT, Loc),
                              Selector_Name =>
                                New_Occurrence_Of
-                               (RTE_Record_Component (RE_NDT_Prims_Ptr), Loc)),
+                                 (RTE_Record_Component (RE_NDT_Prims_Ptr),
+                                  Loc)),
                          Attribute_Name => Name_Address))));
             end if;
 
@@ -7313,10 +7314,12 @@ package body Exp_Disp is
                           Make_Attribute_Reference (Loc,
                             Prefix         =>
                               Make_Selected_Component (Loc,
-                                Prefix => New_Reference_To (Iface_DT, Loc),
+                                Prefix        =>
+                                  New_Reference_To (Iface_DT, Loc),
                                 Selector_Name =>
                                   New_Occurrence_Of
-                                  (RTE_Record_Component (RE_Prims_Ptr), Loc)),
+                                    (RTE_Record_Component (RE_Prims_Ptr),
+                                     Loc)),
                             Attribute_Name => Name_Address))));
                end if;
 
@@ -7773,7 +7776,8 @@ package body Exp_Disp is
                    Address_Node =>
                      Unchecked_Convert_To (RTE (RE_Prim_Ptr),
                        Make_Attribute_Reference (Loc,
-                         Prefix => New_Reference_To (Alias (Prim), Loc),
+                         Prefix          =>
+                           New_Reference_To (Alias (Prim), Loc),
                          Attribute_Name  => Name_Unrestricted_Access))));
 
             else
@@ -7804,7 +7808,8 @@ package body Exp_Disp is
                    Address_Node =>
                      Unchecked_Convert_To (RTE (RE_Prim_Ptr),
                        Make_Attribute_Reference (Loc,
-                         Prefix => New_Reference_To (Alias (Prim), Loc),
+                         Prefix         =>
+                           New_Reference_To (Alias (Prim), Loc),
                          Attribute_Name => Name_Unrestricted_Access))));
 
             end if;

gcc/ada/freeze.adb

@@ -3040,7 +3040,7 @@ package body Freeze is
          --  nable and used in subsequent checks, so might as well try to
          --  compute it.
 
-         --  In Ada2012, freeze entities is also used in the front-end to
+         --  In Ada 2012, Freeze_Entities is also used in the front end to
          --  trigger the analysis of aspect expressions, so in this case we
          --  want to continue the freezing process.
 

gcc/ada/s-taprop-mingw.adb

@@ -698,7 +698,18 @@ package body System.Task_Primitives.Operations is
 
    procedure Yield (Do_Yield : Boolean := True) is
       pragma Unreferenced (Do_Yield);
+
    begin
+      --  Note: in a previous implementation if Do_Yield was False, then we
+      --  introduced a delay of 1 millisecond in an attempt to get closer to
+      --  annex D semantics, and in particular to make ACATS CXD8002 pass. But
+      --  this change introduced a huge performance regression evaluating the
+      --  Count attribute. So we decided to remove this processing and just
+      --  call SwitchToThread unconditionally (leaving Do_Yield unreferenced).
+
+      --  This means that CXD8002 does not pass on Windows, but we cannot
+      --  guarantee full Annex D compliance on Windows in any case.
+
       SwitchToThread;
    end Yield;
 

gcc/ada/sem_ch13.adb

@@ -5881,8 +5881,8 @@ package body Sem_Ch13 is
 
       else
          --  In a generic context the aspect expressions have not been
-         --  preanalyzed, so do it now.
-         --  There are no conformance checks to perform in this case.
+         --  preanalyzed, so do it now. There are no conformance checks
+         --  to perform in this case.
 
          if No (T) then
             Check_Aspect_At_Freeze_Point (ASN);