diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 13:09:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 13:09:52 +0000 |
| commit | b43a577091bfbb4df6ed66fcb603ef46243bef3b (patch) | |
| tree | 8570b4be17dc236ce4fd50453943fe986c7c24b7 /gcc/ada/layout.adb | |
| parent | a940e5c94021c06e58a4fdca57db328ff599307e (diff) | |
| download | gcc-b43a577091bfbb4df6ed66fcb603ef46243bef3b.tar.gz | |
2012-07-09 Robert Dewar <dewar@adacore.com>
* layout.adb, i-cstrea.ads, a-ststio.ads, prj-util.ads, sem_cat.adb,
s-commun.ads, s-ficobl.ads, s-os_lib.ads, s-fileio.ads: Minor
reformatting.
2012-07-09 Eric Botcazou <ebotcazou@adacore.com>
* raise-gcc.c: Update comments. Fix typo.
2012-07-09 Thomas Quinot <quinot@adacore.com>
* einfo.adb, einfo.ads, sem_attr.adb, sem_ch13.adb: Attribute
Scalar_Storage_Order can be defined or queried for array types as well
as record types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189376 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index c026dfeac49..7696e5937c0 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -3103,18 +3103,17 @@ package body Layout is -- the type, or the maximum allowed alignment. declare - S : Int; + S : Int; + A : Nat; - A : Nat; Max_Alignment : Nat; begin - -- The given esize may be larger that int'last because of a previous + -- The given Esize may be larger that int'last because of a previous -- error, and the call to UI_To_Int will fail, so use default. if Esize (E) / SSU > Ttypes.Maximum_Alignment then S := Ttypes.Maximum_Alignment; - else S := UI_To_Int (Esize (E)) / SSU; end if; |