* xr_tabls.adb, sem_res.adb: Minor reformattingem_res.adb

From-SVN: r165292

gcc/ada/ChangeLog

 2010-10-11  Arnaud Charlet  <charlet@adacore.com>
 
+	* xr_tabls.adb, sem_res.adb: Minor reformatting
+
+2010-10-11  Arnaud Charlet  <charlet@adacore.com>
+
 	* gnat_rm.texi, exp_attr.adb, sem_attr.adb, sem_attr.ads,
 	snames.ads-tmpl (Analyze_Attribute, Expand_N_Attribute_Reference): Add
 	handling of Attribute_Ref. Add missing blanks in some error messages.

gcc/ada/sem_res.adb

@@ -8380,9 +8380,9 @@ package body Sem_Res is
             if not Tagged_Type_Expansion
               or else not
                 (RTU_Loaded (Ada_Tags)
-                   and then Nkind (Prefix (N)) = N_Selected_Component
-                   and then Present (Entity (Selector_Name (Prefix (N))))
-                   and then Entity (Selector_Name (Prefix (N))) =
+                  and then Nkind (Prefix (N)) = N_Selected_Component
+                  and then Present (Entity (Selector_Name (Prefix (N))))
+                  and then Entity (Selector_Name (Prefix (N))) =
                                          RTE_Record_Component (RE_Prims_Ptr))
             then
                Apply_Range_Check (Drange, Etype (Index));

gcc/ada/xr_tabls.adb

@@ -453,11 +453,10 @@ package body Xr_Tabls is
          Source_Line => null,
          Next        => null);
 
-      --  We can insert the reference in the list directly, since all
-      --  the references will appear only once in the ALI file
-      --  corresponding to the file where they are referenced.
-      --  This saves a lot of time compared to checking the list to check
-      --  if it exists.
+      --  We can insert the reference into the list directly, since all the
+      --  references will appear only once in the ALI file corresponding to the
+      --  file where they are referenced. This saves a lot of time compared to
+      --  checking the list to check if it exists.
 
       case Ref_Type is
          when 'b' | 'c' =>