diff options
author | Richard Kenner <kenner@adacore.com> | 2020-04-07 16:15:59 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-16 09:07:18 -0400 |
commit | eb6dc6f301e444c3644fc209c786c7edb9bb238d (patch) | |
tree | d1dc6e429901b1ad36d7ac40ca8b6aed2e638975 | |
parent | 27e64b845195e8d6685392bdd6322526cb33c476 (diff) | |
download | gcc-eb6dc6f301e444c3644fc209c786c7edb9bb238d.zip gcc-eb6dc6f301e444c3644fc209c786c7edb9bb238d.tar.gz gcc-eb6dc6f301e444c3644fc209c786c7edb9bb238d.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/exp_unst.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 953d449..c922300 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; |