New bigint implementation in the vm.

runtime/vm/intrinsifier_ia32.cc

 // Copyright (c) 2013, 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.
 //
 // The intrinsic code below is executed before a method has built its frame.
 // The return address is on the stack and the arguments below it.
 // Registers EDX (arguments descriptor) and ECX (function) must be preserved.
 // Each intrinsification method returns true if the corresponding
 // Dart method was intrinsified.
 
@@ skipping 1035 matching lines @@
   __ xorl(EAX, ECX);
   // BSR does not write the destination register if source is zero.  Put a 1 in
   // the Smi tag bit to ensure BSR writes to destination register.
   __ orl(EAX, Immediate(kSmiTagMask));
   __ bsrl(EAX, EAX);
   __ SmiTag(EAX);
   __ ret();
 }
 
 
+void Intrinsifier::Bigint_getNeg(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(EAX, FieldAddress(EAX, Bigint::neg_offset()));
+  __ ret();
+}
+
+
+void Intrinsifier::Bigint_setNeg(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(ECX, Address(ESP, + 2 * kWordSize));
+  __ StoreIntoObject(ECX, FieldAddress(ECX, Bigint::neg_offset()), EAX, false);
+  __ ret();
+}
+
+
+void Intrinsifier::Bigint_getUsed(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(EAX, FieldAddress(EAX, Bigint::used_offset()));
+  __ ret();
+}
+
+
+void Intrinsifier::Bigint_setUsed(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(ECX, Address(ESP, + 2 * kWordSize));
+  __ StoreIntoObject(ECX, FieldAddress(ECX, Bigint::used_offset()), EAX);
+  __ ret();
+}
+
+
+void Intrinsifier::Bigint_getDigits(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(EAX, FieldAddress(EAX, Bigint::digits_offset()));
+  __ ret();
+}
+
+
+void Intrinsifier::Bigint_setDigits(Assembler* assembler) {
+  __ movl(EAX, Address(ESP, + 1 * kWordSize));
+  __ movl(ECX, Address(ESP, + 2 * kWordSize));
+  __ StoreIntoObject(ECX,
+                     FieldAddress(ECX, Bigint::digits_offset()), EAX, false);
+  __ ret();
+}
+
+
 // Check if the last argument is a double, jump to label 'is_smi' if smi
 // (easy to convert to double), otherwise jump to label 'not_double_smi',
 // Returns the last argument in EAX.
 static void TestLastArgumentIsDouble(Assembler* assembler,
                                      Label* is_smi,
                                      Label* not_double_smi) {
   __ movl(EAX, Address(ESP, + 1 * kWordSize));
   __ testl(EAX, Immediate(kSmiTagMask));
   __ j(ZERO, is_smi, Assembler::kNearJump);  // Jump if Smi.
   __ CompareClassId(EAX, kDoubleCid, EBX);
@@ skipping 724 matching lines @@
                         Isolate::current_tag_offset());
   // Set return value to Isolate::current_tag_.
   __ movl(EAX, current_tag_addr);
   __ ret();
 }
 
 #undef __
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_IA32