mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 11:10:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Fix spurious error on child library-level subprogram with aspects

Browse Source 
gcc/ada/

	* sem_ch10.adb (Analyze_Compilation_Unit): Move aspects from
	body to the newly created spec.
This commit is contained in:
Yannick Moy 2020-09-29 09:03:18 +02:00 committed by Pierre-Marie de Rodat
parent 1cc9ecae0a
commit 91edb3f66c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/sem_ch10.adb
View File

@ -828,6 +828,7 @@ package body Sem_Ch10 is
-- of the child unit does not act as spec any longer.
Set_Acts_As_Spec (N, False);
Move_Aspects (From => Unit_Node, To => Unit (Lib_Unit));
Set_Is_Child_Unit (Defining_Entity (Unit_Node));
Set_Debug_Info_Needed (Defining_Entity (Unit (Lib_Unit)));
Set_Comes_From_Source_Default (SCS);