yggdrasil/gcc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Ada] reenable ada83 library unit renaming error

Browse Source 
for  gcc/ada/ChangeLog

	* par-ch10.adb (P_Compilation_Unit): Reenable ada83 library
	unit renaming test and error.
This commit is contained in:
Alexandre Oliva
2021-10-14 01:49:44 -03:00
committed by Alexandre Oliva
parent 2f9529fc62
commit ee9fa8a579
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gcc/ada/par-ch10.adb
+5 -4
View File
@@ -532,13 +532,14 @@ package body Ch10 is
| N_Subprogram_Body
| N_Subprogram_Renaming_Declaration
then
Unit_Node := Specification (Unit_Node);
elsif Nkind (Unit_Node) = N_Subprogram_Renaming_Declaration then
if Ada_Version = Ada_83 then
if Nkind (Unit_Node) = N_Subprogram_Renaming_Declaration
and then Ada_Version = Ada_83
then
Error_Msg_N
("(Ada 83) library unit renaming not allowed", Unit_Node);
end if;
Unit_Node := Specification (Unit_Node);
end if;
if Nkind (Unit_Node) in N_Task_Body