From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 11 Oct 2010 10:03:01 +0000 (+0000)
Subject: * xr_tabls.adb, sem_res.adb: Minor reformattingem_res.adb
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=cead616d5659c95f8981a1b1f735fa7aea02de0f;p=gcc.git

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

From-SVN: r165292
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index be1da2d7af1..9fca74b674f 100644
--- 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 3cd4c767845..93ad74d217c 100644
--- 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 29021aa3e28..eea7fcbc97f 100644
--- 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' =>