[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 --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 953d449bbc93d0b800872097b8c0a78587748bf6..c922300f3d49a907e72cd4c6b75a16e36c889ad7 100644 (file)
--- 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;