From: Richard Kenner <kenner@adacore.com>
Date: Tue, 7 Apr 2020 20:15:59 +0000 (-0400)
Subject: [Ada] Change how we detect internal protected subprograms
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=eb6dc6f301e444c3644fc209c786c7edb9bb238d;p=gcc.git

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