From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 31 Jul 2018 09:55:43 +0000 (+0000)
Subject: [Ada] Print the Is_Activation_Record flag
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1e739bf78ec49cdb24787d0447c6a44ff20a3a00;p=gcc.git

[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 861ea47fcb5..f91727b7f13 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 cadbd321c4c..e89ea5ad54f 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));