diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-07-31 09:55:43 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-31 09:55:43 +0000 |
| commit | 1e739bf78ec49cdb24787d0447c6a44ff20a3a00 (patch) | |
| tree | 48a29f463b8bd5da6f4bde2adf409777a298b478 | |
| parent | bb6a856baf496a1b6fb5e6aa481776cdf2a399ef (diff) | |
| download | gcc-1e739bf78ec49cdb24787d0447c6a44ff20a3a00.zip gcc-1e739bf78ec49cdb24787d0447c6a44ff20a3a00.tar.gz gcc-1e739bf78ec49cdb24787d0447c6a44ff20a3a00.tar.bz2 | |
[Ada] Print the Is_Activation_Record flag
2018-07-31 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* einfo.adb (Write_Entity_Flags): Also print
Is_Activation_Record flag.
From-SVN: r263094
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/einfo.adb | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 861ea47..f91727b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-07-31 Arnaud Charlet <charlet@adacore.com> + + * einfo.adb (Write_Entity_Flags): Also print + Is_Activation_Record flag. + 2018-07-31 Piotr Trojanek <trojanek@adacore.com> * exp_aggr.adb, exp_ch4.adb, exp_ch6.adb, lib-xref.adb, diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index cadbd32..e89ea5a 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -9815,6 +9815,7 @@ package body Einfo is W ("Is_Abstract_Subprogram", Flag19 (Id)); W ("Is_Abstract_Type", Flag146 (Id)); W ("Is_Access_Constant", Flag69 (Id)); + W ("Is_Activation_Record", Flag305 (Id)); W ("Is_Actual_Subtype", Flag293 (Id)); W ("Is_Ada_2005_Only", Flag185 (Id)); W ("Is_Ada_2012_Only", Flag199 (Id)); |