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

From-SVN: r165292

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

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 3cd4c76..93ad74d 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 29021aa..eea7fcb 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' =>