Add a function Dart_AllocateWithNativeFields which allocates an object and sets the native fields i…

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/cpu.h"
@@ skipping 13074 matching lines @@
   if (native_fields.IsNull()) {
     // Allocate backing storage for the native fields.
     native_fields = TypedData::New(kIntPtrCid, NumNativeFields());
     StorePointer(NativeFieldsAddr(), native_fields.raw());
   }
   intptr_t byte_offset = index * sizeof(intptr_t);
   TypedData::Cast(native_fields).SetIntPtr(byte_offset, value);
 }
 
 
+void Instance::SetNativeFields(uint16_t num_native_fields,
+                               const intptr_t* field_values) const {
+  ASSERT(num_native_fields == NumNativeFields());
+  ASSERT(field_values != NULL);
+  Object& native_fields = Object::Handle(*NativeFieldsAddr());
+  if (native_fields.IsNull()) {
+    // Allocate backing storage for the native fields.
+    native_fields = TypedData::New(kIntPtrCid, NumNativeFields());
+    StorePointer(NativeFieldsAddr(), native_fields.raw());
+  }
+  for (uint16_t i = 0; i < num_native_fields; i++) {
+    intptr_t byte_offset = i * sizeof(intptr_t);
+    TypedData::Cast(native_fields).SetIntPtr(byte_offset, field_values[i]);
+  }
+}
+
+
 bool Instance::IsClosure() const {
   const Class& cls = Class::Handle(clazz());
   return cls.IsSignatureClass();
 }
 
 
 bool Instance::IsCallable(Function* function, Context* context) const {
   Class& cls = Class::Handle(clazz());
   if (cls.IsSignatureClass()) {
     if (function != NULL) {
@@ skipping 5926 matching lines @@
   return tag_label.ToCString();
 }
 
 
 void UserTag::PrintJSONImpl(JSONStream* stream, bool ref) const {
   Instance::PrintJSONImpl(stream, ref);
 }
 
 
 }  // namespace dart