Add fast Smi op version of switchable instance calls.

runtime/vm/stub_code_arm.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"
 #if defined(TARGET_ARCH_ARM)
 
 #include "vm/assembler.h"
 #include "vm/code_generator.h"
 #include "vm/cpu.h"
@@ skipping 2026 matching lines @@
   const Register temp = R2;
   const Register left = R1;
   const Register right = R0;
   __ ldr(left, Address(SP, 1 * kWordSize));
   __ ldr(right, Address(SP, 0 * kWordSize));
   GenerateIdenticalWithNumberCheckStub(assembler, left, right, temp);
   __ Ret();
 }
 
 
+// Called from megamorphic calls.
+//  R1: receiver
+//  R9: MegamorphicCache (preserved)
+// Result:
+//  R1: target entry point
+//  CODE_REG: target Code
+//  R4: arguments descriptor
 void StubCode::EmitMegamorphicLookup(Assembler* assembler) {
-  __ LoadTaggedClassIdMayBeSmi(R0, R0);
+  __ LoadTaggedClassIdMayBeSmi(R0, R1);
   // R0: receiver cid as Smi.
   __ ldr(R4, FieldAddress(R9, MegamorphicCache::arguments_descriptor_offset()));
   __ ldr(R2, FieldAddress(R9, MegamorphicCache::buckets_offset()));
   __ ldr(R1, FieldAddress(R9, MegamorphicCache::mask_offset()));
   // R2: cache buckets array.
   // R1: mask.
   __ mov(R3, Operand(R0));
   // R3: probe.
 
   Label loop, update, load_target_function;
@@ skipping 19 matching lines @@
   // proper target for the given name and arguments descriptor.  If the
   // illegal class id was found, the target is a cache miss handler that can
   // be invoked as a normal Dart function.
   __ add(IP, R2, Operand(R3, LSL, 2));
   __ ldr(R0, FieldAddress(IP, base + kWordSize));
   __ ldr(R1, FieldAddress(R0, Function::entry_point_offset()));
   __ ldr(CODE_REG, FieldAddress(R0, Function::code_offset()));
 }
 
 
-// Called from megamorphic calls.
-//  R0: receiver
-//  R9: MegamorphicCache (preserved)
-// Result:
-//  R1: target entry point
-//  CODE_REG: target Code
-//  R4: arguments descriptor
 void StubCode::GenerateMegamorphicLookupStub(Assembler* assembler) {
   EmitMegamorphicLookup(assembler);
   __ Ret();
 }
 
 
 // Called from switchable IC calls.
-//  R0: receiver
+//  R1: receiver
 //  R9: ICData (preserved)
 // Result:
 //  R1: target entry point
 //  CODE_REG: target Code object
 //  R4: arguments descriptor
-void StubCode::GenerateICLookupStub(Assembler* assembler) {
+static void EmitICLookup(Assembler* assembler,
+                         intptr_t args_checked,
+                         Token::Kind kind) {
+  if (kind != Token::kILLEGAL) {
+    __ Comment("Fast Smi op");
+    Label not_smi_or_overflow;
+
+    // R1: receiver
+    __ ldr(R2, Address(SP, 0 * kWordSize));
+    // R2: argument
+    __ orr(TMP, R1, Operand(R2));
+    __ tst(TMP, Operand(kSmiTagMask));
+    __ b(&not_smi_or_overflow, NE);
+
+    switch (kind) {
+      case Token::kADD: {
+        __ adds(R0, R1, Operand(R2));  // Adds.
+        __ b(&not_smi_or_overflow, VS);  // Branch if overflow.
+        break;
+      }
+      case Token::kSUB: {
+        __ subs(R0, R1, Operand(R2));  // Subtract.
+        __ b(&not_smi_or_overflow, VS);  // Branch if overflow.
+        break;
+      }
+      case Token::kEQ: {
+        __ cmp(R1, Operand(R2));
+        __ LoadObject(R0, Bool::True(), EQ);
+        __ LoadObject(R0, Bool::False(), NE);
+        break;
+      }
+      default: UNIMPLEMENTED();
+    }
+    // Return past the call to lookup result.
+    __ add(LR, LR, Operand(Instr::kInstrSize));
+    __ Ret();
+
+    __ Bind(&not_smi_or_overflow);
+  }
+
   Label loop, found, miss;
   __ ldr(R4, FieldAddress(R9, ICData::arguments_descriptor_offset()));
   __ ldr(R8, FieldAddress(R9, ICData::ic_data_offset()));
   __ AddImmediate(R8, R8, Array::data_offset() - kHeapObjectTag);
   // R8: first IC entry
-  __ LoadTaggedClassIdMayBeSmi(R1, R0);
-  // R1: receiver cid as Smi
+  __ LoadTaggedClassIdMayBeSmi(R0, R1);
+  // R0: receiver cid as Smi
 
   __ Bind(&loop);
   __ ldr(R2, Address(R8, 0));
-  __ cmp(R1, Operand(R2));
+  __ cmp(R0, Operand(R2));
   __ b(&found, EQ);
   __ CompareImmediate(R2, Smi::RawValue(kIllegalCid));
   __ b(&miss, EQ);
 
-  const intptr_t entry_length = ICData::TestEntryLengthFor(1) * kWordSize;
+  const intptr_t entry_length =
+      ICData::TestEntryLengthFor(args_checked) * kWordSize;
   __ AddImmediate(R8, entry_length);  // Next entry.
   __ b(&loop);
 
   __ Bind(&found);
-  const intptr_t target_offset = ICData::TargetIndexFor(1) * kWordSize;
+  const intptr_t target_offset =
+      ICData::TargetIndexFor(args_checked) * kWordSize;
   __ LoadFromOffset(kWord, R0, R8, target_offset);
   __ ldr(R1, FieldAddress(R0, Function::entry_point_offset()));
   __ ldr(CODE_REG, FieldAddress(R0, Function::code_offset()));
   __ Ret();
 
   __ Bind(&miss);
   __ LoadIsolate(R2);
   __ ldr(CODE_REG, Address(R2, Isolate::ic_miss_code_offset()));
   __ ldr(R1, FieldAddress(CODE_REG, Code::entry_point_offset()));
   __ Ret();
 }
 
+
+void StubCode::GenerateICLookupStub(Assembler* assembler) {
+  EmitICLookup(assembler, 1, Token::kILLEGAL);
+}
+
+
+void StubCode::GenerateICSmiAddLookupStub(Assembler* assembler) {
+  EmitICLookup(assembler, 2, Token::kADD);
+}
+
+
+void StubCode::GenerateICSmiSubLookupStub(Assembler* assembler) {
+  EmitICLookup(assembler, 2, Token::kSUB);
+}
+
+
+void StubCode::GenerateICSmiEqualLookupStub(Assembler* assembler) {
+  EmitICLookup(assembler, 2, Token::kEQ);
+}
+
 }  // namespace dart
 
 #endif  // defined TARGET_ARCH_ARM