OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Use Standard.Natural on bit references to packed arrays

Browse Source 
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.
This commit is contained in:
Eric Botcazou 2019-12-16 11:18:59 +01:00 committed by Pierre-Marie de Rodat
parent ea55d344b1
commit 0c6eef3096
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/exp_pakd.adb
View File

@ -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;
------------------------------------