New bigint implementation in the vm.

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 "vm/bootstrap_natives.h"
 
 #include "platform/math.h"
 
-#include "vm/bigint_operations.h"
 #include "vm/code_generator.h"  // DartModulo.
+#include "vm/dart_entry.h"
 #include "vm/double_conversion.h"
+#include "vm/double_internals.h"
 #include "vm/exceptions.h"
 #include "vm/native_entry.h"
 #include "vm/object.h"
 #include "vm/symbols.h"
 
 namespace dart {
 
 DECLARE_FLAG(bool, trace_intrinsified_natives);
 
 DEFINE_NATIVE_ENTRY(Double_doubleFromInteger, 2) {
@@ skipping 49 matching lines @@
   return Double::New(left / right);
 }
 
 
 static RawInteger* DoubleToInteger(double val, const char* error_msg) {
   if (isinf(val) || isnan(val)) {
     const Array& args = Array::Handle(Array::New(1));
     args.SetAt(0, String::Handle(String::New(error_msg)));
     Exceptions::ThrowByType(Exceptions::kUnsupported, args);
   }
-  const Bigint& big = Bigint::Handle(BigintOperations::NewFromDouble(val));
-  return big.AsValidInteger();
+  // TODO(regis): Should we implement Bigint::NewFromDouble instead?
+  if ((-1.0 < val) && (val < 1.0)) {
+    return Smi::New(0);
+  }
+  DoubleInternals internals = DoubleInternals(val);
+  if (internals.IsSpecial()) {
+    const Array& exception_arguments = Array::Handle(Array::New(1));
+    exception_arguments.SetAt(
+        0, Object::Handle(String::New("BigintOperations::NewFromDouble")));
+    Exceptions::ThrowByType(Exceptions::kInternalError, exception_arguments);
+  }
+  uint64_t significand = internals.Significand();
+  intptr_t exponent = internals.Exponent();
+  intptr_t sign = internals.Sign();
+  if (exponent <= 0) {
+    significand >>= -exponent;
+    exponent = 0;
+  } else if (exponent <= 10) {
+    // A double significand has at most 53 bits. The following shift will
+    // hence not overflow, and yield an integer of at most 63 bits.
+    significand <<= exponent;
+    exponent = 0;
+  }
+  // A significand has at most 63 bits (after the shift above).
+  // The cast to int64_t is hence safe.
+  if (exponent == 0) {
+    // The double fits in a Smi or Mint.
+    int64_t ival = static_cast<int64_t>(significand);
+    if (sign < 0) {
+      ival = -ival;
+    }
+    return Integer::New(ival);
+  }
+  // Lookup the factory creating a Bigint from a double.
+  const Class& bigint_class =
+      Class::Handle(Library::LookupCoreClass(Symbols::_Bigint()));
+  ASSERT(!bigint_class.IsNull());
+  const Function& factory_method = Function::Handle(
+      bigint_class.LookupFactoryAllowPrivate(
+          Symbols::_BigintFromDoubleFactory()));
+  ASSERT(!factory_method.IsNull());
+
+  // Create the argument list.
+  const intptr_t kNumArgs = 4;
+  const Array& args = Array::Handle(Array::New(kNumArgs));
+  // Factories get type arguments.
+  args.SetAt(0, Object::null_type_arguments());
+  args.SetAt(1, Smi::Handle(Smi::New(sign)));
+  args.SetAt(2,
+             Integer::Handle(Integer::New(static_cast<int64_t>(significand))));
+  args.SetAt(3, Integer::Handle(Integer::New(exponent)));
+
+  // Invoke the constructor and return the new object.
+  Integer& result = Integer::Handle();
+  result ^= DartEntry::InvokeFunction(factory_method, args);
+  ASSERT(result.IsBigint());
+  return result.AsValidInteger();
 }
 
 
 DEFINE_NATIVE_ENTRY(Double_trunc_div, 2) {
   double left = Double::CheckedHandle(arguments->NativeArgAt(0)).value();
   GET_NON_NULL_NATIVE_ARGUMENT(Double, right_object, arguments->NativeArgAt(1));
   double right = right_object.value();
   if (FLAG_trace_intrinsified_natives) {
     OS::Print("Double_trunc_div %f ~/ %f\n", left, right);
   }
@@ skipping 175 matching lines @@
 DEFINE_NATIVE_ENTRY(Double_getIsNegative, 1) {
   const Double& arg = Double::CheckedHandle(arguments->NativeArgAt(0));
   // Include negative zero, infinity.
   double dval = arg.value();
   return Bool::Get(signbit(dval) && !isnan(dval)).raw();
 }
 
 // Add here only functions using/referring to old-style casts.
 
 }  // namespace dart