From dc7c0c4dfaba39b8f9532e29e2467e4f2c16b815 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 28 May 2008 15:48:18 +0200 Subject: [PATCH] * exp_util.adb: Minor reformatting From-SVN: r136089 --- gcc/ada/exp_util.adb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 058c549..d41a6bc 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -908,9 +908,9 @@ package body Exp_Util is function Component_May_Be_Bit_Aligned (Comp : Entity_Id) return Boolean is begin - -- If no component clause, then everything is fine, since the - -- back end never bit-misaligns by default, even if there is - -- a pragma Packed for the record. + -- If no component clause, then everything is fine, since the back end + -- never bit-misaligns by default, even if there is a pragma Packed for + -- the record. if No (Component_Clause (Comp)) then return False; @@ -933,8 +933,8 @@ package body Exp_Util is then return False; - -- Otherwise if the component is not byte aligned, we - -- know we have the nasty unaligned case. + -- Otherwise if the component is not byte aligned, we know we have the + -- nasty unaligned case. elsif Normalized_First_Bit (Comp) /= Uint_0 or else Esize (Comp) mod System_Storage_Unit /= Uint_0 @@ -4039,8 +4039,8 @@ package body Exp_Util is begin -- If we know the component size and it is less than 64, then - -- we are definitely OK. The back end always does assignment - -- of misaligned small objects correctly. + -- we are definitely OK. The back end always does assignment of + -- misaligned small objects correctly. if Known_Static_Component_Size (Ptyp) and then Component_Size (Ptyp) <= 64 -- 2.7.4