Trace intrinsified native calls for doubles.

runtime/lib/double.cc

 // Copyright (c) 2011, 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 <math.h>
 
 #include "vm/bootstrap_natives.h"
 
 #include "vm/bigint_operations.h"
 #include "vm/double_conversion.h"
 #include "vm/exceptions.h"
 #include "vm/native_entry.h"
 #include "vm/object.h"
 
 namespace dart {
 
+DECLARE_FLAG(bool, trace_intrinsified_natives);
+
 DEFINE_NATIVE_ENTRY(Double_doubleFromInteger, 2) {
   ASSERT(AbstractTypeArguments::CheckedHandle(arguments->At(0)).IsNull());
   const Integer& value = Integer::CheckedHandle(arguments->At(1));
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_doubleFromInteger %s\n", value.ToCString());
+  }
   return Double::New(value.AsDoubleValue());
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_add, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_add %f + %f\n", left, right);
+  }
   return Double::New(left + right);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_sub, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_sub %f - %f\n", left, right);
+  }
   return Double::New(left - right);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_mul, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_mul %f * %f\n", left, right);
+  }
   return Double::New(left * right);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_div, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_div %f / %f\n", left, right);
+  }
   return Double::New(left / right);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_trunc_div, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_trunc_div %f ~/ %f\n", left, right);
+  }
   return Double::New(trunc(left / right));
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_modulo, 2) {
   double left = Double::CheckedHandle(arguments->At(0)).value();
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
   double remainder = fmod(left, right);
   if (remainder == 0.0) {
@@ skipping 15 matching lines @@
   GET_NATIVE_ARGUMENT(Double, right_object, arguments->At(1));
   double right = right_object.value();
   return Double::New(fmod(left, right));
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_greaterThan, 2) {
   const Double& left = Double::CheckedHandle(arguments->At(0));
   GET_NATIVE_ARGUMENT(Double, right, arguments->At(1));
   bool result = right.IsNull() ? false : (left.value() > right.value());
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_greaterThan %s > %s\n",
+        left.ToCString(), right.ToCString());
+  }
   return Bool::Get(result);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_greaterThanFromInteger, 2) {
   const Double& right = Double::CheckedHandle(arguments->At(0));
   GET_NATIVE_ARGUMENT(Integer, left, arguments->At(1));
   return Bool::Get(left.AsDoubleValue() > right.value());
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_equal, 2) {
   const Double& left = Double::CheckedHandle(arguments->At(0));
   GET_NATIVE_ARGUMENT(Double, right, arguments->At(1));
   bool result = right.IsNull() ? false : (left.value() == right.value());
+  if (FLAG_trace_intrinsified_natives) {
+    OS::Print("Double_equal %s == %s\n",
+        left.ToCString(), right.ToCString());
+  }
   return Bool::Get(result);
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_equalToInteger, 2) {
   const Double& left = Double::CheckedHandle(arguments->At(0));
   GET_NATIVE_ARGUMENT(Integer, right, arguments->At(1));
   return Bool::Get(left.value() == right.AsDoubleValue());
 }
 
@@ skipping 123 matching lines @@
 
 DEFINE_NATIVE_ENTRY(Double_isNegative, 1) {
   const Double& arg = Double::CheckedHandle(arguments->At(0));
   // Include negative zero, infinity.
   return Bool::Get(signbit(arg.value()) && !isnan(arg.value()));
 }
 
 // Add here only functions using/referring to old-style casts.
 
 }  // namespace dart