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_reference() {
 158   DCHECK(rmode_ == EXTERNAL_REFERENCE);
 159   return Assembler::target_address_at(pc_, host_);
 160 }
 161
 162
 163 Address RelocInfo::target_runtime_entry(Assembler* origin) {
 164   DCHECK(IsRuntimeEntry(rmode_));
 165   return target_address();
 166 }
 167
 168
 169 void RelocInfo::set_target_runtime_entry(Address target,
 170                                          WriteBarrierMode write_barrier_mode,
 171                                          ICacheFlushMode icache_flush_mode) {
 172   DCHECK(IsRuntimeEntry(rmode_));
 173   if (target_address() != target)
 174     set_target_address(target, write_barrier_mode, icache_flush_mode);
 175 }
 176
 177
 178 Handle<Cell> RelocInfo::target_cell_handle() {
 179   DCHECK(rmode_ == RelocInfo::CELL);
 180   Address address = Memory::Address_at(pc_);
 181   return Handle<Cell>(reinterpret_cast<Cell**>(address));
 182 }
 183
 184
 185 Cell* RelocInfo::target_cell() {
 186   DCHECK(rmode_ == RelocInfo::CELL);
 187   return Cell::FromValueAddress(Memory::Address_at(pc_));
 188 }
 189
 190
 191 void RelocInfo::set_target_cell(Cell* cell, WriteBarrierMode write_barrier_mode,
 192                                 ICacheFlushMode icache_flush_mode) {
 193   DCHECK(rmode_ == RelocInfo::CELL);
 194   Address address = cell->address() + Cell::kValueOffset;
 195   Memory::Address_at(pc_) = address;
 196   if (write_barrier_mode == UPDATE_WRITE_BARRIER && host() != NULL) {
 197     // TODO(1550) We are passing NULL as a slot because cell can never be on
 198     // evacuation candidate.
 199     host()->GetHeap()->incremental_marking()->RecordWrite(host(), NULL, cell);
 200   }
 201 }
 202
 203
 204 static const int kNoCodeAgeInstructions = 6;
 205 static const int kCodeAgingInstructions = Assembler::kMovInstructions + 3;
 206 static const int kNoCodeAgeSequenceInstructions =
 207     ((kNoCodeAgeInstructions >= kCodeAgingInstructions)
 208          ? kNoCodeAgeInstructions
 209          : kCodeAgingInstructions);
 210 static const int kNoCodeAgeSequenceNops =
 211     (kNoCodeAgeSequenceInstructions - kNoCodeAgeInstructions);
 212 static const int kCodeAgingSequenceNops =
 213     (kNoCodeAgeSequenceInstructions - kCodeAgingInstructions);
 214 static const int kCodeAgingTargetDelta = 1 * Assembler::kInstrSize;
 215 static const int kNoCodeAgeSequenceLength =
 216     (kNoCodeAgeSequenceInstructions * Assembler::kInstrSize);
 217
 218
 219 Handle<Object> RelocInfo::code_age_stub_handle(Assembler* origin) {
 220   UNREACHABLE();  // This should never be reached on PPC.
 221   return Handle<Object>();
 222 }
 223
 224
 225 Code* RelocInfo::code_age_stub() {
 226   DCHECK(rmode_ == RelocInfo::CODE_AGE_SEQUENCE);
 227   return Code::GetCodeFromTargetAddress(
 228       Assembler::target_address_at(pc_ + kCodeAgingTargetDelta, host_));
 229 }
 230
 231
 232 void RelocInfo::set_code_age_stub(Code* stub,
 233                                   ICacheFlushMode icache_flush_mode) {
 234   DCHECK(rmode_ == RelocInfo::CODE_AGE_SEQUENCE);
 235   Assembler::set_target_address_at(pc_ + kCodeAgingTargetDelta, host_,
 236                                    stub->instruction_start(),
 237                                    icache_flush_mode);
 238 }
 239
 240
 241 Address RelocInfo::call_address() {
 242   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 243          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 244   // The pc_ offset of 0 assumes patched return sequence per
 245   // BreakLocationIterator::SetDebugBreakAtReturn(), or debug break
 246   // slot per BreakLocationIterator::SetDebugBreakAtSlot().
 247   return Assembler::target_address_at(pc_, host_);
 248 }
 249
 250
 251 void RelocInfo::set_call_address(Address target) {
 252   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 253          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 254   Assembler::set_target_address_at(pc_, host_, target);
 255   if (host() != NULL) {
 256     Object* target_code = Code::GetCodeFromTargetAddress(target);
 257     host()->GetHeap()->incremental_marking()->RecordWriteIntoCode(
 258         host(), this, HeapObject::cast(target_code));
 259   }
 260 }
 261
 262
 263 Object* RelocInfo::call_object() { return *call_object_address(); }
 264
 265
 266 void RelocInfo::set_call_object(Object* target) {
 267   *call_object_address() = target;
 268 }
 269
 270
 271 Object** RelocInfo::call_object_address() {
 272   DCHECK((IsJSReturn(rmode()) && IsPatchedReturnSequence()) ||
 273          (IsDebugBreakSlot(rmode()) && IsPatchedDebugBreakSlotSequence()));
 274   return reinterpret_cast<Object**>(pc_ + 2 * Assembler::kInstrSize);
 275 }
 276
 277
 278 void RelocInfo::WipeOut() {
 279   DCHECK(IsEmbeddedObject(rmode_) || IsCodeTarget(rmode_) ||
 280          IsRuntimeEntry(rmode_) || IsExternalReference(rmode_));
 281   Assembler::set_target_address_at(pc_, host_, NULL);
 282 }
 283
 284
 285 bool RelocInfo::IsPatchedReturnSequence() {
 286   //
 287   // The patched return sequence is defined by
 288   // BreakLocationIterator::SetDebugBreakAtReturn()
 289   // FIXED_SEQUENCE
 290
 291   Instr instr0 = Assembler::instr_at(pc_);
 292   Instr instr1 = Assembler::instr_at(pc_ + 1 * Assembler::kInstrSize);
 293 #if V8_TARGET_ARCH_PPC64
 294   Instr instr3 = Assembler::instr_at(pc_ + (3 * Assembler::kInstrSize));
 295   Instr instr4 = Assembler::instr_at(pc_ + (4 * Assembler::kInstrSize));
 296   Instr binstr = Assembler::instr_at(pc_ + (7 * Assembler::kInstrSize));
 297 #else
 298   Instr binstr = Assembler::instr_at(pc_ + 4 * Assembler::kInstrSize);
 299 #endif
 300   bool patched_return =
 301       ((instr0 & kOpcodeMask) == ADDIS && (instr1 & kOpcodeMask) == ORI &&
 302 #if V8_TARGET_ARCH_PPC64
 303        (instr3 & kOpcodeMask) == ORIS && (instr4 & kOpcodeMask) == ORI &&
 304 #endif
 305        (binstr == 0x7d821008));  // twge r2, r2
 306
 307   // printf("IsPatchedReturnSequence: %d\n", patched_return);
 308   return patched_return;
 309 }
 310
 311
 312 bool RelocInfo::IsPatchedDebugBreakSlotSequence() {
 313   Instr current_instr = Assembler::instr_at(pc_);
 314   return !Assembler::IsNop(current_instr, Assembler::DEBUG_BREAK_NOP);
 315 }
 316
 317
 318 void RelocInfo::Visit(Isolate* isolate, ObjectVisitor* visitor) {
 319   RelocInfo::Mode mode = rmode();
 320   if (mode == RelocInfo::EMBEDDED_OBJECT) {
 321     visitor->VisitEmbeddedPointer(this);
 322   } else if (RelocInfo::IsCodeTarget(mode)) {
 323     visitor->VisitCodeTarget(this);
 324   } else if (mode == RelocInfo::CELL) {
 325     visitor->VisitCell(this);
 326   } else if (mode == RelocInfo::EXTERNAL_REFERENCE) {
 327     visitor->VisitExternalReference(this);
 328   } else if (RelocInfo::IsCodeAgeSequence(mode)) {
 329     visitor->VisitCodeAgeSequence(this);
 330   } else if (((RelocInfo::IsJSReturn(mode) && IsPatchedReturnSequence()) ||
 331               (RelocInfo::IsDebugBreakSlot(mode) &&
 332                IsPatchedDebugBreakSlotSequence())) &&
 333              isolate->debug()->has_break_points()) {
 334     visitor->VisitDebugTarget(this);
 335   } else if (IsRuntimeEntry(mode)) {
 336     visitor->VisitRuntimeEntry(this);
 337   }
 338 }
 339
 340
 341 template <typename StaticVisitor>
 342 void RelocInfo::Visit(Heap* heap) {
 343   RelocInfo::Mode mode = rmode();
 344   if (mode == RelocInfo::EMBEDDED_OBJECT) {
 345     StaticVisitor::VisitEmbeddedPointer(heap, this);
 346   } else if (RelocInfo::IsCodeTarget(mode)) {
 347     StaticVisitor::VisitCodeTarget(heap, this);
 348   } else if (mode == RelocInfo::CELL) {
 349     StaticVisitor::VisitCell(heap, this);
 350   } else if (mode == RelocInfo::EXTERNAL_REFERENCE) {
 351     StaticVisitor::VisitExternalReference(this);
 352   } else if (RelocInfo::IsCodeAgeSequence(mode)) {
 353     StaticVisitor::VisitCodeAgeSequence(heap, this);
 354   } else if (heap->isolate()->debug()->has_break_points() &&
 355              ((RelocInfo::IsJSReturn(mode) && IsPatchedReturnSequence()) ||
 356               (RelocInfo::IsDebugBreakSlot(mode) &&
 357                IsPatchedDebugBreakSlotSequence()))) {
 358     StaticVisitor::VisitDebugTarget(heap, this);
 359   } else if (IsRuntimeEntry(mode)) {
 360     StaticVisitor::VisitRuntimeEntry(this);
 361   }
 362 }
 363
 364 Operand::Operand(intptr_t immediate, RelocInfo::Mode rmode) {
 365   rm_ = no_reg;
 366   imm_ = immediate;
 367   rmode_ = rmode;
 368 }
 369
 370 Operand::Operand(const ExternalReference& f) {
 371   rm_ = no_reg;
 372   imm_ = reinterpret_cast<intptr_t>(f.address());
 373   rmode_ = RelocInfo::EXTERNAL_REFERENCE;
 374 }
 375
 376 Operand::Operand(Smi* value) {
 377   rm_ = no_reg;
 378   imm_ = reinterpret_cast<intptr_t>(value);
 379   rmode_ = kRelocInfo_NONEPTR;
 380 }
 381
 382 Operand::Operand(Register rm) {
 383   rm_ = rm;
 384   rmode_ = kRelocInfo_NONEPTR;  // PPC -why doesn't ARM do this?
 385 }
 386
 387 void Assembler::CheckBuffer() {
 388   if (buffer_space() <= kGap) {
 389     GrowBuffer();
 390   }
 391 }
 392
 393 void Assembler::CheckTrampolinePoolQuick() {
 394   if (pc_offset() >= next_buffer_check_) {
 395     CheckTrampolinePool();
 396   }
 397 }
 398
 399 void Assembler::emit(Instr x) {
 400   CheckBuffer();
 401   *reinterpret_cast<Instr*>(pc_) = x;
 402   pc_ += kInstrSize;
 403   CheckTrampolinePoolQuick();
 404 }
 405
 406 bool Operand::is_reg() const { return rm_.is_valid(); }
 407
 408
 409 // Fetch the 32bit value from the FIXED_SEQUENCE lis/ori
 410 Address Assembler::target_address_at(Address pc,
 411                                      ConstantPoolArray* constant_pool) {
 412   Instr instr1 = instr_at(pc);
 413   Instr instr2 = instr_at(pc + kInstrSize);
 414   // Interpret 2 instructions generated by lis/ori
 415   if (IsLis(instr1) && IsOri(instr2)) {
 416 #if V8_TARGET_ARCH_PPC64
 417     Instr instr4 = instr_at(pc + (3 * kInstrSize));
 418     Instr instr5 = instr_at(pc + (4 * kInstrSize));
 419     // Assemble the 64 bit value.
 420     uint64_t hi = (static_cast<uint32_t>((instr1 & kImm16Mask) << 16) |
 421                    static_cast<uint32_t>(instr2 & kImm16Mask));
 422     uint64_t lo = (static_cast<uint32_t>((instr4 & kImm16Mask) << 16) |
 423                    static_cast<uint32_t>(instr5 & kImm16Mask));
 424     return reinterpret_cast<Address>((hi << 32) | lo);
 425 #else
 426     // Assemble the 32 bit value.
 427     return reinterpret_cast<Address>(((instr1 & kImm16Mask) << 16) |
 428                                      (instr2 & kImm16Mask));
 429 #endif
 430   }
 431
 432   UNREACHABLE();
 433   return NULL;
 434 }
 435
 436
 437 // This sets the branch destination (which gets loaded at the call address).
 438 // This is for calls and branches within generated code.  The serializer
 439 // has already deserialized the mov instructions etc.
 440 // There is a FIXED_SEQUENCE assumption here
 441 void Assembler::deserialization_set_special_target_at(
 442     Address instruction_payload, Code* code, Address target) {
 443   set_target_address_at(instruction_payload, code, target);
 444 }
 445
 446 // This code assumes the FIXED_SEQUENCE of lis/ori
 447 void Assembler::set_target_address_at(Address pc,
 448                                       ConstantPoolArray* constant_pool,
 449                                       Address target,
 450                                       ICacheFlushMode icache_flush_mode) {
 451   Instr instr1 = instr_at(pc);
 452   Instr instr2 = instr_at(pc + kInstrSize);
 453   // Interpret 2 instructions generated by lis/ori
 454   if (IsLis(instr1) && IsOri(instr2)) {
 455 #if V8_TARGET_ARCH_PPC64
 456     Instr instr4 = instr_at(pc + (3 * kInstrSize));
 457     Instr instr5 = instr_at(pc + (4 * kInstrSize));
 458     // Needs to be fixed up when mov changes to handle 64-bit values.
 459     uint32_t* p = reinterpret_cast<uint32_t*>(pc);
 460     uintptr_t itarget = reinterpret_cast<uintptr_t>(target);
 461
 462     instr5 &= ~kImm16Mask;
 463     instr5 |= itarget & kImm16Mask;
 464     itarget = itarget >> 16;
 465
 466     instr4 &= ~kImm16Mask;
 467     instr4 |= itarget & kImm16Mask;
 468     itarget = itarget >> 16;
 469
 470     instr2 &= ~kImm16Mask;
 471     instr2 |= itarget & kImm16Mask;
 472     itarget = itarget >> 16;
 473
 474     instr1 &= ~kImm16Mask;
 475     instr1 |= itarget & kImm16Mask;
 476     itarget = itarget >> 16;
 477
 478     *p = instr1;
 479     *(p + 1) = instr2;
 480     *(p + 3) = instr4;
 481     *(p + 4) = instr5;
 482     if (icache_flush_mode != SKIP_ICACHE_FLUSH) {
 483       CpuFeatures::FlushICache(p, 5 * kInstrSize);
 484     }
 485 #else
 486     uint32_t* p = reinterpret_cast<uint32_t*>(pc);
 487     uint32_t itarget = reinterpret_cast<uint32_t>(target);
 488     int lo_word = itarget & kImm16Mask;
 489     int hi_word = itarget >> 16;
 490     instr1 &= ~kImm16Mask;
 491     instr1 |= hi_word;
 492     instr2 &= ~kImm16Mask;
 493     instr2 |= lo_word;
 494
 495     *p = instr1;
 496     *(p + 1) = instr2;
 497     if (icache_flush_mode != SKIP_ICACHE_FLUSH) {
 498       CpuFeatures::FlushICache(p, 2 * kInstrSize);
 499     }
 500 #endif
 501     return;
 502   }
 503   UNREACHABLE();
 504 }
 505 }
 506 }  // namespace v8::internal
 507
 508 #endif  // V8_PPC_ASSEMBLER_PPC_INL_H_