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

[Ada] Fix compile time evaluation of shift intrinsics 

gcc/ada/

	* sem_eval.adb (Fold_Shift): Compute values using the base type.
This commit is contained in:
Arnaud Charlet 2020-11-20 10:18:22 -05:00 committed by Pierre-Marie de Rodat
parent b97b4e6f71
commit 415791cf5c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/sem_eval.adb
View File

@ -4785,7 +4785,7 @@ package body Sem_Eval is
Static : Boolean := False;
Check_Elab : Boolean := False)
is
Typ : constant Entity_Id := Etype (Left);
Typ : constant Entity_Id := Base_Type (Etype (Left));
procedure Check_Elab_Call;
-- Add checks related to calls in elaboration code