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

From-SVN: r165292

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index be1da2d7af15bc69ac33aa4bb08c5f7bd11e3c8a..9fca74b674f777b5596823ac8e66a892204d1696 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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,

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 3cd4c767845aae206ce2d1bfbb1ca4c33f303ff4..93ad74d217ca1b958ea157b9921e29f5ea2e8eb0 100644 (file)
--- a/gcc/ada/sem_res.adb
+++ b/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));

diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 29021aa3e2825eee54340dff9cef3f8718e13a12..eea7fcbc97f14c6d3ace324ba72f29b20573982a 100644 (file)
--- a/gcc/ada/xr_tabls.adb
+++ b/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' =>