src/ppc/assembler-ppc-inl.h

   1 // Copyright (c) 1994-2006 Sun Microsystems Inc.
   2 // All Rights Reserved.
   3 //
   4 // Redistribution and use in source and binary forms, with or without
   5 // modification, are permitted provided that the following conditions
   6 // are met:
   7 //
   8 // - Redistributions of source code must retain the above copyright notice,
   9 // this list of conditions and the following disclaimer.
  10 //
  11 // - Redistribution in binary form must reproduce the above copyright
  12 // notice, this list of conditions and the following disclaimer in the
  13 // documentation and/or other materials provided with the
  14 // distribution.
  15 //
  16 // - Neither the name of Sun Microsystems or the names of contributors may
  17 // be used to endorse or promote products derived from this software without
  18 // specific prior written permission.
  19 //
  20 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  22 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
  23 // FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  24 // COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
  25 // INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  26 // (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  27 // SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28 // HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  29 // STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  30 // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  31 // OF THE POSSIBILITY OF SUCH DAMAGE.
  32
  33 // The original source code covered by the above license above has been modified
  34 // significantly by Google Inc.
  35 // Copyright 2014 the V8 project authors. All rights reserved.
  36
  37 #ifndef V8_PPC_ASSEMBLER_PPC_INL_H_
  38 #define V8_PPC_ASSEMBLER_PPC_INL_H_
  39
  40 #include "src/ppc/assembler-ppc.h"
  41
  42 #include "src/assembler.h"
  43 #include "src/debug.h"
  44
  45
  46 namespace v8 {
  47 namespace internal {
  48
  49
  50 bool CpuFeatures::SupportsCrankshaft() { return true; }
  51
  52
  53 void RelocInfo::apply(intptr_t delta, ICacheFlushMode icache_flush_mode) {
  54   if (IsInternalReference(rmode_) || IsInternalReferenceEncoded(rmode_)) {
  55     // absolute code pointer inside code object moves with the code object.
  56     Assembler::RelocateInternalReference(pc_, delta, 0, rmode_,
  57                                          icache_flush_mode);
  58   }
  59 }
  60
  61
  62 Address RelocInfo::target_address() {
  63   DCHECK(IsCodeTarget(rmode_) || IsRuntimeEntry(rmode_));
  64   return Assembler::target_address_at(pc_, host_);
  65 }
  66
  67
  68 Address RelocInfo::target_address_address() {
  69   DCHECK(IsCodeTarget(rmode_) || IsRuntimeEntry(rmode_) ||
  70          rmode_ == EMBEDDED_OBJECT || rmode_ == EXTERNAL_REFERENCE);
  71
  72   // Read the address of the word containing the target_address in an
  73   // instruction stream.
  74   // The only architecture-independent user of this function is the serializer.
  75   // The serializer uses it to find out how many raw bytes of instruction to
  76   // output before the next target.
  77   // For an instruction like LIS/ORI where the target bits are mixed into the
  78   // instruction bits, the size of the target will be zero, indicating that the
  79   // serializer should not step forward in memory after a target is resolved
  80   // and written.
  81   return reinterpret_cast<Address>(pc_);
  82 }
  83
  84
  85 Address RelocInfo::constant_pool_entry_address() {
  86   UNREACHABLE();
  87   return NULL;
  88 }
  89
  90
  91 int RelocInfo::target_address_size() { return Assembler::kSpecialTargetSize; }
  92
  93
  94 void RelocInfo::set_target_address(Address target,
  95                                    WriteBarrierMode write_barrier_mode,
  96                                    ICacheFlushMode icache_flush_mode) {
  97   DCHECK(IsCodeTarget(rmode_) || IsRuntimeEntry(rmode_));
  98   Assembler::set_target_address_at(pc_, host_, target, icache_flush_mode);
  99   if (write_barrier_mode == UPDATE_WRITE_BARRIER && host() != NULL &&
 100       IsCodeTarget(rmode_)) {
 101     Object* target_code = Code::GetCodeFromTargetAddress(target);
 102     host()->GetHeap()->incremental_marking()->RecordWriteIntoCode(
 103         host(), this, HeapObject::cast(target_code));
 104   }
 105 }
 106
 107
 108 Address Assembler::break_address_from_return_address(Address pc) {
 109   return target_address_from_return_address(pc);
 110 }
 111
 112
 113 Address Assembler::target_address_from_return_address(Address pc) {
 114 // Returns the address of the call target from the return address that will
 115 // be returned to after a call.
 116 // Call sequence is :
 117 //  mov   ip, @ call address
 118 //  mtlr  ip
 119 //  blrl
 120 //                      @ return address
 121   return pc - (kMovInstructions + 2) * kInstrSize;
 122 }
 123
 124
 125 Address Assembler::return_address_from_call_start(Address pc) {
 126   return pc + (kMovInstructions + 2) * kInstrSize;
 127 }
 128
 129
 130 Object* RelocInfo::target_object() {
 131   DCHECK(IsCodeTarget(rmode_) || rmode_ == EMBEDDED_OBJECT);
 132   return reinterpret_cast<Object*>(Assembler::target_address_at(pc_, host_));
 133 }
 134
 135
 136 Handle<Object> RelocInfo::target_object_handle(Assembler* origin) {
 137   DCHECK(IsCodeTarget(rmode_) || rmode_ == EMBEDDED_OBJECT);
 138   return Handle<Object>(
 139       reinterpret_cast<Object**>(Assembler::target_address_at(pc_, host_)));
 140 }
 141
 142
 143 void RelocInfo::set_target_object(Object* target,
 144                                   WriteBarrierMode write_barrier_mode,
 145                                   ICacheFlushMode icache_flush_mode) {
 146   DCHECK(IsCodeTarget(rmode_) || rmode_ == EMBEDDED_OBJECT);
 147   Assembler::set_target_address_at(
 148       pc_, host_, reinterpret_cast<Address>(target), icache_flush_mode);
 149   if (write_barrier_mode == UPDATE_WRITE_BARRIER && host() != NULL &&
 150       target->IsHeapObject()) {
 151     host()->GetHeap()->incremental_marking()->RecordWrite(
 152         host(), &Memory::Object_at(pc_), HeapObject::cast(target));
 153   }
 154 }
 155
 156
 157 Address RelocInfo::target_external_reference() {
 158   DCHECK(rmode_ == EXTERNAL_REFERENCE);
 159   return Assembler::target_address_at(pc_, host_);
 160 }
 161
 162
 163 Address RelocInfo::target_internal_reference() {
 164   DCHECK(rmode_ == INTERNAL_REFERENCE);
 165   return Memory::Address_at(pc_);
 166 }
 167
 168
 169 void RelocInfo::set_target_internal_reference(Address target) {
 170   DCHECK(rmode_ == INTERNAL_REFERENCE);
 171   Memory::Address_at(pc_) = target;
 172 }
 173
 174
 175 Address RelocInfo::target_runtime_entry(Assembler* origin) {
 176   DCHECK(IsRuntimeEntry(rmode_));
 177   return target_address();
 178 }
 179
 180
 181 void RelocInfo::set_target_runtime_entry(Address target,
 182                                          WriteBarrierMode write_barrier_mode,
 183                                          ICacheFlushMode icache_flush_mode) {
 184   DCHECK(IsRuntimeEntry(rmode_));
 185   if (target_address() != target)
 186     set_target_address(target, write_barrier_mode, icache_flush_mode);
 187 }
 188
 189
 190 Handle<Cell> RelocInfo::target_cell_handle() {
 191   DCHECK(rmode_ == RelocInfo::CELL);
 192   Address address = Memory::Address_at(pc_);
 193   return Handle<Cell>(reinterpret_cast<Cell**>(address));
 194 }
 195
 196
 197 Cell* RelocInfo::target_cell() {
 198   DCHECK(rmode_ == RelocInfo::CELL);
 199   return Cell::FromValueAddress(Memory::Address_at(pc_));
 200 }
 201
 202
 203 void RelocInfo::set_target_cell(Cell* cell, WriteBarrierMode write_barrier_mode,
 204                                 ICacheFlushMode icache_flush_mode) {
 205   DCHECK(rmode_ == RelocInfo::CELL);
 206   Address address = cell->address() + Cell::kValueOffset;
 207   Memory::Address_at(pc_) = address;
 208   if (write_barrier_mode == UPDATE_WRITE_BARRIER && host() != NULL) {
 209     // TODO(1550) We are passing NULL as a slot because cell can never be on
 210     // evacuation candidate.
 211     host()->GetHeap()->incremental_marking()->RecordWrite(host(), NULL, cell);
 212   }
 213 }
 214
 215
 216 static const int kNoCodeAgeInstructions = 6;
 217 static const int kCodeAgingInstructions = Assembler::kMovInstructions + 3;
 218 static const int kNoCodeAgeSequenceInstructions =
 219     ((kNoCodeAgeInstructions >= kCodeAgingInstructions)
 220          ? kNoCodeAgeInstructions
 221          : kCodeAgingInstructions);
 222 static const int kNoCodeAgeSequenceNops =
 223     (kNoCodeAgeSequenceInstructions - kNoCodeAgeInstructions);
 224 static const int kCodeAgingSequenceNops =
 225     (kNoCodeAgeSequenceInstructions - kCodeAgingInstructions);
 226 static const int kCodeAgingTargetDelta = 1 * Assembler::kInstrSize;
 227 static const int kNoCodeAgeSequenceLength =
 228     (kNoCodeAgeSequenceInstructions * Assembler::kInstrSize);
 229
 230
 231 Handle<Object> RelocInfo::code_age_stub_handle(Assembler* origin) {
 232   UNREACHABLE();  // This should never be reached on PPC.
 233   return Handle<Object>();
 234 }
 235
 236
 237 Code* RelocInfo::code_age_stub() {
 238   DCHECK(rmode_ == RelocInfo::CODE_AGE_SEQUENCE);
 239   return Code::GetCodeFromTargetAddress(
 240       Assembler::target_address_at(pc_ + kCodeAgingTargetDelta, host_));
 241 }
 242
 243
 244 void RelocInfo::set_code_age_stub(Code* stub,
 245                                   ICacheFlushMode icache_flush_mode) {
 246   DCHECK(rmode_ == RelocInfo::CODE_AGE_SEQUENCE);
 247   Assembler::set_target_address_at(pc_ + kCodeAgingTargetDelta, host_,
 248                                    stub->instruction_start(),
 249                                    icache_flush_mode);
 250 }
 251
 252
 253 Address RelocInfo::call_address() {
 254   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 255          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 256   // The pc_ offset of 0 assumes patched return sequence per
 257   // BreakLocation::SetDebugBreakAtReturn(), or debug break
 258   // slot per BreakLocation::SetDebugBreakAtSlot().
 259   return Assembler::target_address_at(pc_, host_);
 260 }
 261
 262
 263 void RelocInfo::set_call_address(Address target) {
 264   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 265          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 266   Assembler::set_target_address_at(pc_, host_, target);
 267   if (host() != NULL) {
 268     Object* target_code = Code::GetCodeFromTargetAddress(target);
 269     host()->GetHeap()->incremental_marking()->RecordWriteIntoCode(
 270         host(), this, HeapObject::cast(target_code));
 271   }
 272 }
 273
 274
 275 Object* RelocInfo::call_object() { return *call_object_address(); }
 276
 277
 278 void RelocInfo::set_call_object(Object* target) {
 279   *call_object_address() = target;
 280 }
 281
 282
 283 Object** RelocInfo::call_object_address() {
 284   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 285          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 286   return reinterpret_cast<Object**>(pc_ + 2 * Assembler::kInstrSize);
 287 }
 288
 289
 290 void RelocInfo::WipeOut() {
 291   DCHECK(IsEmbeddedObject(rmode_) || IsCodeTarget(rmode_) ||
 292          IsRuntimeEntry(rmode_) || IsExternalReference(rmode_));
 293   Assembler::set_target_address_at(pc_, host_, NULL);
 294 }
 295
 296
 297 bool RelocInfo::IsPatchedReturnSequence() {
 298   //
 299   // The patched return sequence is defined by
 300   // BreakLocation::SetDebugBreakAtReturn()
 301   // FIXED_SEQUENCE
 302
 303   Instr instr0 = Assembler::instr_at(pc_);
 304   Instr instr1 = Assembler::instr_at(pc_ + 1 * Assembler::kInstrSize);
 305 #if V8_TARGET_ARCH_PPC64
 306   Instr instr3 = Assembler::instr_at(pc_ + (3 * Assembler::kInstrSize));
 307   Instr instr4 = Assembler::instr_at(pc_ + (4 * Assembler::kInstrSize));
 308   Instr binstr = Assembler::instr_at(pc_ + (7 * Assembler::kInstrSize));
 309 #else
 310   Instr binstr = Assembler::instr_at(pc_ + 4 * Assembler::kInstrSize);
 311 #endif
 312   bool patched_return =
 313       ((instr0 & kOpcodeMask) == ADDIS && (instr1 & kOpcodeMask) == ORI &&
 314 #if V8_TARGET_ARCH_PPC64
 315        (instr3 & kOpcodeMask) == ORIS && (instr4 & kOpcodeMask) == ORI &&
 316 #endif
 317        (binstr == 0x7d821008));  // twge r2, r2
 318
 319   // printf("IsPatchedReturnSequence: %d\n", patched_return);
 320   return patched_return;
 321 }
 322
 323
 324 bool RelocInfo::IsPatchedDebugBreakSlotSequence() {
 325   Instr current_instr = Assembler::instr_at(pc_);
 326   return !Assembler::IsNop(current_instr, Assembler::DEBUG_BREAK_NOP);
 327 }
 328
 329
 330 void RelocInfo::Visit(Isolate* isolate, ObjectVisitor* visitor) {
 331   RelocInfo::Mode mode = rmode();
 332   if (mode == RelocInfo::EMBEDDED_OBJECT) {
 333     visitor->VisitEmbeddedPointer(this);
 334   } else if (RelocInfo::IsCodeTarget(mode)) {
 335     visitor->VisitCodeTarget(this);
 336   } else if (mode == RelocInfo::CELL) {
 337     visitor->VisitCell(this);
 338   } else if (mode == RelocInfo::EXTERNAL_REFERENCE) {
 339     visitor->VisitExternalReference(this);
 340   } else if (RelocInfo::IsCodeAgeSequence(mode)) {
 341     visitor->VisitCodeAgeSequence(this);
 342   } else if (((RelocInfo::IsJSReturn(mode) && IsPatchedReturnSequence()) ||
 343               (RelocInfo::IsDebugBreakSlot(mode) &&
 344                IsPatchedDebugBreakSlotSequence())) &&
 345              isolate->debug()->has_break_points()) {
 346     visitor->VisitDebugTarget(this);
 347   } else if (IsRuntimeEntry(mode)) {
 348     visitor->VisitRuntimeEntry(this);
 349   }
 350 }
 351
 352
 353 template <typename StaticVisitor>
 354 void RelocInfo::Visit(Heap* heap) {
 355   RelocInfo::Mode mode = rmode();
 356   if (mode == RelocInfo::EMBEDDED_OBJECT) {
 357     StaticVisitor::VisitEmbeddedPointer(heap, this);
 358   } else if (RelocInfo::IsCodeTarget(mode)) {
 359     StaticVisitor::VisitCodeTarget(heap, this);
 360   } else if (mode == RelocInfo::CELL) {
 361     StaticVisitor::VisitCell(heap, this);
 362   } else if (mode == RelocInfo::EXTERNAL_REFERENCE) {
 363     StaticVisitor::VisitExternalReference(this);
 364   } else if (RelocInfo::IsCodeAgeSequence(mode)) {
 365     StaticVisitor::VisitCodeAgeSequence(heap, this);
 366   } else if (heap->isolate()->debug()->has_break_points() &&
 367              ((RelocInfo::IsJSReturn(mode) && IsPatchedReturnSequence()) ||
 368               (RelocInfo::IsDebugBreakSlot(mode) &&
 369                IsPatchedDebugBreakSlotSequence()))) {
 370     StaticVisitor::VisitDebugTarget(heap, this);
 371   } else if (IsRuntimeEntry(mode)) {
 372     StaticVisitor::VisitRuntimeEntry(this);
 373   }
 374 }
 375
 376 Operand::Operand(intptr_t immediate, RelocInfo::Mode rmode) {
 377   rm_ = no_reg;
 378   imm_ = immediate;
 379   rmode_ = rmode;
 380 }
 381
 382 Operand::Operand(const ExternalReference& f) {
 383   rm_ = no_reg;
 384   imm_ = reinterpret_cast<intptr_t>(f.address());
 385   rmode_ = RelocInfo::EXTERNAL_REFERENCE;
 386 }
 387
 388 Operand::Operand(Smi* value) {
 389   rm_ = no_reg;
 390   imm_ = reinterpret_cast<intptr_t>(value);
 391   rmode_ = kRelocInfo_NONEPTR;
 392 }
 393
 394 Operand::Operand(Register rm) {
 395   rm_ = rm;
 396   rmode_ = kRelocInfo_NONEPTR;  // PPC -why doesn't ARM do this?
 397 }
 398
 399 void Assembler::CheckBuffer() {
 400   if (buffer_space() <= kGap) {
 401     GrowBuffer();
 402   }
 403 }
 404
 405 void Assembler::CheckTrampolinePoolQuick() {
 406   if (pc_offset() >= next_buffer_check_) {
 407     CheckTrampolinePool();
 408   }
 409 }
 410
 411 void Assembler::emit(Instr x) {
 412   CheckBuffer();
 413   *reinterpret_cast<Instr*>(pc_) = x;
 414   pc_ += kInstrSize;
 415   CheckTrampolinePoolQuick();
 416 }
 417
 418 bool Operand::is_reg() const { return rm_.is_valid(); }
 419
 420
 421 // Fetch the 32bit value from the FIXED_SEQUENCE lis/ori
 422 Address Assembler::target_address_at(Address pc,
 423                                      ConstantPoolArray* constant_pool) {
 424   Instr instr1 = instr_at(pc);
 425   Instr instr2 = instr_at(pc + kInstrSize);
 426   // Interpret 2 instructions generated by lis/ori
 427   if (IsLis(instr1) && IsOri(instr2)) {
 428 #if V8_TARGET_ARCH_PPC64
 429     Instr instr4 = instr_at(pc + (3 * kInstrSize));
 430     Instr instr5 = instr_at(pc + (4 * kInstrSize));
 431     // Assemble the 64 bit value.
 432     uint64_t hi = (static_cast<uint32_t>((instr1 & kImm16Mask) << 16) |
 433                    static_cast<uint32_t>(instr2 & kImm16Mask));
 434     uint64_t lo = (static_cast<uint32_t>((instr4 & kImm16Mask) << 16) |
 435                    static_cast<uint32_t>(instr5 & kImm16Mask));
 436     return reinterpret_cast<Address>((hi << 32) | lo);
 437 #else
 438     // Assemble the 32 bit value.
 439     return reinterpret_cast<Address>(((instr1 & kImm16Mask) << 16) |
 440                                      (instr2 & kImm16Mask));
 441 #endif
 442   }
 443
 444   UNREACHABLE();
 445   return NULL;
 446 }
 447
 448
 449 // This sets the branch destination (which gets loaded at the call address).
 450 // This is for calls and branches within generated code.  The serializer
 451 // has already deserialized the mov instructions etc.
 452 // There is a FIXED_SEQUENCE assumption here
 453 void Assembler::deserialization_set_special_target_at(
 454     Address instruction_payload, Code* code, Address target) {
 455   set_target_address_at(instruction_payload, code, target);
 456 }
 457
 458 // This code assumes the FIXED_SEQUENCE of lis/ori
 459 void Assembler::set_target_address_at(Address pc,
 460                                       ConstantPoolArray* constant_pool,
 461                                       Address target,
 462                                       ICacheFlushMode icache_flush_mode) {
 463   Instr instr1 = instr_at(pc);
 464   Instr instr2 = instr_at(pc + kInstrSize);
 465   // Interpret 2 instructions generated by lis/ori
 466   if (IsLis(instr1) && IsOri(instr2)) {
 467 #if V8_TARGET_ARCH_PPC64
 468     Instr instr4 = instr_at(pc + (3 * kInstrSize));
 469     Instr instr5 = instr_at(pc + (4 * kInstrSize));
 470     // Needs to be fixed up when mov changes to handle 64-bit values.
 471     uint32_t* p = reinterpret_cast<uint32_t*>(pc);
 472     uintptr_t itarget = reinterpret_cast<uintptr_t>(target);
 473
 474     instr5 &= ~kImm16Mask;
 475     instr5 |= itarget & kImm16Mask;
 476     itarget = itarget >> 16;
 477
 478     instr4 &= ~kImm16Mask;
 479     instr4 |= itarget & kImm16Mask;
 480     itarget = itarget >> 16;
 481
 482     instr2 &= ~kImm16Mask;
 483     instr2 |= itarget & kImm16Mask;
 484     itarget = itarget >> 16;
 485
 486     instr1 &= ~kImm16Mask;
 487     instr1 |= itarget & kImm16Mask;
 488     itarget = itarget >> 16;
 489
 490     *p = instr1;
 491     *(p + 1) = instr2;
 492     *(p + 3) = instr4;
 493     *(p + 4) = instr5;
 494     if (icache_flush_mode != SKIP_ICACHE_FLUSH) {
 495       CpuFeatures::FlushICache(p, 5 * kInstrSize);
 496     }
 497 #else
 498     uint32_t* p = reinterpret_cast<uint32_t*>(pc);
 499     uint32_t itarget = reinterpret_cast<uint32_t>(target);
 500     int lo_word = itarget & kImm16Mask;
 501     int hi_word = itarget >> 16;
 502     instr1 &= ~kImm16Mask;
 503     instr1 |= hi_word;
 504     instr2 &= ~kImm16Mask;
 505     instr2 |= lo_word;
 506
 507     *p = instr1;
 508     *(p + 1) = instr2;
 509     if (icache_flush_mode != SKIP_ICACHE_FLUSH) {
 510       CpuFeatures::FlushICache(p, 2 * kInstrSize);
 511     }
 512 #endif
 513     return;
 514   }
 515   UNREACHABLE();
 516 }
 517 }
 518 }  // namespace v8::internal
 519
 520 #endif  // V8_PPC_ASSEMBLER_PPC_INL_H_