disasm-arm.cc.svn-base

Google浏览器V8内核代码

// Copyright 2007-2008 the V8 project authors. All rights reserved.
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
//     * Redistributions of source code must retain the above copyright
//       notice, this list of conditions and the following disclaimer.
//     * Redistributions in binary form must reproduce the above
//       copyright notice, this list of conditions and the following
//       disclaimer in the documentation and/or other materials provided
//       with the distribution.
//     * Neither the name of Google Inc. nor the names of its
//       contributors may be used to endorse or promote products derived
//       from this software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

#include <assert.h>
#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#ifndef WIN32
#include <stdint.h>
#endif

#include "v8.h"

#include "disasm.h"
#include "macro-assembler.h"
#include "platform.h"

namespace assembler { namespace arm {

namespace v8i = v8::internal;


//------------------------------------------------------------------------------

// Decoder decodes and disassembles instructions into an output buffer.
// It uses the converter to convert register names and call destinations into
// more informative description.
class Decoder {
 public:
  Decoder(const disasm::NameConverter& converter,
          v8::internal::Vector<char> out_buffer)
    : converter_(converter),
      out_buffer_(out_buffer),
      out_buffer_pos_(0) {
    out_buffer_[out_buffer_pos_] = '\0';
  }

  ~Decoder() {}

  // Writes one disassembled instruction into 'buffer' (0-terminated).
  // Returns the length of the disassembled machine instruction in bytes.
  int InstructionDecode(byte* instruction);

 private:
  const disasm::NameConverter& converter_;
  v8::internal::Vector<char> out_buffer_;
  int out_buffer_pos_;

  void PrintChar(const char ch);
  void Print(const char* str);

  void PrintRegister(int reg);
  void PrintCondition(Instr* instr);
  void PrintShiftRm(Instr* instr);
  void PrintShiftImm(Instr* instr);

  int FormatOption(Instr* instr, const char* option);
  void Format(Instr* instr, const char* format);
  void Unknown(Instr* instr);

  void DecodeType0(Instr* instr);
  void DecodeType1(Instr* instr);
  void DecodeType2(Instr* instr);
  void DecodeType3(Instr* instr);
  void DecodeType4(Instr* instr);
  void DecodeType5(Instr* instr);
  void DecodeType6(Instr* instr);
  void DecodeType7(Instr* instr);
};


// Append the ch to the output buffer.
void Decoder::PrintChar(const char ch) {
  out_buffer_[out_buffer_pos_++] = ch;
}


// Append the str to the output buffer.
void Decoder::Print(const char* str) {
  char cur = *str++;
  while (cur != 0 && (out_buffer_pos_ < (out_buffer_.length()-1))) {
    PrintChar(cur);
    cur = *str++;
  }
  out_buffer_[out_buffer_pos_] = 0;
}


static const char* cond_names[16] = {
"eq", "ne", "cs" , "cc" , "mi" , "pl" , "vs" , "vc" ,
"hi", "ls", "ge", "lt", "gt", "le", "", "invalid",
};


// Print the condition guarding the instruction.
void Decoder::PrintCondition(Instr* instr) {
  Print(cond_names[instr->ConditionField()]);
}


// Print the register name according to the active name converter.
void Decoder::PrintRegister(int reg) {
  Print(converter_.NameOfCPURegister(reg));
}


static const char* shift_names[4] = {
  "lsl", "lsr", "asr", "ror"
};


// Print the register shift operands for the instruction. Generally used for
// data processing instructions.
void Decoder::PrintShiftRm(Instr* instr) {
  Shift shift = instr->ShiftField();
  int shift_amount = instr->ShiftAmountField();
  int rm = instr->RmField();

  PrintRegister(rm);

  if ((instr->RegShiftField() == 0) && (shift == LSL) && (shift_amount == 0)) {
    // Special case for using rm only.
    return;
  }
  if (instr->RegShiftField() == 0) {
    // by immediate
    if ((shift == ROR) && (shift_amount == 0)) {
      Print(", RRX");
      return;
    } else if (((shift == LSR) || (shift == ASR)) && (shift_amount == 0)) {
      shift_amount = 32;
    }
    out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                         ", %s #%d",
                                         shift_names[shift], shift_amount);
  } else {
    // by register
    int rs = instr->RsField();
    out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                         ", %s ", shift_names[shift]);
    PrintRegister(rs);
  }
}


// Print the immediate operand for the instruction. Generally used for data
// processing instructions.
void Decoder::PrintShiftImm(Instr* instr) {
  int rotate = instr->RotateField() * 2;
  int immed8 = instr->Immed8Field();
  int imm = (immed8 >> rotate) | (immed8 << (32 - rotate));
  out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                       "#%d", imm);
}


// FormatOption takes a formatting string and interprets it based on
// the current instructions. The format string points to the first
// character of the option string (the option escape has already been
// consumed by the caller.)  FormatOption returns the number of
// characters that were consumed from the formatting string.
int Decoder::FormatOption(Instr* instr, const char* format) {
  switch (format[0]) {
    case 'a': {  // 'a: accumulate multiplies
      if (instr->Bit(21) == 0) {
        Print("ul");
      } else {
        Print("la");
      }
      return 1;
      break;
    }
    case 'b': {  // 'b: byte loads or stores
      if (instr->HasB()) {
        Print("b");
      }
      return 1;
      break;
    }
    case 'c': {  // 'cond: conditional execution
      ASSERT((format[1] == 'o') && (format[2] == 'n') && (format[3] =='d'));
      PrintCondition(instr);
      return 4;
      break;
    }
    case 'h': {  // 'h: halfword operation for extra loads and stores
      if (instr->HasH()) {
        Print("h");
      } else {
        Print("b");
      }
      return 1;
      break;
    }
    case 'i': {  // 'imm: immediate value for data processing instructions
      ASSERT((format[1] == 'm') && (format[2] == 'm'));
      PrintShiftImm(instr);
      return 3;
      break;
    }
    case 'l': {  // 'l: branch and link
      if (instr->HasLink()) {
        Print("l");
      }
      return 1;
      break;
    }
    case 'm': {  // 'msg: for simulator break instructions
      if (format[1] == 'e') {
        ASSERT((format[2] == 'm') && (format[3] == 'o') && (format[4] == 'p'));
        if (instr->HasL()) {
          Print("ldr");
        } else {
          Print("str");
        }
        return 5;
      } else {
        ASSERT(format[1] == 's' && format[2] == 'g');
        byte* str =
            reinterpret_cast<byte*>(instr->InstructionBits() & 0x0fffffff);
        out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                             "%s", converter_.NameInCode(str));
        return 3;
      }
      break;
    }
    case 'o': {
      ASSERT(format[1] == 'f' && format[2] == 'f');
      if (format[3] == '1') {
        // 'off12: 12-bit offset for load and store instructions
        ASSERT(format[4] == '2');
        out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                             "%d", instr->Offset12Field());
        return 5;
      } else {
        // 'off8: 8-bit offset for extra load and store instructions
        ASSERT(format[3] == '8');
        int offs8 = (instr->ImmedHField() << 4) | instr->ImmedLField();
        out_buffer_pos_ += v8i::OS::SNPrintF(out_buffer_ + out_buffer_pos_,
                                             "%d", offs8);
        return 4;
      }
      break;
    }
    case 'p': {  // 'pu: P and U bits for load and store instructions
      ASSERT(format[1] == 'u');
      switch (instr->PUField()) {
        case 0: {
          Print("da");
          break;
        }
        case 1: {
          Print("ia");
          break;
        }
        case 2: {
          Print("db");
          break;
        }
        case 3: {
          Print("ib");
          break;
        }
        default: {
          UNREACHABLE();
          break;
        }
      }
      return 2;
      break;
    }
    case 'r': {
      if (format[1] == 'n') {  // 'rn: Rn register
        int reg = instr->RnField();
        PrintRegister(reg);
        return 2;
      } else if (format[1] == 'd') {  // 'rd: Rd register
        int reg = instr->RdField();
        PrintRegister(reg);
        return 2;
      } else if (format[1] == 's') {  // 'rs: Rs register
        int reg = instr->RsField();
        PrintRegister(reg);
        return 2;
      } else if (format[1] == 'm') {  // 'rm: Rm register
        int reg = instr->RmField();
        PrintRegister(reg);
        return 2;
      } else if (format[1] == 'l') {
        // 'rlist: register list for load and store multiple instructions
        ASSERT(format[2] == 'i' && format[3] == 's' && format[4] == 't');
        int rlist = instr->RlistField();
        int reg = 0;
        Print("{");
        while (rlist != 0) {
          if ((rlist & 1) != 0) {
            PrintRegister(reg);
            if ((rlist >> 1) != 0) {
              Print(", ");
            }
          }
          reg++;
          rlist >>= 1;
        }
        Print("}");
        return 5;
      } else {
        UNREACHABLE();
      }
      UNREACHABLE();
      return -1;
      break;
    }
    case 's': {
      if (format[1] == 'h') {  // 'shift_rm: register shift operands
        ASSERT(format[2] == 'i' && format[3] == 'f' && format[4] == 't'
               && format[5] == '_' && format[6] == 'r' && format[7] == 'm');
        PrintShiftRm(instr);
        return 8;
      } else if (format[1] == 'w') {
        ASSERT(format[2] == 'i');
        SoftwareInterruptCodes swi = instr->SwiField();
        switch (swi) {
          case call_rt_r5:
            Print("call_rt_r5");
            break;
          case call_rt_r2:
            Print("call_rt_r2");
            break;
          case break_point:
            Print("break_point");
            break;
          default:
            out_buffer_pos_ += v8i::OS::SNPrintF(
                out_buffer_ + out_buffer_pos_,
                "%d",
                swi);
            break;
        }
        return 3;
      } else if (format[1] == 'i') {  // 'sign: signed extra loads and stores
        ASSERT(format[2] == 'g' && format[3] == 'n');
        if (instr->HasSign()) {
          Print("s");
        }
        return 4;
        break;
      } else {  // 's: S field of data processing instructions
        if (instr->HasS()) {
          Print("s");
        }
        return 1;
      }
      break;
    }
    case 't': {  // 'target: target of branch instructions
      ASSERT(format[1] == 'a' && format[2] == 'r' && format[3] == 'g'
             && format[4] == 'e' && format[5] == 't');
      int off = (instr->SImmed24Field() << 2) + 8;
      out_buffer_pos_ += v8i::OS::SNPrintF(
          out_buffer_ + out_buffer_pos_,
          "%+d -> %s",
          off,
          converter_.NameOfAddress(reinterpret_cast<byte*>(instr) + off));
      return 6;
      break;
    }
    case 'u': {  // 'u: signed or unsigned multiplies
      if (instr->Bit(22) == 0) {
        Print("u");
      } else {
        Print("s");
      }
      return 1;
      break;
    }
    case 'w': {  // 'w: W field of load and store instructions
      if (instr->HasW()) {
        Print("!");
      }
      return 1;
      break;
    }
    default: {
      UNREACHABLE();
      break;
    }
  }
  UNREACHABLE();
  return -1;
}


// Format takes a formatting string for a whole instruction and prints it into
// the output buffer. All escaped options are handed to FormatOption to be
// parsed further.
void Decoder::Format(Instr* instr, const char* format) {
  char cur = *format++;
  while ((cur != 0) && (out_buffer_pos_ < (out_buffer_.length() - 1))) {
    if (cur == '\'') {  // Single quote is used as the formatting escape.
      format += FormatOption(instr, format);
    } else {
      out_buffer_[out_buffer_pos_++] = cur;
    }
    cur = *format++;
  }
  out_buffer_[out_buffer_pos_]  = '\0';
}


// For currently unimplemented decodings the disassembler calls Unknown(instr)
// which will just print "unknown" of the instruction bits.
void Decoder::Unknown(Instr* instr) {
  Format(instr, "unknown");
}


void Decoder::DecodeType0(Instr* instr) {
  if (instr->IsSpecialType0()) {
    // multiply instruction or extra loads and stores
    if (instr->Bits(7, 4) == 9) {
      if (instr->Bit(24) == 0) {
        // multiply instructions
        if (instr->Bit(23) == 0) {
          if (instr->Bit(21) == 0) {
            Format(instr, "mul'cond's 'rd, 'rm, 'rs");
          } else {
            Format(instr, "mla'cond's 'rd, 'rm, 'rs, 'rn");
          }
        } else {
          Format(instr, "'um'al'cond's 'rn, 'rd, 'rs, 'rm");
        }
      } else {
        Unknown(instr);  // not used by V8
      }
    } else {
      // extra load/store instructions
      switch (instr->PUField()) {
        case 0: {
          if (instr->Bit(22) == 0) {
            Format(instr, "'memop'cond'sign'h 'rd, ['rn], -'rm");
          } else {
            Format(instr, "'memop'cond'sign'h 'rd, ['rn], #-'off8");
          }
          break;