[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 861ea47fcb5b3d93f8b98c5f7db96325ef37fcdf..f91727b7f1316c570aa5ff7b7e16c5c2da88fb25 100644 (file)
--- 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 cadbd321c4c23c49909f996b493b3de4ecae3578..e89ea5ad54f2f343c29d77f46c1327ff5244fa9c 100644 (file)
--- 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));