diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-24 09:11:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-24 09:11:43 +0000 |
| commit | 45cedf2ed41b5c0b4c28fb5d8105f38339277c0b (patch) | |
| tree | c0fd9d73501cb1aff6eb977d385a6853104cabf1 /gcc/ada/layout.adb | |
| parent | 09001c4f0b2d79bba0028262f4691bbcb3ac5403 (diff) | |
| download | gcc-45cedf2ed41b5c0b4c28fb5d8105f38339277c0b.tar.gz | |
2009-06-24 Robert Dewar <dewar@adacore.com>
* exp_ch6.adb: Minor reformatting
* layout.adb: Minor reformatting
* make.adb: Minor reformatting
2009-06-24 Thomas Quinot <quinot@adacore.com>
* sem_ch10.adb: Minor code reorganization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148898 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 6cce7b91e60..69772d69290 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -3055,8 +3055,9 @@ package body Layout is -- the type, or the maximum allowed alignment. declare - S : constant Int := UI_To_Int (Esize (E)) / SSU; - Max_Alignment, A : Nat; + S : constant Int := UI_To_Int (Esize (E)) / SSU; + A : Nat; + Max_Alignment : Nat; begin -- If the default alignment of "double" floating-point types is |