diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2017-11-09 15:08:55 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-11-09 15:08:55 +0000 |
| commit | 67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe (patch) | |
| tree | 6944f43c5de4246d6891ebf15e6cf68e4c6f879d /gcc | |
| parent | 9b4473b6c4a706cd5d38a50d10a83c549d676ca3 (diff) | |
| download | gcc-67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe.zip gcc-67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe.tar.gz gcc-67cc7a3007ec0ae7433bdb66bc9de5e306d2bdbe.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_util.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/freeze.adb | 1 |
3 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 71a2d70..0c9332a 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 5999d77..6ebcc4c 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 ba81a55..bc7694c 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); |