Generate some intrinsics using our IR.

runtime/vm/intrinsifier_mips.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.
 
 #include "vm/globals.h"  // Needed here to get TARGET_ARCH_MIPS.
 #if defined(TARGET_ARCH_MIPS)
 
 #include "vm/intrinsifier.h"
 
 #include "vm/assembler.h"
 #include "vm/flow_graph_compiler.h"
 #include "vm/object.h"
 #include "vm/object_store.h"
 #include "vm/symbols.h"
 
 namespace dart {
 
 DECLARE_FLAG(bool, enable_type_checks);
 
 #define __ assembler->
 
 
-void Intrinsifier::ObjectArrayLength(Assembler* assembler) {
-  __ lw(V0, Address(SP, 0 * kWordSize));
-  __ Ret();
-  __ delay_slot()->lw(V0, FieldAddress(V0, Array::length_offset()));
-}
-
-
-void Intrinsifier::ImmutableArrayLength(Assembler* assembler) {
-  ObjectArrayLength(assembler);
-}
-
-
-void Intrinsifier::ObjectArrayGetIndexed(Assembler* assembler) {
-  Label fall_through;
-
-  __ lw(T0, Address(SP, + 0 * kWordSize));  // Index
-
-  __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
-  __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through
-  __ delay_slot()->lw(T1, Address(SP, + 1 * kWordSize));  // Array
-
-  // Range check.
-  __ lw(T2, FieldAddress(T1, Array::length_offset()));
-  __ BranchUnsignedGreaterEqual(T0, T2, &fall_through);
-
-  ASSERT(kSmiTagShift == 1);
-  // array element at T1 + T0*2 + Array::data_offset - 1
-  __ sll(T2, T0, 1);
-  __ addu(T2, T1, T2);
-  __ Ret();
-  __ delay_slot()->lw(V0, FieldAddress(T2, Array::data_offset()));
-  __ Bind(&fall_through);
-}
-
-
-void Intrinsifier::ImmutableArrayGetIndexed(Assembler* assembler) {
-  ObjectArrayGetIndexed(assembler);
-}
+intptr_t Intrinsifier::ParameterSlotFromSp() { return -1; }
 
 
 static intptr_t ComputeObjectArrayTypeArgumentsOffset() {
   const Library& core_lib = Library::Handle(Library::CoreLibrary());
   const Class& cls = Class::Handle(
       core_lib.LookupClassAllowPrivate(Symbols::_List()));
   ASSERT(!cls.IsNull());
   ASSERT(cls.NumTypeArguments() == 1);
   const intptr_t field_offset = cls.type_arguments_field_offset();
   ASSERT(field_offset != Class::kNoTypeArguments);
@@ skipping 91 matching lines @@
       T1);
   // Set the length field in the growable array object to 0.
   __ Ret();  // Returns the newly allocated object in V0.
   __ delay_slot()->sw(ZR,
       FieldAddress(V0, GrowableObjectArray::length_offset()));
 
   __ Bind(&fall_through);
 }
 
 
-void Intrinsifier::GrowableArrayLength(Assembler* assembler) {
-  __ lw(V0, Address(SP, 0 * kWordSize));
-  __ Ret();
-  __ delay_slot()->lw(V0,
-      FieldAddress(V0, GrowableObjectArray::length_offset()));
-}
-
-
-void Intrinsifier::GrowableArrayCapacity(Assembler* assembler) {
-  __ lw(V0, Address(SP, 0 * kWordSize));
-  __ lw(V0, FieldAddress(V0, GrowableObjectArray::data_offset()));
-  __ Ret();
-  __ delay_slot()->lw(V0, FieldAddress(V0, Array::length_offset()));
-}
-
-
 void Intrinsifier::GrowableArrayGetIndexed(Assembler* assembler) {
   Label fall_through;
 
   __ lw(T0, Address(SP, 0 * kWordSize));  // Index
 
   __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
   __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through
   __ delay_slot()->lw(T1, Address(SP, 1 * kWordSize));  // Array
 
   // Range check.
@@ skipping 193 matching lines @@
   __ BranchUnsignedGreaterEqual(T2, T1, &done);                                \
   __ sw(ZR, Address(T2, 0));                                                   \
   __ b(&init_loop);                                                            \
   __ delay_slot()->addiu(T2, T2, Immediate(kWordSize));                        \
   __ Bind(&done);                                                              \
                                                                                \
   __ Ret();                                                                    \
   __ Bind(&fall_through);                                                      \
 
 
-// Gets the length of a TypedData.
-void Intrinsifier::TypedDataLength(Assembler* assembler) {
-  __ lw(T0, Address(SP, 0 * kWordSize));
-  __ Ret();
-  __ delay_slot()->lw(V0, FieldAddress(T0, TypedData::length_offset()));
-}
-
-
-void Intrinsifier::Uint8ArrayGetIndexed(Assembler* assembler) {
-  Label fall_through;
-
-  __ lw(T0, Address(SP, + 0 * kWordSize));  // Index.
-
-  __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
-  __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through.
-  __ delay_slot()->lw(T1, Address(SP, + 1 * kWordSize));  // Array.
-
-  // Range check.
-  __ lw(T2, FieldAddress(T1, TypedData::length_offset()));
-  __ BranchUnsignedGreaterEqual(T0, T2, &fall_through);
-
-  __ SmiUntag(T0);
-  __ addu(T1, T1, T0);
-  __ lbu(V0, FieldAddress(T1, TypedData::data_offset()));
-  __ Ret();
-  __ delay_slot()->SmiTag(V0);
-
-  __ Bind(&fall_through);
-}
-
-
-void Intrinsifier::ExternalUint8ArrayGetIndexed(Assembler* assembler) {
-  Label fall_through;
-
-  __ lw(T0, Address(SP, + 0 * kWordSize));  // Index.
-
-  __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
-  __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through.
-  __ delay_slot()->lw(T1, Address(SP, + 1 * kWordSize));  // Array.
-
-  // Range check.
-  __ lw(T2, FieldAddress(T1, TypedData::length_offset()));
-  __ BranchUnsignedGreaterEqual(T0, T2, &fall_through);
-
-  __ lw(T1, FieldAddress(T1, ExternalTypedData::data_offset()));
-  __ SmiUntag(T0);
-  __ addu(T1, T1, T0);
-  __ lbu(V0, Address(T1, 0));
-  __ Ret();
-  __ delay_slot()->SmiTag(V0);
-
-  __ Bind(&fall_through);
-}
-
-
-void Intrinsifier::Float64ArrayGetIndexed(Assembler* assembler) {
-  Label fall_through;
-
-  __ lw(T0, Address(SP, + 0 * kWordSize));  // Index.
-
-  __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
-  __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through.
-  __ delay_slot()->lw(T1, Address(SP, + 1 * kWordSize));  // Array.
-
-  // Range check.
-  __ lw(T2, FieldAddress(T1, TypedData::length_offset()));
-  __ BranchUnsignedGreaterEqual(T0, T2, &fall_through);
-
-  Address element_address =
-      __ ElementAddressForRegIndex(true,  // Load.
-                                   false,  // Not external.
-                                   kTypedDataFloat64ArrayCid,  // Cid.
-                                   8,  // Index scale.
-                                   T1,  // Array.
-                                   T0);  // Index.
-
-  __ LoadDFromOffset(D0, element_address.base(), element_address.offset());
-
-  const Class& double_class = Class::Handle(
-      Isolate::Current()->object_store()->double_class());
-  __ TryAllocate(double_class,
-                 &fall_through,
-                 V0,  // Result register.
-                 T1);
-  __ StoreDToOffset(D0, V0, Double::value_offset() - kHeapObjectTag);
-  __ Ret();
-  __ Bind(&fall_through);
-}
-
-
-void Intrinsifier::Float64ArraySetIndexed(Assembler* assembler) {
-  Label fall_through;
-
-  __ lw(T0, Address(SP, + 1 * kWordSize));  // Index.
-
-  __ andi(CMPRES1, T0, Immediate(kSmiTagMask));
-  __ bne(CMPRES1, ZR, &fall_through);  // Index is not an smi, fall through.
-  __ delay_slot()->lw(T1, Address(SP, + 2 * kWordSize));  // Array.
-
-  // Range check.
-  __ lw(T2, FieldAddress(T1, TypedData::length_offset()));
-  __ BranchUnsignedGreaterEqual(T0, T2, &fall_through);
-
-  __ lw(T2, Address(SP, + 0 * kWordSize));  // Value.
-  __ andi(CMPRES1, T2, Immediate(kSmiTagMask));
-  __ beq(CMPRES1, ZR, &fall_through);  // Value is a Smi. Fall through.
-
-  __ LoadClassId(T3, T2);
-  __ BranchNotEqual(T3, kDoubleCid, &fall_through);  // Not a Double.
-
-  __ LoadDFromOffset(D0, T2, Double::value_offset() - kHeapObjectTag);
-
-  Address element_address =
-      __ ElementAddressForRegIndex(false,  // Store.
-                                   false,  // Not external.
-                                   kTypedDataFloat64ArrayCid,  // Cid.
-                                   8,  // Index scale.
-                                   T1,  // Array.
-                                   T0);  // Index.
-  __ StoreDToOffset(D0, element_address.base(), element_address.offset());
-  __ Ret();
-  __ Bind(&fall_through);
-}
-
-
 static int GetScaleFactor(intptr_t size) {
   switch (size) {
     case 1: return 0;
     case 2: return 1;
     case 4: return 2;
     case 8: return 3;
     case 16: return 4;
   }
   UNREACHABLE();
   return -1;
@@ skipping 862 matching lines @@
 void Intrinsifier::String_getHashCode(Assembler* assembler) {
   Label fall_through;
   __ lw(T0, Address(SP, 0 * kWordSize));
   __ lw(V0, FieldAddress(T0, String::hash_offset()));
   __ beq(V0, ZR, &fall_through);
   __ Ret();
   __ Bind(&fall_through);  // Hash not yet computed.
 }
 
 
-void Intrinsifier::StringBaseLength(Assembler* assembler) {
-  __ lw(T0, Address(SP, 0 * kWordSize));
-  __ Ret();
-  __ delay_slot()->lw(V0, FieldAddress(T0, String::length_offset()));
-}
-
-
 void Intrinsifier::StringBaseCodeUnitAt(Assembler* assembler) {
   Label fall_through, try_two_byte_string;
 
   __ lw(T1, Address(SP, 0 * kWordSize));  // Index.
   __ lw(T0, Address(SP, 1 * kWordSize));  // String.
 
   // Checks.
   __ andi(CMPRES1, T1, Immediate(kSmiTagMask));
   __ bne(T1, ZR, &fall_through);  // Index is not a Smi.
   __ lw(T2, FieldAddress(T0, String::length_offset()));  // Range check.
@@ skipping 408 matching lines @@
   Isolate* isolate = Isolate::Current();
   __ LoadImmediate(V0, reinterpret_cast<uword>(isolate));
   // Set return value.
   __ Ret();
   __ delay_slot()->lw(V0, Address(V0, Isolate::current_tag_offset()));
 }
 
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_MIPS