mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 13:30:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

ada: Disable checking of Elab_Spec procedures in CodePeer_Mode

Browse Source 
This commit re-enables the Validate_Subprogram_Calls check that had been
disabled in a previous commit and has said check skip over Elab_Spec
procedures in CodePeer_Mode.

gcc/ada/

	* frontend.adb (Frontend): Re-enable Validate_Subprogram_Calls.
	* exp_ch6.adb (Check_BIP_Actuals): When in CodePeer mode, do not
	attempt to validate procedures coming from an
	Elab_Spec/Elab_Body/Elab_Subp_Body procedure.
This commit is contained in:
Ghjuvan Lacambre 2022-11-18 16:05:12 +01:00 committed by Marc Poulhiès
parent 29b7e00589
commit 05894d1c5c
2 changed files with 18 additions and 1 deletions

17
gcc/ada/exp_ch6.adb

@ -1115,6 +1115,23 @@ package body Exp_Ch6 is
| N_Function_Call
| N_Procedure_Call_Statement);
-- In CodePeer_Mode, the tree for `'Elab_Spec` procedures will be
-- malformed because GNAT does not perform the usual expansion that
-- results in the importation of external elaboration procedure symbols.
-- This is expected: the CodePeer backend has special handling for this
-- malformed tree.
-- Thus, we do not need to check the tree (and in fact can't, because
-- it's malformed).
if CodePeer_Mode
and then Nkind (Name (Subp_Call)) = N_Attribute_Reference
and then Attribute_Name (Name (Subp_Call)) in Name_Elab_Spec
| Name_Elab_Body
| Name_Elab_Subp_Body
then
return True;
end if;
Formal := First_Formal_With_Extras (Subp_Id);
Actual := First_Actual (Subp_Call);

2
gcc/ada/frontend.adb

@ -531,7 +531,7 @@ begin
-- formals). It is invoked using pragma Debug to avoid adding any cost
-- when the compiler is built with assertions disabled.
if not Debug_Flag_Underscore_XX and then not CodePeer_Mode then
if not Debug_Flag_Underscore_XX then
pragma Debug (Exp_Ch6.Validate_Subprogram_Calls (Cunit (Main_Unit)));
end if;