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

[Ada] Fix repeated generation of dispatch tables in CodePeer mode

Browse Source 
gcc/ada/

	* exp_disp.adb (Make_DT): Move call to Set_Has_Dispatch_Table,
	so it is executed regardless of the Generate_SCIL mode.
This commit is contained in:
Piotr Trojanek 2021-06-25 12:45:57 +02:00 committed by Pierre-Marie de Rodat
parent 325443d24b
commit 7a8e133af2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ada/exp_disp.adb
View File

@ -6610,7 +6610,6 @@ package body Exp_Disp is
Append_Elmt (DT, DT_Decl);
Analyze_List (Result, Suppress => All_Checks);
Set_Has_Dispatch_Table (Typ);
-- Mark entities containing dispatch tables. Required by the backend to
-- handle them properly.
@ -6643,6 +6642,8 @@ package body Exp_Disp is
<<Leave_SCIL>>
Set_Has_Dispatch_Table (Typ);
-- Register the tagged type in the call graph nodes table
Register_CG_Node (Typ);