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

[Ada] Don't create calls to Abort_Undefer when not Abort_Allowed

Browse Source 
Prevent creation of references to Abort_Undefer when aborts aren't
allowed. Another solution could have been an early return at
Expand_N_Asynchronous_Select's beginning, but this would break backends
that currently expect trees that do not contain any
N_Asynchronous_Selects in their AST (e.g. CodePeer).

gcc/ada/

	* exp_ch9.adb (Expand_N_Asynchronous_Select): Don't generate
	Abort_Undefers when not Abort_Allowed.
This commit is contained in:
Ghjuvan Lacambre 2022-03-15 10:57:45 +01:00 committed by Pierre-Marie de Rodat
parent 98208e364c
commit 6e2d6b8e8e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/exp_ch9.adb
View File

@ -7812,7 +7812,9 @@ package body Exp_Ch9 is
Hdle := New_List (Build_Abort_Block_Handler (Loc));
Prepend_To (Astats, Build_Runtime_Call (Loc, RE_Abort_Undefer));
if Abort_Allowed then
Prepend_To (Astats, Build_Runtime_Call (Loc, RE_Abort_Undefer));
end if;
Abortable_Block :=
Make_Block_Statement (Loc,