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

[Ada] Reuse Is_Named_Number where possible

Browse Source 
gcc/ada/

	* sem_ch13.adb (Check_Expr_Constants): Simplify with
	Is_Named_Number.
	* sem_prag.adb (Process_Convention): Likewise.
This commit is contained in:
Piotr Trojanek 2020-10-15 00:55:16 +02:00 committed by Pierre-Marie de Rodat
parent 28488f5ff5
commit 6d97121d2f
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_ch13.adb
View File

@ -11120,9 +11120,7 @@ package body Sem_Ch13 is
-- Otherwise look at the identifier and see if it is OK
if Ekind (Ent) in E_Named_Integer | E_Named_Real
or else Is_Type (Ent)
then
if Is_Named_Number (Ent) or else Is_Type (Ent) then
return;
elsif Ekind (Ent) in E_Constant | E_In_Parameter then

2
gcc/ada/sem_prag.adb
View File

@ -8119,7 +8119,7 @@ package body Sem_Prag is
-- Check that we are not applying this to a named constant
if Ekind (E) in E_Named_Integer | E_Named_Real then
if Is_Named_Number (E) then
Error_Msg_Name_1 := Pname;
Error_Msg_N
("cannot apply pragma% to named constant!",