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

[Ada] Change how we detect internal protected subprograms 

2020-06-16  Richard Kenner  <kenner@adacore.com>

gcc/ada/

	* exp_unst.adb (Subp_Index): Change way we detect internal
	protected subprograms.
This commit is contained in:
Richard Kenner 2020-04-07 16:15:59 -04:00 committed by Pierre-Marie de Rodat
parent 27e64b8451
commit eb6dc6f301
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/exp_unst.adb
View File

@ -282,7 +282,7 @@ package body Exp_Unst is
-- has been scanned at this point, and thus has an entry in the
-- subprogram table.
if E = Sub and then Convention (E) = Convention_Protected then
if E = Sub and then Present (Protected_Body_Subprogram (E)) then
E := Protected_Body_Subprogram (E);
end if;