Initial UserTag and dart:profiler library

runtime/lib/profiler.cc

Index: runtime/lib/profiler.cc
diff --git a/runtime/lib/profiler.cc b/runtime/lib/profiler.cc
new file mode 100644
index 0000000000000000000000000000000000000000..c0ceab93134932facf02c9debd35bf8c3687207b
--- /dev/null
+++ b/runtime/lib/profiler.cc
@@ -0,0 +1,62 @@
+// Copyright (c) 2014, 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/bootstrap_natives.h"
+
+#include "include/dart_api.h"
+
+#include "vm/bigint_operations.h"
+#include "vm/exceptions.h"
+#include "vm/native_entry.h"
+#include "vm/object.h"
+#include "vm/object_store.h"
+
+namespace dart {
+
+// dart:profiler.
+
+DEFINE_NATIVE_ENTRY(UserTag_new, 2) {
+  ASSERT(TypeArguments::CheckedHandle(arguments->NativeArgAt(0)).IsNull());
+  GET_NON_NULL_NATIVE_ARGUMENT(String, tag_label, arguments->NativeArgAt(1));
+  if (UserTag::TagTableIsFull(isolate)) {
+    const String& error = String::Handle(
+        String::NewFormatted("UserTag instance limit (%" Pd ") reached.",
+                             UserTags::kMaxUserTags));
+    const Array& args = Array::Handle(Array::New(1));
+    args.SetAt(0, error);
+    Exceptions::ThrowByType(Exceptions::kUnsupported, args);
+  }
+  return UserTag::New(tag_label);
+}
+
+
+DEFINE_NATIVE_ENTRY(UserTag_label, 1) {
+  const UserTag& self = UserTag::CheckedHandle(arguments->NativeArgAt(0));
+  return self.label();
+}
+
+
+DEFINE_NATIVE_ENTRY(UserTag_makeCurrent, 1) {
+  const UserTag& self = UserTag::CheckedHandle(arguments->NativeArgAt(0));
+  self.MakeActive();
+  return Object::null();
+}
+
+
+DEFINE_NATIVE_ENTRY(Profiler_getCurrentTag, 0) {
+  ObjectStore* object_store = isolate->object_store();
+  return object_store->current_tag();

[siva, 2014/04/09 21:32:01]

Not sure why the current tag is in the object store and not in the Isolate
object?

Normally the object store contains objects that don't change.

+}
+
+
+DEFINE_NATIVE_ENTRY(Profiler_clearCurrentTag, 0) {
+  ObjectStore* object_store = isolate->object_store();
+  // Use a NoGCScope to avoid creating a handle for the old current.
+  NoGCScope no_gc;
+  RawUserTag* old_current = object_store->current_tag();
+  UserTag::ClearActive();
+  return old_current;
+}
+
+}  // namespace dart