objc-act.c (build_module_descriptor): Clear DECL_CONTEXT of UOBJC_MODULES_decl.

        * objc/objc-act.c (build_module_descriptor): Clear DECL_CONTEXT
        of UOBJC_MODULES_decl.
        (generate_strings): Clear DECL_CONTEXT of new decl nodes.
        (generate_descriptor_table): Ditto.
        (generate_protocols): Ditto.
        (generate_protocol_list): Ditto.
        (generate_classref_translation_entry): Ditto.

From-SVN: r41736

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bf2ef2ce4c2bc47ff46c8f0d470666c5ae42d532..4f5a9964ed02e1b693efcce0eefcbc428a324cdd 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,13 @@
+2001-05-01  Stan Shebs  <shebs@apple.com>
+
+       * objc/objc-act.c (build_module_descriptor): Clear DECL_CONTEXT
+       of UOBJC_MODULES_decl.
+       (generate_strings): Clear DECL_CONTEXT of new decl nodes.
+       (generate_descriptor_table): Ditto.
+       (generate_protocols): Ditto.
+       (generate_protocol_list): Ditto.
+       (generate_classref_translation_entry): Ditto.
+
 2001-05-01  Jeffrey Oldham  <oldham@codesourcery.com>
 
        * invoke.texi (Optimize Options): Add documentation for `--param

diff --git a/gcc/objc/objc-act.c b/gcc/objc/objc-act.c
index a074a54a09ae81e2e643b3c1b19b38ae23d3b6c7..a96a2cea80adab98adb9c55dbc8e05197a6fbaf6 100644 (file)
--- a/gcc/objc/objc-act.c
+++ b/gcc/objc/objc-act.c
@@ -1811,6 +1811,8 @@ build_module_descriptor ()
 
   DECL_ARTIFICIAL (UOBJC_MODULES_decl) = 1;
   DECL_IGNORED_P (UOBJC_MODULES_decl) = 1;
+  DECL_CONTEXT (UOBJC_MODULES_decl) = NULL_TREE;
+
   finish_decl (UOBJC_MODULES_decl,
               init_module_descriptor (TREE_TYPE (UOBJC_MODULES_decl)),
               NULL_TREE);
@@ -2022,6 +2024,7 @@ generate_strings ()
       decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
       expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
       decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
+      DECL_CONTEXT (decl) = NULL_TREE;
       string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
                                     IDENTIFIER_POINTER (string));
       finish_decl (decl, string_expr, NULL_TREE);
@@ -2036,6 +2039,7 @@ generate_strings ()
       decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
       expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
       decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
+      DECL_CONTEXT (decl) = NULL_TREE;
       string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
                                     IDENTIFIER_POINTER (string));
       finish_decl (decl, string_expr, NULL_TREE);
@@ -2050,6 +2054,7 @@ generate_strings ()
       decl_specs = tree_cons (NULL_TREE, ridpointers[(int) RID_CHAR], sc_spec);
       expr_decl = build_nt (ARRAY_REF, DECL_NAME (decl), NULL_TREE);
       decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
+      DECL_CONTEXT (decl) = NULL_TREE;
       string_expr = my_build_string (IDENTIFIER_LENGTH (string) + 1,
                                IDENTIFIER_POINTER (string));
       finish_decl (decl, string_expr, NULL_TREE);
@@ -2955,7 +2960,8 @@ generate_descriptor_table (type, name, size, list, proto)
   decl_specs = tree_cons (NULL_TREE, type, sc_spec);
 
   decl = start_decl (synth_id_with_class_suffix (name, proto),
-                               decl_specs, 1, NULL_TREE, NULL_TREE);
+                    decl_specs, 1, NULL_TREE, NULL_TREE);
+  DECL_CONTEXT (decl) = NULL_TREE;
 
   initlist = build_tree_list (NULL_TREE, build_int_2 (size, 0));
   initlist = tree_cons (NULL_TREE, list, initlist);
@@ -3212,6 +3218,8 @@ generate_protocols ()
       decl = start_decl (synth_id_with_class_suffix ("_OBJC_PROTOCOL", p),
                         decl_specs, 1, NULL_TREE, NULL_TREE);
 
+      DECL_CONTEXT (decl) = NULL_TREE;
+
       protocol_name_expr = add_objc_string (PROTOCOL_NAME (p), class_names);
 
       if (refs_decl)
@@ -4238,6 +4246,7 @@ generate_protocol_list (i_or_p)
   expr_decl = build1 (INDIRECT_REF, NULL_TREE, expr_decl);
 
   refs_decl = start_decl (expr_decl, decl_specs, 1, NULL_TREE, NULL_TREE);
+  DECL_CONTEXT (refs_decl) = NULL_TREE;
 
   finish_decl (refs_decl, build_constructor (TREE_TYPE (refs_decl),
                                             nreverse (initlist)),
@@ -8346,6 +8355,7 @@ generate_classref_translation_entry (chain)
   /* The decl that is returned from start_decl is the one that we
      forward declared in build_class_reference.  */
   decl = start_decl (name, decl_specs, 1, NULL_TREE, NULL_TREE);
+  DECL_CONTEXT (decl) = NULL_TREE;
   finish_decl (decl, expr, NULL_TREE);
   return;
 }