einfo.adb (Write_Entity_Flags): Elaboration_Entity_Required is Flag174.

	* einfo.adb (Write_Entity_Flags): Elaboration_Entity_Required
	is Flag174.

From-SVN: r46172

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d779dd821de189b97794bf86df76e7e8b4888c74..a7705dfba64c9f78ff4acd17830cbef6e3e3cc9d 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-10  Ed Schonberg <schonber@gnat.com>
+
+       * einfo.adb (Write_Entity_Flags): Elaboration_Entity_Required 
+       is Flag174.
+
 2001-10-10  Geert Bosch  <bosch@gnat.com>
 
        * snames.ads: Add new names for project facility.

diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb
index 6f7e0a3d3f6ca5f8e3202f9532d7bb27f64586be..b81df9be6737dcb9edee3c6feebb77671706cef9 100644 (file)
--- a/gcc/ada/einfo.adb
+++ b/gcc/ada/einfo.adb
@@ -5798,7 +5798,7 @@ package body Einfo is
       W ("Depends_On_Private",            Flag14  (Id));
       W ("Discard_Names",                 Flag88  (Id));
       W ("Elaborate_All_Desirable",       Flag146 (Id));
-      W ("Elaboration_Entity_Required",   Flag175 (Id));
+      W ("Elaboration_Entity_Required",   Flag174 (Id));
       W ("Entry_Accepted",                Flag152 (Id));
       W ("Finalize_Storage_Only",         Flag158 (Id));
       W ("From_With_Type",                Flag159 (Id));