[gcc/devel/gccgo] [Ada] Change how we detect internal protected subprograms

[Ian Lance Taylor]

https://gcc.gnu.org/g:eb6dc6f301e444c3644fc209c786c7edb9bb238d

commit eb6dc6f301e444c3644fc209c786c7edb9bb238d
Author: Richard Kenner <kenner@adacore.com>
Date:   Tue Apr 7 16:15:59 2020 -0400

    [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.

Diff:
---
 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 953d449bbc9..c922300f3d4 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;