When checking against non-parametrized types use a cache to hold result tuples (class, result). Tha…

runtime/vm/class_finalizer.cc

Index: runtime/vm/class_finalizer.cc
===================================================================
--- runtime/vm/class_finalizer.cc	(revision 6245)
+++ runtime/vm/class_finalizer.cc	(working copy)
@@ -1220,16 +1220,27 @@
   } else {
     OS::Print(" (null library):\n");
   }
+  const Type& super_type = Type::Handle(cls.super_type());
+  if (super_type.IsNull()) {
+    OS::Print("  Super: NULL");
+  } else {
+    const String& super_name = String::Handle(super_type.TypeClassName());

[regis, 2012/04/06 00:44:01]

Why not print the super type rather than just the super type class?
TypeClassName() -> Name()

[srdjan, 2012/04/06 15:58:34]

Done.

+    OS::Print("  Super: %s", super_name.ToCString());
+  }
   const Array& interfaces_array = Array::Handle(cls.interfaces());
-  AbstractType& interface = AbstractType::Handle();
-  intptr_t len = interfaces_array.Length();
-  for (intptr_t i = 0; i < len; i++) {
-    interface ^= interfaces_array.At(i);
-    OS::Print("  %s\n", interface.ToCString());
+  if (interfaces_array.Length() > 0) {
+    OS::Print("; interfaces: ");
+    AbstractType& interface = AbstractType::Handle();
+    intptr_t len = interfaces_array.Length();
+    for (intptr_t i = 0; i < len; i++) {
+      interface ^= interfaces_array.At(i);
+      OS::Print("  %s ", interface.ToCString());
+    }
   }
+  OS::Print("\n");
   const Array& functions_array = Array::Handle(cls.functions());
   Function& function = Function::Handle();
-  len = functions_array.Length();
+  intptr_t len = functions_array.Length();
   for (intptr_t i = 0; i < len; i++) {
     function ^= functions_array.At(i);
     OS::Print("  %s\n", function.ToCString());