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 71a2d70761e2fd15c7bd0ec0526a23f8a5c4ea60..0c9332a581bf740fdae3feb3d0c00968710836a3 100644 (file)
--- 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 5999d77f3322f0c7dcfc124e050a35ee3c4907f5..6ebcc4c9794b19746ec6139f54ecf91c313b1fd5 100644 (file)
--- 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 ba81a55cfa51bb621b6659a71a53cf22eac177c3..bc7694cd1701b9b55a078cdea94382b05d4ac46a 100644 (file)
--- 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);