diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-12-16 11:18:59 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-02 04:58:11 -0400 |
| commit | 0c6eef3096edafbcc857319efff2377dd63be7cb (patch) | |
| tree | df3abfe2476b77d4dc08df37f261444126068ab0 /gcc/ada | |
| parent | ea55d344b17b19b866cdc189268547d677959cb1 (diff) | |
| download | gcc-0c6eef3096edafbcc857319efff2377dd63be7cb.zip gcc-0c6eef3096edafbcc857319efff2377dd63be7cb.tar.gz gcc-0c6eef3096edafbcc857319efff2377dd63be7cb.tar.bz2 | |
[Ada] Use Standard.Natural on bit references to packed arrays
2020-06-02 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* exp_pakd.adb (Expand_Packed_Bit_Reference): Change type of
reference from Universal_Integer to Standard_Natural.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 7dcf241..d125db1 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1520,12 +1520,12 @@ package body Exp_Pakd is Get_Base_And_Bit_Offset (Prefix (N), Base, Offset); Rewrite (N, - Unchecked_Convert_To (Universal_Integer, + Unchecked_Convert_To (Standard_Natural, Make_Op_Mod (Loc, Left_Opnd => Offset, Right_Opnd => Make_Integer_Literal (Loc, System_Storage_Unit)))); - Analyze_And_Resolve (N, Universal_Integer); + Analyze_And_Resolve (N, Standard_Natural); end Expand_Packed_Bit_Reference; ------------------------------------ |