Commit 67cc7a30 by Gary Dismukes Committed by Pierre-Marie de Rodat

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
parent 9b4473b6
2017-11-09 Gary Dismukes <dismukes@adacore.com>
* exp_util.adb, freeze.adb: Minor reformatting.
2017-11-09 Jerome Lambourg <lambourg@adacore.com> 2017-11-09 Jerome Lambourg <lambourg@adacore.com>
* gcc-interface/Makefile.in: Add rules to build aarch64-qnx runtimes. * gcc-interface/Makefile.in: Add rules to build aarch64-qnx runtimes.
......
...@@ -11011,11 +11011,11 @@ package body Exp_Util is ...@@ -11011,11 +11011,11 @@ package body Exp_Util is
Scope_Suppress.Suppress := (others => True); 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 -- 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 -- 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 -- 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 -- an infinite recursion with Checks.Apply_Predicate_Check if the target
-- type has predicates (and type conversions need a specific treatment -- type has predicates (and type conversions need a specific treatment
-- anyway, see below). Also do it if we have a volatile reference and -- anyway, see below). Also do it if we have a volatile reference and
......
...@@ -2787,7 +2787,6 @@ package body Freeze is ...@@ -2787,7 +2787,6 @@ package body Freeze is
elsif Csiz mod System_Storage_Unit = 0 elsif Csiz mod System_Storage_Unit = 0
and then Is_Composite_Type (Ctyp) and then Is_Composite_Type (Ctyp)
then then
Set_Is_Packed (Base_Type (Arr), True); Set_Is_Packed (Base_Type (Arr), True);
Set_Has_Non_Standard_Rep (Base_Type (Arr), True); Set_Has_Non_Standard_Rep (Base_Type (Arr), True);
Set_Is_Bit_Packed_Array (Base_Type (Arr), False); Set_Is_Bit_Packed_Array (Base_Type (Arr), False);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment