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

[Ada] Do not clear Is_True_Constant flag on imported constants 

gcc/ada/

	* sem_prag.adb (Process_Import_Or_Interface): Do not
	artificially record a possible modification for a constant.
This commit is contained in:
Eric Botcazou 2021-03-16 10:24:39 +01:00 committed by Pierre-Marie de Rodat
parent a30647690d
commit 2a8dbd6b24
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/ada/sem_prag.adb
View File

@ -9136,7 +9136,10 @@ package body Sem_Prag is
Def_Id := Entity (Def_Id);
Kill_Size_Check_Code (Def_Id);
Note_Possible_Modification (Get_Pragma_Arg (Arg1), Sure => False);
if Ekind (Def_Id) /= E_Constant then
Note_Possible_Modification
(Get_Pragma_Arg (Arg1), Sure => False);
end if;
else
Process_Convention (C, Def_Id);
@ -9146,7 +9149,10 @@ package body Sem_Prag is
Mark_Ghost_Pragma (N, Def_Id);
Kill_Size_Check_Code (Def_Id);
Note_Possible_Modification (Get_Pragma_Arg (Arg2), Sure => False);
if Ekind (Def_Id) /= E_Constant then
Note_Possible_Modification
(Get_Pragma_Arg (Arg2), Sure => False);
end if;
end if;
-- Various error checks