From 0c6eef3096edafbcc857319efff2377dd63be7cb Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 16 Dec 2019 11:18:59 +0100 Subject: [PATCH] [Ada] Use Standard.Natural on bit references to packed arrays 2020-06-02 Eric Botcazou gcc/ada/ * exp_pakd.adb (Expand_Packed_Bit_Reference): Change type of reference from Universal_Integer to Standard_Natural. --- gcc/ada/exp_pakd.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 7dcf241e247..d125db17b32 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; ------------------------------------ -- 2.30.2