From 67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Thu, 9 Nov 2017 15:08:55 +0000 Subject: [PATCH] exp_util.adb, freeze.adb: Minor reformatting. 2017-11-09 Gary Dismukes * exp_util.adb, freeze.adb: Minor reformatting. From-SVN: r254587 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_util.adb | 4 ++-- gcc/ada/freeze.adb | 1 - 3 files changed, 6 insertions(+), 3 deletions(-) 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 + + * exp_util.adb, freeze.adb: Minor reformatting. + 2017-11-09 Jerome Lambourg * 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); -- 2.30.2