This patch makes selectors in the Objective-C language be pointers to a struct { void *sel_id...

        This patch makes selectors in the Objective-C language be pointers
        to a struct { void *sel_id, char *sel_types }, where the sel_types
        element is the type encoding of the method arguments.

From-SVN: r7622

1 files changed, 53 insertions, 63 deletions

diff --git a/gcc/objc/class.c b/gcc/objc/class.c
index 7521ad6..e5a3505 100644
--- a/gcc/objc/class.c
+++ b/gcc/objc/class.c
@@ -132,6 +132,27 @@ objc_get_class (const char *name)
   abort();
 }
 
+/* This function provides a way to enumerate all the classes in the
+   executable.  Pass *ENUM_STATE == NULL to start the enumeration.  The
+   function will return 0 when there are no more classes.  
+   For example: 
+       id class; 
+       void *es = NULL;
+       while ((class = objc_next_class(&es)))
+         ... do something with class; 
+*/
+Class* 
+objc_next_class(void **enum_state)
+{
+  /* make sure the table is there */
+  assert(__objc_class_hash);
+
+  *(node_ptr*)enum_state = 
+    hash_next(__objc_class_hash, *(node_ptr*)enum_state);
+  if (*(node_ptr*)enum_state)
+    return (*(node_ptr*)enum_state)->value;
+  return (Class*)0;
+}
 
 /* Resolve super/subclass links for all classes.  The only thing we 
    can be sure of is that the class_pointer for class objects point 
@@ -217,6 +238,9 @@ void __objc_resolve_class_links()
 Class*
 class_pose_as (Class* impostor, Class* super_class)
 {
+  node_ptr node;
+  Class* class1;
+
   if (!CLS_ISRESOLV (impostor))
     __objc_resolve_class_links ();
 
@@ -230,19 +254,13 @@ class_pose_as (Class* impostor, Class* super_class)
 
   {
     Class **subclass = &(super_class->subclass_list);
-    BOOL super_is_base_class = NO;
 
     /* move subclasses of super_class to impostor */
     while (*subclass)
       {
 	Class *nextSub = (*subclass)->sibling_class;
 
-	/* this happens when super_class is a base class */
-	if (*subclass == CLASSOF (super_class))
-	  {
-	    super_is_base_class = YES;
-	  }
-	else if (*subclass != impostor)
+	if (*subclass != impostor)
 	  {
 	    Class *sub = *subclass;
 
@@ -250,11 +268,18 @@ class_pose_as (Class* impostor, Class* super_class)
 	    sub->sibling_class = impostor->subclass_list;
 	    sub->super_class = impostor;
 	    impostor->subclass_list = sub;
-	    
-	    /* meta classes */
-	    CLASSOF (sub)->sibling_class = CLASSOF (impostor)->subclass_list;
-	    CLASSOF (sub)->super_class = CLASSOF (impostor);
-	    CLASSOF (impostor)->subclass_list = CLASSOF (sub);
+
+	    /* It will happen that SUB is not a class object if it is 
+	       the top of the meta class hierachy chain.  (root
+	       meta-class objects inherit theit class object)  If that is
+	       the case... dont mess with the meta-meta class. */ 
+	    if (CLS_ISCLASS (sub))
+	      {
+		/* meta classes */
+		CLASSOF (sub)->sibling_class = CLASSOF (impostor)->subclass_list;
+		CLASSOF (sub)->super_class = CLASSOF (impostor);
+		CLASSOF (impostor)->subclass_list = CLASSOF (sub);
+	      }
 	  }
 
 	*subclass = nextSub;
@@ -267,66 +292,31 @@ class_pose_as (Class* impostor, Class* super_class)
     /* set impostor to have no sibling classes */
     impostor->sibling_class = 0;
     CLASSOF (impostor)->sibling_class = 0;
-
-    /* impostor has a sibling... */
-    if (super_is_base_class)
-      {
-	CLASSOF (super_class)->sibling_class = 0;
-	impostor->sibling_class = CLASSOF (super_class);
-      }
   }
   
-  /* check relationship of impostor and super_class */
+  /* check relationship of impostor and super_class is kept. */
   assert (impostor->super_class == super_class);
   assert (CLASSOF (impostor)->super_class == CLASSOF (super_class));
 
-  /* by now, the re-organization of the class hierachy 
-     is done.  We only need to update various tables. */
-
-  /* First, we change the names in the hash table.
-     This will change the behavior of objc_get_class () */
-  {
-    char* buffer = (char*) __objc_xmalloc(strlen (super_class->name) + 2);
-
-    strcpy (buffer+1, super_class->name);
-    buffer[0] = '*';
+  /* This is how to update the lookup table. Regardless of
+     what the keys of the hashtable is, change all values that are
+     suprecalss into impostor. */
 
-    /* keep on prepending '*' until the name is unique */
-    while (hash_value_for_key (__objc_class_hash, buffer))
-      {
-	char *bbuffer = (char*) __objc_xmalloc (strlen (buffer)+2);
-
-	strcpy (bbuffer+1, buffer);
-	bbuffer[0] = '*';
-	free (buffer);
-	buffer = bbuffer;
-      }
-
-    hash_remove (__objc_class_hash, super_class->name);
-    hash_add (&__objc_class_hash, buffer, super_class);
-    hash_add (&__objc_class_hash, super_class->name, impostor);
-
-    /* Note that -name and +name will still respond with
-       the same strings as before.  This way any
-       -isKindOfGivenName: will always work.         */
-  }
+  for (node = hash_next (__objc_class_hash, NULL); node;
+       node = hash_next (__objc_class_hash, node))
+    {
+      class1 = (Class*)node->value;
+      if (class1 == super_class)
+	{
+	  node->value = impostor; /* change hash table value */
+	}
+    }      
 
   /* next, we update the dispatch tables... */
-  {
-    Class *subclass;
-
-    for (subclass = impostor->subclass_list;
-	 subclass; subclass = subclass->sibling_class)
-      {
-	/* we use the opportunity to check what we did */
-	assert (subclass->super_class == impostor);
-	assert (CLASSOF (subclass)->super_class == CLASSOF (impostor));
-
-	__objc_update_dispatch_table_for_class (CLASSOF (subclass));
-	__objc_update_dispatch_table_for_class (subclass);
-      }
-  }
+  __objc_update_dispatch_table_for_class (CLASSOF (impostor));
+  __objc_update_dispatch_table_for_class (impostor);
 
   return impostor;
 }
   
+