diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-12-14 14:49:02 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-04-29 04:00:46 -0400 |
| commit | c3ccc5d2ad10ee438eb1bc8effab2f45c5b28100 (patch) | |
| tree | e12b0d44f30ed7f2a711f9ea80a719d95accee07 /gcc/ada/layout.adb | |
| parent | 1c3d8c33b10fccd62561047b41dc4c055614637b (diff) | |
| download | gcc-c3ccc5d2ad10ee438eb1bc8effab2f45c5b28100.zip gcc-c3ccc5d2ad10ee438eb1bc8effab2f45c5b28100.tar.gz gcc-c3ccc5d2ad10ee438eb1bc8effab2f45c5b28100.tar.bz2 | |
[Ada] Refine type of a local size variable
gcc/ada/
* layout.adb (Layout_Type): Refine type of a local variable with
the required size of object from Int to Pos (it is initialized
with 8 and only multiplied by 2); fix unbalanced parens in
comment.
Diffstat (limited to 'gcc/ada/layout.adb')
| -rw-r--r-- | gcc/ada/layout.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index ad80849..0c65870 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -368,7 +368,7 @@ package body Layout is if not Known_Esize (E) then declare - S : Int := 8; + S : Pos := 8; begin loop @@ -381,7 +381,7 @@ package body Layout is -- If the RM_Size is greater than System_Max_Integer_Size -- (happens only when strange values are specified by the -- user), then Esize is simply a copy of RM_Size, it will - -- be further refined later on). + -- be further refined later on. elsif S = System_Max_Integer_Size then Set_Esize (E, RM_Size (E)); |