Implement class hierarchy analysis in the VM.

runtime/vm/object.cc

Index: runtime/vm/object.cc
===================================================================
--- runtime/vm/object.cc	(revision 11002)
+++ runtime/vm/object.cc	(working copy)
@@ -1857,6 +1857,27 @@
 }
 
 
+void Class::AddDirectSubclass(const Class& subclass) const {
+  ASSERT(!subclass.IsNull());
+  ASSERT(subclass.SuperClass() == raw());
+  // Do not keep track of the direct subclasses of class Object.
+  ASSERT(id() != kObjectCid);

[srdjan, 2012/08/20 22:47:16]

AS discussed need a different cid.

[regis, 2012/08/20 23:37:21]

Changed assert and added TODO.

+  GrowableObjectArray& direct_subclasses =
+      GrowableObjectArray::Handle(raw_ptr()->direct_subclasses_);
+  if (direct_subclasses.IsNull()) {
+    direct_subclasses = GrowableObjectArray::New(4, Heap::kOld);
+    StorePointer(&raw_ptr()->direct_subclasses_, direct_subclasses.raw());
+  }
+#if defined(DEBUG)
+  // Verify that the same class is not added twice.
+  for (intptr_t i = 0; i < direct_subclasses.Length(); i++) {
+    ASSERT(direct_subclasses.At(i) != subclass.raw());
+  }
+#endif
+  direct_subclasses.Add(subclass);
+}
+
+
 RawArray* Class::constants() const {
   return raw_ptr()->constants_;
 }