Add a weak property type to the virtual machine.

runtime/vm/object.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/object.h"
 
 #include "include/dart_api.h"
 #include "platform/assert.h"
 #include "vm/assembler.h"
 #include "vm/bigint_operations.h"
@@ skipping 698 matching lines @@
   object_store->set_stacktrace_class(cls);
   RegisterClass(cls, "Stacktrace", impl_script, core_impl_lib);
   pending_classes.Add(cls, Heap::kOld);
   // Super type set below, after Object is allocated.
 
   cls = Class::New<JSRegExp>();
   object_store->set_jsregexp_class(cls);
   RegisterClass(cls, "JSSyntaxRegExp", impl_script, core_impl_lib);
   pending_classes.Add(cls, Heap::kOld);
 
+  cls = Class::New<WeakProperty>();
+  object_store->set_weak_property_class(cls);
+  RegisterClass(cls, "WeakProperty", impl_script, core_impl_lib);
+  pending_classes.Add(cls, Heap::kOld);
+
   // Initialize the base interfaces used by the core VM classes.
   const Script& script = Script::Handle(Bootstrap::LoadScript());
 
   // Allocate and initialize the Object class and type.  The Object
   // class and ByteArray subclasses are the only pre-allocated,
   // non-interface classes in the core library.
   cls = Class::New<Instance>();
   object_store->set_object_class(cls);
   cls.set_name(String::Handle(Symbols::New("Object")));
   cls.set_script(script);
@@ skipping 324 matching lines @@
 
   cls = Class::New<Bool>();
   object_store->set_bool_class(cls);
 
   cls = Class::New<Stacktrace>();
   object_store->set_stacktrace_class(cls);
 
   cls = Class::New<JSRegExp>();
   object_store->set_jsregexp_class(cls);
 
+  cls = Class::New<WeakProperty>();
+  object_store->set_weak_property_class(cls);
+
   // Allocate pre-initialized values.
   Bool& bool_value = Bool::Handle();
   bool_value = Bool::New(true);
   object_store->set_true_value(bool_value);
   bool_value = Bool::New(false);
   object_store->set_false_value(bool_value);
 }
 
 
 void Object::Print() const {
@@ skipping 747 matching lines @@
       return object_store->external_float32_array_class();
     case kExternalFloat64Array:
       ASSERT(object_store->external_float64_array_class() != Class::null());
       return object_store->external_float64_array_class();
     case kStacktrace:
       ASSERT(object_store->stacktrace_class() != Class::null());
       return object_store->stacktrace_class();
     case kJSRegExp:
       ASSERT(object_store->jsregexp_class() != Class::null());
       return object_store->jsregexp_class();
+    case kWeakProperty:
+      ASSERT(object_store->weak_property_class() != Class::null());
+      return object_store->weak_property_class();
     case kClosure:
       return Class::New<Closure>();
     case kInstance:
       return Class::New<Instance>();
     default:
       OS::Print("Class::GetClass kind unknown: %d\n", kind);
       UNREACHABLE();
   }
   return Class::null();
 }
@@ skipping 9346 matching lines @@
 
 const char* JSRegExp::ToCString() const {
   const String& str = String::Handle(pattern());
   const char* format = "JSRegExp: pattern=%s flags=%s";
   intptr_t len = OS::SNPrint(NULL, 0, format, str.ToCString(), Flags());
   char* chars = Isolate::Current()->current_zone()->Alloc<char>(len + 1);
   OS::SNPrint(chars, (len + 1), format, str.ToCString(), Flags());
   return chars;
 }
 
+
+RawWeakProperty* WeakProperty::New(Heap::Space space) {
+  ASSERT(Isolate::Current()->object_store()->weak_property_class()
+         != Class::null());
+  WeakProperty& result = WeakProperty::Handle();
+  {
+    RawObject* raw = Object::Allocate(WeakProperty::kInstanceKind,
+                                      WeakProperty::InstanceSize(),
+                                      space);

[turnidge, 2012/08/09 18:34:34]

Just to double-check, does Object::Allocate set (key/value/next) to null?

[cshapiro, 2012/08/14 04:58:18]

Yes, it should.

+    NoGCScope no_gc;
+    result ^= raw;
+  }
+  return result.raw();
+}
+
+
+const char* WeakProperty::ToCString() const {
+  return "WeakProperty";

[turnidge, 2012/08/09 18:34:34]

A thought: you could make the ToCString have some info about the key and the
value.  Your call.

[cshapiro, 2012/08/14 04:58:18]

Yes, I could although I cannot think of anything now.  Let me know if I am
missing something obvious.

+}
+
 }  // namespace dart