Commit dc7c0c4d by Arnaud Charlet

* exp_util.adb: Minor reformatting

From-SVN: r136089
parent 3294a391
...@@ -908,9 +908,9 @@ package body Exp_Util is ...@@ -908,9 +908,9 @@ package body Exp_Util is
function Component_May_Be_Bit_Aligned (Comp : Entity_Id) return Boolean is function Component_May_Be_Bit_Aligned (Comp : Entity_Id) return Boolean is
begin begin
-- If no component clause, then everything is fine, since the -- If no component clause, then everything is fine, since the back end
-- back end never bit-misaligns by default, even if there is -- never bit-misaligns by default, even if there is a pragma Packed for
-- a pragma Packed for the record. -- the record.
if No (Component_Clause (Comp)) then if No (Component_Clause (Comp)) then
return False; return False;
...@@ -933,8 +933,8 @@ package body Exp_Util is ...@@ -933,8 +933,8 @@ package body Exp_Util is
then then
return False; return False;
-- Otherwise if the component is not byte aligned, we -- Otherwise if the component is not byte aligned, we know we have the
-- know we have the nasty unaligned case. -- nasty unaligned case.
elsif Normalized_First_Bit (Comp) /= Uint_0 elsif Normalized_First_Bit (Comp) /= Uint_0
or else Esize (Comp) mod System_Storage_Unit /= Uint_0 or else Esize (Comp) mod System_Storage_Unit /= Uint_0
...@@ -4039,8 +4039,8 @@ package body Exp_Util is ...@@ -4039,8 +4039,8 @@ package body Exp_Util is
begin begin
-- If we know the component size and it is less than 64, then -- If we know the component size and it is less than 64, then
-- we are definitely OK. The back end always does assignment -- we are definitely OK. The back end always does assignment of
-- of misaligned small objects correctly. -- misaligned small objects correctly.
if Known_Static_Component_Size (Ptyp) if Known_Static_Component_Size (Ptyp)
and then Component_Size (Ptyp) <= 64 and then Component_Size (Ptyp) <= 64
......
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