diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-28 15:48:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-28 15:48:18 +0200 |
| commit | dc7c0c4dfaba39b8f9532e29e2467e4f2c16b815 (patch) | |
| tree | 74d45b83d3de0649454f93431867cc80e2e4bacf /gcc/ada | |
| parent | 3294a391cbf1f4a58dbcc8e438fd195cb004a4ad (diff) | |
| download | gcc-dc7c0c4dfaba39b8f9532e29e2467e4f2c16b815.tar.gz | |
* exp_util.adb: Minor reformatting
From-SVN: r136089
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_util.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 058c549525e..d41a6bc383c 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 |