[Ada] Properly test for Protected_Body_Subprogram

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

gcc/ada/

	* sem_util.adb (Enclosing_Subprogram): No longer need
	Convention_Protected.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 52a3f947dbe338df6dcece6ad9bdf46e411a93bb..756162e4a2faefbbe15c90edac8774c827009950 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -7410,8 +7410,7 @@ package body Sem_Util is
 
       --  No body is generated if the protected operation is eliminated
 
-      elsif Convention (Dyn_Scop) = Convention_Protected
-        and then not Is_Eliminated (Dyn_Scop)
+      elsif not Is_Eliminated (Dyn_Scop)
         and then Present (Protected_Body_Subprogram (Dyn_Scop))
       then
          return Protected_Body_Subprogram (Dyn_Scop);