decl.c (gnat_to_gnu_entity): Do not generate debug info for individual enumerators.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Enumeration_Type>: Do
	not generate debug info for individual enumerators.

From-SVN: r164418

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 44a8890439ce09500a32426d002e89c73ef18e21..f718b6cdefbac3d58420d8273812beb2cc52cad0 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-19  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Enumeration_Type>: Do
+       not generate debug info for individual enumerators.
+
 2010-09-19  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Access_Type>: Use record

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index d1b0279bfdd6f86e9be16d7c0ef880708204e0bc..c9ca2a64328c6abe184963e3895acdb434806dca 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1525,7 +1525,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
              = create_var_decl (get_entity_name (gnat_literal), NULL_TREE,
                                 gnu_type, gnu_value, true, false, false,
                                 false, NULL, gnat_literal);
-
+           /* Do not generate debug info for individual enumerators.  */
+           DECL_IGNORED_P (gnu_literal) = 1;
            save_gnu_tree (gnat_literal, gnu_literal, false);
            gnu_literal_list = tree_cons (DECL_NAME (gnu_literal),
                                          gnu_value, gnu_literal_list);