From: Gary Dismukes <dismukes@adacore.com>
Date: Thu, 9 Nov 2017 15:08:55 +0000 (+0000)
Subject: exp_util.adb, freeze.adb: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe;p=gcc.git

exp_util.adb, freeze.adb: Minor reformatting.

2017-11-09  Gary Dismukes  <dismukes@adacore.com>

	* exp_util.adb, freeze.adb: Minor reformatting.

From-SVN: r254587
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 71a2d70761e..0c9332a581b 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2017-11-09  Gary Dismukes  <dismukes@adacore.com>
+
+	* exp_util.adb, freeze.adb: Minor reformatting.
+
 2017-11-09  Jerome Lambourg  <lambourg@adacore.com>
 
 	* gcc-interface/Makefile.in: Add rules to build aarch64-qnx runtimes.
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 5999d77f332..6ebcc4c9794 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -11011,11 +11011,11 @@ package body Exp_Util is
 
       Scope_Suppress.Suppress := (others => True);
 
-      --  If this is an elementary or a small not by-reference record type, and
+      --  If this is an elementary or a small not-by-reference record type, and
       --  we need to capture the value, just make a constant; this is cheap and
       --  objects of both kinds of types can be bit aligned, so it might not be
       --  possible to generate a reference to them. Likewise if this is not a
-      --  name reference, except for a type conversion because we would enter
+      --  name reference, except for a type conversion, because we would enter
       --  an infinite recursion with Checks.Apply_Predicate_Check if the target
       --  type has predicates (and type conversions need a specific treatment
       --  anyway, see below). Also do it if we have a volatile reference and
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index ba81a55cfa5..bc7694cd170 100644
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -2787,7 +2787,6 @@ package body Freeze is
                      elsif Csiz mod System_Storage_Unit = 0
                        and then Is_Composite_Type (Ctyp)
                      then
-
                         Set_Is_Packed            (Base_Type (Arr), True);
                         Set_Has_Non_Standard_Rep (Base_Type (Arr), True);
                         Set_Is_Bit_Packed_Array  (Base_Type (Arr), False);