From eb6dc6f301e444c3644fc209c786c7edb9bb238d Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Tue, 7 Apr 2020 16:15:59 -0400 Subject: [PATCH] [Ada] Change how we detect internal protected subprograms 2020-06-16 Richard Kenner gcc/ada/ * exp_unst.adb (Subp_Index): Change way we detect internal protected subprograms. --- gcc/ada/exp_unst.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 953d449..c922300 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -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; -- 2.7.4