exp_disp.adb: Minor reformatting

2010-06-16  Robert Dewar  <dewar@adacore.com>

	* exp_disp.adb: Minor reformatting

From-SVN: r160844

gcc/ada/exp_disp.adb

@@ -1528,17 +1528,16 @@ package body Exp_Disp is
       Formal        := First (Formals);
       while Present (Formal) loop
 
-         --  Handle concurrent types.
+         --  Handle concurrent types
 
          if Ekind (Target_Formal) = E_In_Parameter
            and then Ekind (Etype (Target_Formal)) = E_Anonymous_Access_Type
          then
             Ftyp := Directly_Designated_Type (Etype (Target_Formal));
          else
-
-            --  if the parent is a constrained discriminated type. the
+            --  If the parent is a constrained discriminated type, then the
             --  primitive operation will have been defined on a first subtype.
-            --  for proper matching with controlling type, use base type.
+            --  For proper matching with controlling type, use base type.
 
             Ftyp := Base_Type (Etype (Target_Formal));
          end if;