(get_static_reference, get_objcect_reference,
authorTom Wood <wood@gnu.org>
Mon, 12 Apr 1993 23:52:10 +0000 (23:52 +0000)
committerTom Wood <wood@gnu.org>
Mon, 12 Apr 1993 23:52:10 +0000 (23:52 +0000)
start_protocol): Make a tree vector for new protocol types.
(start_class): The tree vector for class types is longer.

From-SVN: r4109

gcc/objc/objc-act.c

index 1e5df400982a13f69effe90657e4a37b33727e7f..3262b0540cab617b8c38abe017fb02a0954d6722 100644 (file)
@@ -829,6 +829,7 @@ get_static_reference (interface, protocols)
 
       current_obstack = &permanent_obstack;
       t = copy_node (type);
+      TYPE_BINFO (t) = make_tree_vec (2);
 
       /* Add this type to the chain of variants of TYPE.  */
       TYPE_NEXT_VARIANT (t) = TYPE_NEXT_VARIANT (m);
@@ -880,6 +881,7 @@ get_object_reference (protocols)
 
       current_obstack = &permanent_obstack;
       t = copy_node (type);
+      TYPE_BINFO (t) = make_tree_vec (2);
 
       /* Add this type to the chain of variants of TYPE.  */
       TYPE_NEXT_VARIANT (t) = TYPE_NEXT_VARIANT (m);
@@ -5346,7 +5348,7 @@ start_class (code, class_name, super_name, protocol_list)
     objc_fatal ();
 
   class = make_node (code);
-  TYPE_BINFO (class) = make_tree_vec (4);
+  TYPE_BINFO (class) = make_tree_vec (5);
 
   CLASS_NAME (class) = class_name;
   CLASS_SUPER_NAME (class) = super_name;
@@ -5639,6 +5641,7 @@ start_protocol (code, name, list)
     objc_protocol_template = build_protocol_template ();
 
   protocol = make_node (code);
+  TYPE_BINFO (protocol) = make_tree_vec (2);
 
   PROTOCOL_NAME (protocol) = name;
   PROTOCOL_LIST (protocol) = list;