mirror of
https://github.com/dart-lang/sdk
synced 2024-09-05 00:13:50 +00:00
![Ryan Macnak](/assets/img/avatar_default.png)
dart-bytecode, arm64: +4.742% geomean dart-bytecode-jit-unopt, arm64: +12.73% geomean dart2js-compile, x64: +3.635% geomean In the polymorphic and unlinked cases, call to a stub the does a linear scan against an ICData. In the monomorphic case, call to a prologue of the expected target function that checks the expected receiver class. There is additional indirection in the JIT version compared to the AOT version to also tick a usage counter so the inliner can make good decisions. In the megamorphic case, call to a stub that does a hash table lookup against a MegamorphicCache. Megamorphic call sites face a loss of precision in usage counts. The call site count is not recorded and the usage counter of the target function is used as an approximation. Monomorphic and megamorphic calls sites are reset to the polymorphic/unlinked state on hot reload. Monomorphic and megamorphic calls sites do not check the stepping state, so they are reset to the polymorphic/unlinked state when stepping begins and disabled. Back-edges now increment the usage counter in addition to checking it. This ensures function with loops containing monomorphic calls will eventually cross the optimization threshold. Fixed backwards use of kMonomorphicEntryOffset and kPolymorphicEntryOffset. Fixed C stack overflow when bouncing between the KBC interpreter and a simulator. Bug: https://github.com/dart-lang/sdk/issues/26780 Bug: https://github.com/dart-lang/sdk/issues/36409 Bug: https://github.com/dart-lang/sdk/issues/36731 Change-Id: I78a49cccd962703a459288e71ce246ed845df474 Reviewed-on: https://dart-review.googlesource.com/c/sdk/+/102820 Commit-Queue: Ryan Macnak <rmacnak@google.com> Reviewed-by: Alexander Markov <alexmarkov@google.com>
462 lines
16 KiB
C++
462 lines
16 KiB
C++
// 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_ARM.
|
|
#if defined(TARGET_ARCH_ARM)
|
|
|
|
#include "vm/instructions.h"
|
|
#include "vm/instructions_arm.h"
|
|
|
|
#include "vm/compiler/assembler/assembler.h"
|
|
#include "vm/constants.h"
|
|
#include "vm/cpu.h"
|
|
#include "vm/object.h"
|
|
#include "vm/reverse_pc_lookup_cache.h"
|
|
|
|
namespace dart {
|
|
|
|
CallPattern::CallPattern(uword pc, const Code& code)
|
|
: object_pool_(ObjectPool::Handle(code.GetObjectPool())),
|
|
target_code_pool_index_(-1) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
// Last instruction: blx lr.
|
|
ASSERT(*(reinterpret_cast<uword*>(pc) - 1) == 0xe12fff3e);
|
|
|
|
Register reg;
|
|
InstructionPattern::DecodeLoadWordFromPool(pc - 2 * Instr::kInstrSize, ®,
|
|
&target_code_pool_index_);
|
|
ASSERT(reg == CODE_REG);
|
|
}
|
|
|
|
ICCallPattern::ICCallPattern(uword pc, const Code& code)
|
|
: object_pool_(ObjectPool::Handle(code.GetObjectPool())),
|
|
target_pool_index_(-1),
|
|
data_pool_index_(-1) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
// Last instruction: blx lr.
|
|
ASSERT(*(reinterpret_cast<uword*>(pc) - 1) == 0xe12fff3e);
|
|
|
|
Register reg;
|
|
uword data_load_end = InstructionPattern::DecodeLoadWordFromPool(
|
|
pc - 2 * Instr::kInstrSize, ®, &target_pool_index_);
|
|
ASSERT(reg == CODE_REG);
|
|
|
|
InstructionPattern::DecodeLoadWordFromPool(data_load_end, ®,
|
|
&data_pool_index_);
|
|
ASSERT(reg == R9);
|
|
}
|
|
|
|
NativeCallPattern::NativeCallPattern(uword pc, const Code& code)
|
|
: object_pool_(ObjectPool::Handle(code.GetObjectPool())),
|
|
end_(pc),
|
|
native_function_pool_index_(-1),
|
|
target_code_pool_index_(-1) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
// Last instruction: blx lr.
|
|
ASSERT(*(reinterpret_cast<uword*>(end_) - 1) == 0xe12fff3e);
|
|
|
|
Register reg;
|
|
uword native_function_load_end = InstructionPattern::DecodeLoadWordFromPool(
|
|
end_ - 2 * Instr::kInstrSize, ®, &target_code_pool_index_);
|
|
ASSERT(reg == CODE_REG);
|
|
InstructionPattern::DecodeLoadWordFromPool(native_function_load_end, ®,
|
|
&native_function_pool_index_);
|
|
ASSERT(reg == R9);
|
|
}
|
|
|
|
RawCode* NativeCallPattern::target() const {
|
|
return reinterpret_cast<RawCode*>(
|
|
object_pool_.ObjectAt(target_code_pool_index_));
|
|
}
|
|
|
|
void NativeCallPattern::set_target(const Code& new_target) const {
|
|
object_pool_.SetObjectAt(target_code_pool_index_, new_target);
|
|
// No need to flush the instruction cache, since the code is not modified.
|
|
}
|
|
|
|
NativeFunction NativeCallPattern::native_function() const {
|
|
return reinterpret_cast<NativeFunction>(
|
|
object_pool_.RawValueAt(native_function_pool_index_));
|
|
}
|
|
|
|
void NativeCallPattern::set_native_function(NativeFunction func) const {
|
|
object_pool_.SetRawValueAt(native_function_pool_index_,
|
|
reinterpret_cast<uword>(func));
|
|
}
|
|
|
|
// Decodes a load sequence ending at 'end' (the last instruction of the load
|
|
// sequence is the instruction before the one at end). Returns a pointer to
|
|
// the first instruction in the sequence. Returns the register being loaded
|
|
// and the loaded object in the output parameters 'reg' and 'obj'
|
|
// respectively.
|
|
uword InstructionPattern::DecodeLoadObject(uword end,
|
|
const ObjectPool& object_pool,
|
|
Register* reg,
|
|
Object* obj) {
|
|
uword start = 0;
|
|
Instr* instr = Instr::At(end - Instr::kInstrSize);
|
|
if ((instr->InstructionBits() & 0xfff00000) == 0xe5900000) {
|
|
// ldr reg, [reg, #+offset]
|
|
intptr_t index = 0;
|
|
start = DecodeLoadWordFromPool(end, reg, &index);
|
|
*obj = object_pool.ObjectAt(index);
|
|
} else {
|
|
intptr_t value = 0;
|
|
start = DecodeLoadWordImmediate(end, reg, &value);
|
|
*obj = reinterpret_cast<RawObject*>(value);
|
|
}
|
|
return start;
|
|
}
|
|
|
|
// Decodes a load sequence ending at 'end' (the last instruction of the load
|
|
// sequence is the instruction before the one at end). Returns a pointer to
|
|
// the first instruction in the sequence. Returns the register being loaded
|
|
// and the loaded immediate value in the output parameters 'reg' and 'value'
|
|
// respectively.
|
|
uword InstructionPattern::DecodeLoadWordImmediate(uword end,
|
|
Register* reg,
|
|
intptr_t* value) {
|
|
uword start = end - Instr::kInstrSize;
|
|
int32_t instr = Instr::At(start)->InstructionBits();
|
|
intptr_t imm = 0;
|
|
const ARMVersion version = TargetCPUFeatures::arm_version();
|
|
if ((version == ARMv5TE) || (version == ARMv6)) {
|
|
ASSERT((instr & 0xfff00000) == 0xe3800000); // orr rd, rd, byte0
|
|
imm |= (instr & 0x000000ff);
|
|
|
|
start -= Instr::kInstrSize;
|
|
instr = Instr::At(start)->InstructionBits();
|
|
ASSERT((instr & 0xfff00000) == 0xe3800c00); // orr rd, rd, (byte1 rot 12)
|
|
imm |= (instr & 0x000000ff);
|
|
|
|
start -= Instr::kInstrSize;
|
|
instr = Instr::At(start)->InstructionBits();
|
|
ASSERT((instr & 0xfff00f00) == 0xe3800800); // orr rd, rd, (byte2 rot 8)
|
|
imm |= (instr & 0x000000ff);
|
|
|
|
start -= Instr::kInstrSize;
|
|
instr = Instr::At(start)->InstructionBits();
|
|
ASSERT((instr & 0xffff0f00) == 0xe3a00400); // mov rd, (byte3 rot 4)
|
|
imm |= (instr & 0x000000ff);
|
|
|
|
*reg = static_cast<Register>((instr & 0x0000f000) >> 12);
|
|
*value = imm;
|
|
} else {
|
|
ASSERT(version == ARMv7);
|
|
if ((instr & 0xfff00000) == 0xe3400000) { // movt reg, #imm_hi
|
|
imm |= (instr & 0xf0000) << 12;
|
|
imm |= (instr & 0xfff) << 16;
|
|
start -= Instr::kInstrSize;
|
|
instr = Instr::At(start)->InstructionBits();
|
|
}
|
|
ASSERT((instr & 0xfff00000) == 0xe3000000); // movw reg, #imm_lo
|
|
imm |= (instr & 0xf0000) >> 4;
|
|
imm |= instr & 0xfff;
|
|
*reg = static_cast<Register>((instr & 0xf000) >> 12);
|
|
*value = imm;
|
|
}
|
|
return start;
|
|
}
|
|
|
|
void InstructionPattern::EncodeLoadWordImmediate(uword end,
|
|
Register reg,
|
|
intptr_t value) {
|
|
uint16_t low16 = value & 0xffff;
|
|
uint16_t high16 = (value >> 16) & 0xffff;
|
|
|
|
// movw reg, #imm_lo
|
|
uint32_t movw_instr = 0xe3000000;
|
|
movw_instr |= (low16 >> 12) << 16;
|
|
movw_instr |= (reg << 12);
|
|
movw_instr |= (low16 & 0xfff);
|
|
|
|
// movt reg, #imm_hi
|
|
uint32_t movt_instr = 0xe3400000;
|
|
movt_instr |= (high16 >> 12) << 16;
|
|
movt_instr |= (reg << 12);
|
|
movt_instr |= (high16 & 0xfff);
|
|
|
|
uint32_t* cursor = reinterpret_cast<uint32_t*>(end);
|
|
*(--cursor) = movt_instr;
|
|
*(--cursor) = movw_instr;
|
|
|
|
#if defined(DEBUG)
|
|
Register decoded_reg;
|
|
intptr_t decoded_value;
|
|
DecodeLoadWordImmediate(end, &decoded_reg, &decoded_value);
|
|
ASSERT(reg == decoded_reg);
|
|
ASSERT(value == decoded_value);
|
|
#endif
|
|
}
|
|
|
|
static bool IsLoadWithOffset(int32_t instr,
|
|
Register base,
|
|
intptr_t* offset,
|
|
Register* dst) {
|
|
if ((instr & 0xffff0000) == (0xe5900000 | (base << 16))) {
|
|
// ldr reg, [base, #+offset]
|
|
*offset = instr & 0xfff;
|
|
*dst = static_cast<Register>((instr & 0xf000) >> 12);
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
// Decodes a load sequence ending at 'end' (the last instruction of the load
|
|
// sequence is the instruction before the one at end). Returns a pointer to
|
|
// the first instruction in the sequence. Returns the register being loaded
|
|
// and the index in the pool being read from in the output parameters 'reg'
|
|
// and 'index' respectively.
|
|
uword InstructionPattern::DecodeLoadWordFromPool(uword end,
|
|
Register* reg,
|
|
intptr_t* index) {
|
|
uword start = end - Instr::kInstrSize;
|
|
int32_t instr = Instr::At(start)->InstructionBits();
|
|
intptr_t offset = 0;
|
|
if (IsLoadWithOffset(instr, PP, &offset, reg)) {
|
|
// ldr reg, [PP, #+offset]
|
|
} else {
|
|
ASSERT((instr & 0xfff00000) == 0xe5900000); // ldr reg, [reg, #+offset]
|
|
offset = instr & 0xfff;
|
|
start -= Instr::kInstrSize;
|
|
instr = Instr::At(start)->InstructionBits();
|
|
if ((instr & 0xffff0000) == (0xe2850000 | (PP << 16))) {
|
|
// add reg, pp, operand
|
|
const intptr_t rot = (instr & 0xf00) >> 7;
|
|
const intptr_t imm8 = instr & 0xff;
|
|
offset += (imm8 >> rot) | (imm8 << (32 - rot));
|
|
*reg = static_cast<Register>((instr & 0xf000) >> 12);
|
|
} else {
|
|
ASSERT((instr & 0xffff0000) == (0xe0800000 | (PP << 16)));
|
|
// add reg, pp, reg
|
|
end = DecodeLoadWordImmediate(end, reg, &offset);
|
|
}
|
|
}
|
|
*index = ObjectPool::IndexFromOffset(offset);
|
|
return start;
|
|
}
|
|
|
|
bool DecodeLoadObjectFromPoolOrThread(uword pc, const Code& code, Object* obj) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
|
|
int32_t instr = Instr::At(pc)->InstructionBits();
|
|
intptr_t offset;
|
|
Register dst;
|
|
if (IsLoadWithOffset(instr, PP, &offset, &dst)) {
|
|
intptr_t index = ObjectPool::IndexFromOffset(offset);
|
|
const ObjectPool& pool = ObjectPool::Handle(code.object_pool());
|
|
if (!pool.IsNull()) {
|
|
if (pool.TypeAt(index) == ObjectPool::EntryType::kTaggedObject) {
|
|
*obj = pool.ObjectAt(index);
|
|
return true;
|
|
}
|
|
}
|
|
} else if (IsLoadWithOffset(instr, THR, &offset, &dst)) {
|
|
return Thread::ObjectAtOffset(offset, obj);
|
|
}
|
|
// TODO(rmacnak): Sequence for loads beyond 12 bits.
|
|
|
|
return false;
|
|
}
|
|
|
|
RawCode* CallPattern::TargetCode() const {
|
|
return reinterpret_cast<RawCode*>(
|
|
object_pool_.ObjectAt(target_code_pool_index_));
|
|
}
|
|
|
|
void CallPattern::SetTargetCode(const Code& target_code) const {
|
|
object_pool_.SetObjectAt(target_code_pool_index_, target_code);
|
|
}
|
|
|
|
RawObject* ICCallPattern::Data() const {
|
|
return object_pool_.ObjectAt(data_pool_index_);
|
|
}
|
|
|
|
void ICCallPattern::SetData(const Object& data) const {
|
|
ASSERT(data.IsArray() || data.IsICData() || data.IsMegamorphicCache());
|
|
object_pool_.SetObjectAt(data_pool_index_, data);
|
|
}
|
|
|
|
RawCode* ICCallPattern::TargetCode() const {
|
|
return reinterpret_cast<RawCode*>(object_pool_.ObjectAt(target_pool_index_));
|
|
}
|
|
|
|
void ICCallPattern::SetTargetCode(const Code& target_code) const {
|
|
object_pool_.SetObjectAt(target_pool_index_, target_code);
|
|
}
|
|
|
|
SwitchableCallPatternBase::SwitchableCallPatternBase(const Code& code)
|
|
: object_pool_(ObjectPool::Handle(code.GetObjectPool())),
|
|
data_pool_index_(-1),
|
|
target_pool_index_(-1) {}
|
|
|
|
RawObject* SwitchableCallPatternBase::data() const {
|
|
return object_pool_.ObjectAt(data_pool_index_);
|
|
}
|
|
|
|
void SwitchableCallPatternBase::SetData(const Object& data) const {
|
|
ASSERT(!Object::Handle(object_pool_.ObjectAt(data_pool_index_)).IsCode());
|
|
object_pool_.SetObjectAt(data_pool_index_, data);
|
|
}
|
|
|
|
SwitchableCallPattern::SwitchableCallPattern(uword pc, const Code& code)
|
|
: SwitchableCallPatternBase(code) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
// Last instruction: blx lr.
|
|
ASSERT(*(reinterpret_cast<uword*>(pc) - 1) == 0xe12fff3e);
|
|
|
|
Register reg;
|
|
uword data_load_end = InstructionPattern::DecodeLoadWordFromPool(
|
|
pc - Instr::kInstrSize, ®, &data_pool_index_);
|
|
ASSERT(reg == R9);
|
|
InstructionPattern::DecodeLoadWordFromPool(data_load_end - Instr::kInstrSize,
|
|
®, &target_pool_index_);
|
|
ASSERT(reg == CODE_REG);
|
|
}
|
|
|
|
RawCode* SwitchableCallPattern::target() const {
|
|
return reinterpret_cast<RawCode*>(object_pool_.ObjectAt(target_pool_index_));
|
|
}
|
|
void SwitchableCallPattern::SetTarget(const Code& target) const {
|
|
ASSERT(Object::Handle(object_pool_.ObjectAt(target_pool_index_)).IsCode());
|
|
object_pool_.SetObjectAt(target_pool_index_, target);
|
|
}
|
|
|
|
BareSwitchableCallPattern::BareSwitchableCallPattern(uword pc, const Code& code)
|
|
: SwitchableCallPatternBase(code) {
|
|
ASSERT(code.ContainsInstructionAt(pc));
|
|
// Last instruction: blx lr.
|
|
ASSERT(*(reinterpret_cast<uword*>(pc) - 1) == 0xe12fff3e);
|
|
|
|
Register reg;
|
|
uword data_load_end = InstructionPattern::DecodeLoadWordFromPool(
|
|
pc - Instr::kInstrSize, ®, &data_pool_index_);
|
|
ASSERT(reg == R9);
|
|
|
|
InstructionPattern::DecodeLoadWordFromPool(data_load_end, ®,
|
|
&target_pool_index_);
|
|
ASSERT(reg == LR);
|
|
}
|
|
|
|
RawCode* BareSwitchableCallPattern::target() const {
|
|
const uword pc = object_pool_.RawValueAt(target_pool_index_);
|
|
auto rct = Isolate::Current()->reverse_pc_lookup_cache();
|
|
if (rct->Contains(pc)) {
|
|
return rct->Lookup(pc);
|
|
}
|
|
rct = Dart::vm_isolate()->reverse_pc_lookup_cache();
|
|
if (rct->Contains(pc)) {
|
|
return rct->Lookup(pc);
|
|
}
|
|
UNREACHABLE();
|
|
}
|
|
|
|
void BareSwitchableCallPattern::SetTarget(const Code& target) const {
|
|
ASSERT(object_pool_.TypeAt(target_pool_index_) ==
|
|
ObjectPool::EntryType::kImmediate);
|
|
object_pool_.SetRawValueAt(target_pool_index_,
|
|
target.MonomorphicEntryPoint());
|
|
}
|
|
|
|
ReturnPattern::ReturnPattern(uword pc) : pc_(pc) {}
|
|
|
|
bool ReturnPattern::IsValid() const {
|
|
Instr* bx_lr = Instr::At(pc_);
|
|
const int32_t B4 = 1 << 4;
|
|
const int32_t B21 = 1 << 21;
|
|
const int32_t B24 = 1 << 24;
|
|
int32_t instruction = (static_cast<int32_t>(AL) << kConditionShift) | B24 |
|
|
B21 | (0xfff << 8) | B4 |
|
|
(static_cast<int32_t>(LR) << kRmShift);
|
|
const ARMVersion version = TargetCPUFeatures::arm_version();
|
|
if ((version == ARMv5TE) || (version == ARMv6)) {
|
|
return bx_lr->InstructionBits() == instruction;
|
|
} else {
|
|
ASSERT(version == ARMv7);
|
|
return bx_lr->InstructionBits() == instruction;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
bool PcRelativeCallPattern::IsValid() const {
|
|
// bl.<cond> <offset>
|
|
const uint32_t word = *reinterpret_cast<uint32_t*>(pc_);
|
|
const uint32_t branch_link = 0x05;
|
|
return ((word >> kTypeShift) & ((1 << kTypeBits) - 1)) == branch_link;
|
|
}
|
|
|
|
void PcRelativeTrampolineJumpPattern::Initialize() {
|
|
#if !defined(DART_PRECOMPILED_RUNTIME)
|
|
uint32_t* add_pc =
|
|
reinterpret_cast<uint32_t*>(pattern_start_ + 2 * Instr::kInstrSize);
|
|
*add_pc = kAddPcEncoding;
|
|
set_distance(0);
|
|
#else
|
|
UNREACHABLE();
|
|
#endif
|
|
}
|
|
|
|
int32_t PcRelativeTrampolineJumpPattern::distance() {
|
|
#if !defined(DART_PRECOMPILED_RUNTIME)
|
|
const uword end = pattern_start_ + 2 * Instr::kInstrSize;
|
|
Register reg;
|
|
intptr_t value;
|
|
InstructionPattern::DecodeLoadWordImmediate(end, ®, &value);
|
|
value -= kDistanceOffset;
|
|
ASSERT(reg == TMP);
|
|
return value;
|
|
#else
|
|
UNREACHABLE();
|
|
return 0;
|
|
#endif
|
|
}
|
|
|
|
void PcRelativeTrampolineJumpPattern::set_distance(int32_t distance) {
|
|
#if !defined(DART_PRECOMPILED_RUNTIME)
|
|
const uword end = pattern_start_ + 2 * Instr::kInstrSize;
|
|
InstructionPattern::EncodeLoadWordImmediate(end, TMP,
|
|
distance + kDistanceOffset);
|
|
#else
|
|
UNREACHABLE();
|
|
#endif
|
|
}
|
|
|
|
bool PcRelativeTrampolineJumpPattern::IsValid() const {
|
|
#if !defined(DART_PRECOMPILED_RUNTIME)
|
|
const uword end = pattern_start_ + 2 * Instr::kInstrSize;
|
|
Register reg;
|
|
intptr_t value;
|
|
InstructionPattern::DecodeLoadWordImmediate(end, ®, &value);
|
|
|
|
uint32_t* add_pc =
|
|
reinterpret_cast<uint32_t*>(pattern_start_ + 2 * Instr::kInstrSize);
|
|
|
|
return reg == TMP && *add_pc == kAddPcEncoding;
|
|
#else
|
|
UNREACHABLE();
|
|
return false;
|
|
#endif
|
|
}
|
|
|
|
intptr_t TypeTestingStubCallPattern::GetSubtypeTestCachePoolIndex() {
|
|
// Calls to the type testing stubs look like:
|
|
// ldr R3, [PP+idx]
|
|
// blx R9
|
|
|
|
// Ensure the caller of the type testing stub (whose return address is [pc_])
|
|
// branched via the `blx R9` instruction.
|
|
ASSERT(*reinterpret_cast<uint32_t*>(pc_ - Instr::kInstrSize) == 0xe12fff39);
|
|
const uword load_instr_end = pc_ - Instr::kInstrSize;
|
|
|
|
Register reg;
|
|
intptr_t pool_index = -1;
|
|
InstructionPattern::DecodeLoadWordFromPool(load_instr_end, ®, &pool_index);
|
|
ASSERT(reg == R3);
|
|
return pool_index;
|
|
}
|
|
|
|
} // namespace dart
|
|
|
|
#endif // defined TARGET_ARCH_ARM
|