From dd3e1ff52932c9093fa88a9dac4fd586536c4279 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 24 Jun 2009 11:11:43 +0200 Subject: [multiple changes] 2009-06-24 Robert Dewar * exp_ch6.adb: Minor reformatting * layout.adb: Minor reformatting * make.adb: Minor reformatting 2009-06-24 Thomas Quinot * sem_ch10.adb: Minor code reorganization. From-SVN: r148898 --- gcc/ada/layout.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/layout.adb') diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 6cce7b9..69772d6 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 -- cgit v1.1