diff options
| author | Richard Kenner <kenner@adacore.com> | 2020-04-20 17:11:20 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-18 05:08:15 -0400 |
| commit | e49f6ee11d9de33706a410f3f1cb328a4b6e6616 (patch) | |
| tree | a93e4acac0372a588e0df0a1d0e25f8db87068e0 | |
| parent | 3e395e356e55fb2cb133b7697ed1f386f5b27d41 (diff) | |
| download | gcc-e49f6ee11d9de33706a410f3f1cb328a4b6e6616.zip gcc-e49f6ee11d9de33706a410f3f1cb328a4b6e6616.tar.gz gcc-e49f6ee11d9de33706a410f3f1cb328a4b6e6616.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 52a3f94..756162e 100644 --- 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); |