//===- MachO.h - MachO object file implementation ---------------*- C++ -*-===//
//
//                     The LLVM Compiler Infrastructure
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//
//
// This file declares the MachOObjectFile class, which binds the MachOObject
// class to the generic ObjectFile wrapper.
//
//===----------------------------------------------------------------------===//

#ifndef LLVM_OBJECT_MACHO_H
#define LLVM_OBJECT_MACHO_H

#include "llvm/ADT/ArrayRef.h"
#include "llvm/ADT/SmallVector.h"
#include "llvm/ADT/Triple.h"
#include "llvm/Object/MachOFormat.h"
#include "llvm/Object/ObjectFile.h"
#include "llvm/Support/Endian.h"
#include "llvm/Support/MachO.h"
#include "llvm/Support/raw_ostream.h"

namespace llvm {
namespace object {

using support::endianness;

template<endianness E, bool B>
struct MachOType {
  static const endianness TargetEndianness = E;
  static const bool Is64Bits = B;
};

template<endianness TargetEndianness>
struct MachODataTypeTypedefHelperCommon {
  typedef support::detail::packed_endian_specific_integral
    <uint16_t, TargetEndianness, support::unaligned> MachOInt16;
  typedef support::detail::packed_endian_specific_integral
    <uint32_t, TargetEndianness, support::unaligned> MachOInt32;
  typedef support::detail::packed_endian_specific_integral
    <uint64_t, TargetEndianness, support::unaligned> MachOInt64;
};

#define LLVM_MACHOB_IMPORT_TYPES(E)                                          \
typedef typename MachODataTypeTypedefHelperCommon<E>::MachOInt16 MachOInt16; \
typedef typename MachODataTypeTypedefHelperCommon<E>::MachOInt32 MachOInt32; \
typedef typename MachODataTypeTypedefHelperCommon<E>::MachOInt64 MachOInt64;

template<class MachOT>
struct MachODataTypeTypedefHelper;

template<endianness TargetEndianness>
struct MachODataTypeTypedefHelper<MachOType<TargetEndianness, false> > {
  typedef MachODataTypeTypedefHelperCommon<TargetEndianness> Base;
  typedef typename Base::MachOInt32 MachOIntPtr;
};

template<endianness TargetEndianness>
struct MachODataTypeTypedefHelper<MachOType<TargetEndianness, true> > {
  typedef MachODataTypeTypedefHelperCommon<TargetEndianness> Base;
  typedef typename Base::MachOInt64 MachOIntPtr;
};

#define LLVM_MACHO_IMPORT_TYPES(MachOT, E, B)                        \
LLVM_MACHOB_IMPORT_TYPES(E)                                          \
typedef typename                                                     \
  MachODataTypeTypedefHelper <MachOT<E, B> >::MachOIntPtr MachOIntPtr;

namespace MachOFormat {
  struct SectionBase {
    char Name[16];
    char SegmentName[16];
  };

  template<class MachOT>
  struct Section;

  template<endianness TargetEndianness>
  struct Section<MachOType<TargetEndianness, false> > {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    char Name[16];
    char SegmentName[16];
    MachOInt32 Address;
    MachOInt32 Size;
    MachOInt32 Offset;
    MachOInt32 Align;
    MachOInt32 RelocationTableOffset;
    MachOInt32 NumRelocationTableEntries;
    MachOInt32 Flags;
    MachOInt32 Reserved1;
    MachOInt32 Reserved2;
  };

  template<endianness TargetEndianness>
  struct Section<MachOType<TargetEndianness, true> > {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    char Name[16];
    char SegmentName[16];
    MachOInt64 Address;
    MachOInt64 Size;
    MachOInt32 Offset;
    MachOInt32 Align;
    MachOInt32 RelocationTableOffset;
    MachOInt32 NumRelocationTableEntries;
    MachOInt32 Flags;
    MachOInt32 Reserved1;
    MachOInt32 Reserved2;
    MachOInt32 Reserved3;
  };

  struct MachOInt24 {
    uint8_t bytes[3];
    operator uint32_t() const {
      return (bytes[2] << 24) | (bytes[1] << 16) | bytes[0];
    }
  };

  template<endianness TargetEndianness>
  struct RelocationEntry {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 Address;
    MachOInt24 SymbolNum;
    uint8_t Bits;

    unsigned getPCRel() const {
      return Bits & 0x1;
    }
    unsigned getLength() const {
      return (Bits >> 1) & 0x3;
    }
    unsigned getExternal() const {
      return (Bits >> 3) & 0x1;
    }
    unsigned getType() const {
      return Bits >> 4;
    }
  };

  template<endianness TargetEndianness>
  struct ScatteredRelocationEntry {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt24 Address;
    uint8_t Bits;
    MachOInt32 Value;

    unsigned getType() const {
      return Bits & 0xf;
    }
    unsigned getLength() const {
      return (Bits >> 4) & 0x3;
    }
    unsigned getPCRel() const {
      return (Bits >> 6) & 0x1;
    }
    unsigned getScattered() const {
      return Bits >> 7;
    }
  };

  template<endianness TargetEndianness>
  struct SymbolTableEntryBase {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 StringIndex;
    uint8_t Type;
    uint8_t SectionIndex;
    MachOInt16 Flags;
  };

  template<class MachOT>
  struct SymbolTableEntry;

  template<endianness TargetEndianness, bool Is64Bits>
  struct SymbolTableEntry<MachOType<TargetEndianness, Is64Bits> > {
    LLVM_MACHO_IMPORT_TYPES(MachOType, TargetEndianness, Is64Bits)
    MachOInt32 StringIndex;
    uint8_t Type;
    uint8_t SectionIndex;
    MachOInt16 Flags;
    MachOIntPtr Value;
  };

  template<endianness TargetEndianness>
  struct LoadCommand {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 Type;
    MachOInt32 Size;
  };

  template<endianness TargetEndianness>
  struct SymtabLoadCommand {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 Type;
    MachOInt32 Size;
    MachOInt32 SymbolTableOffset;
    MachOInt32 NumSymbolTableEntries;
    MachOInt32 StringTableOffset;
    MachOInt32 StringTableSize;
  };

  template<class MachOT>
  struct SegmentLoadCommand;

  template<endianness TargetEndianness, bool Is64Bits>
  struct SegmentLoadCommand<MachOType<TargetEndianness, Is64Bits> > {
    LLVM_MACHO_IMPORT_TYPES(MachOType, TargetEndianness, Is64Bits)
    MachOInt32 Type;
    MachOInt32 Size;
    char Name[16];
    MachOIntPtr VMAddress;
    MachOIntPtr VMSize;
    MachOIntPtr FileOffset;
    MachOIntPtr FileSize;
    MachOInt32 MaxVMProtection;
    MachOInt32 InitialVMProtection;
    MachOInt32 NumSections;
    MachOInt32 Flags;
  };

  template<endianness TargetEndianness>
  struct LinkeditDataLoadCommand {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 Type;
    MachOInt32 Size;
    MachOInt32 DataOffset;
    MachOInt32 DataSize;
  };

  template<endianness TargetEndianness>
  struct Header {
    LLVM_MACHOB_IMPORT_TYPES(TargetEndianness)
    MachOInt32 Magic;
    MachOInt32 CPUType;
    MachOInt32 CPUSubtype;
    MachOInt32 FileType;
    MachOInt32 NumLoadCommands;
    MachOInt32 SizeOfLoadCommands;
    MachOInt32 Flags;
  };
}

class MachOObjectFileBase : public ObjectFile {
public:
  typedef MachOFormat::SymbolTableEntryBase<support::little>
    SymbolTableEntryBase;
  typedef MachOFormat::SymtabLoadCommand<support::little> SymtabLoadCommand;
  typedef MachOFormat::RelocationEntry<support::little> RelocationEntry;
  typedef MachOFormat::ScatteredRelocationEntry<support::little>
    ScatteredRelocationEntry;
  typedef MachOFormat::SectionBase SectionBase;
  typedef MachOFormat::LoadCommand<support::little> LoadCommand;
  typedef MachOFormat::Header<support::little> Header;
  typedef MachOFormat::LinkeditDataLoadCommand<support::little>
    LinkeditDataLoadCommand;

  MachOObjectFileBase(MemoryBuffer *Object, bool Is64Bits, error_code &ec);

  virtual symbol_iterator begin_symbols() const;
  virtual symbol_iterator end_symbols() const;
  virtual symbol_iterator begin_dynamic_symbols() const;
  virtual symbol_iterator end_dynamic_symbols() const;
  virtual library_iterator begin_libraries_needed() const;
  virtual library_iterator end_libraries_needed() const;
  virtual section_iterator end_sections() const;

  virtual uint8_t getBytesInAddress() const;
  virtual StringRef getFileFormatName() const;
  virtual unsigned getArch() const;
  virtual StringRef getLoadName() const;

  // In a MachO file, sections have a segment name. This is used in the .o
  // files. They have a single segment, but this field specifies which segment
  // a section should be put in in the final object.
  StringRef getSectionFinalSegmentName(DataRefImpl Sec) const;

  // Names are stored as 16 bytes. These returns the raw 16 bytes without
  // interpreting them as a C string.
  ArrayRef<char> getSectionRawName(DataRefImpl Sec) const;
  ArrayRef<char>getSectionRawFinalSegmentName(DataRefImpl Sec) const;

  bool is64Bit() const;
  const LoadCommand *getLoadCommandInfo(unsigned Index) const;
  void ReadULEB128s(uint64_t Index, SmallVectorImpl<uint64_t> &Out) const;
  const Header *getHeader() const;
  unsigned getHeaderSize() const;
  StringRef getData(size_t Offset, size_t Size) const;
  const RelocationEntry *getRelocation(DataRefImpl Rel) const;
  bool isScattered(const RelocationEntry *RE) const;
  bool isPCRel(const RelocationEntry *RE) const;
  unsigned getLength(const RelocationEntry *RE) const;
  unsigned getType(const RelocationEntry *RE) const;

  static inline bool classof(const Binary *v) {
    return v->isMachO();
  }

protected:
  virtual error_code getSymbolNext(DataRefImpl Symb, SymbolRef &Res) const;
  virtual error_code getSymbolName(DataRefImpl Symb, StringRef &Res) const;
  virtual error_code getSymbolNMTypeChar(DataRefImpl Symb, char &Res) const;
  virtual error_code getSymbolFlags(DataRefImpl Symb, uint32_t &Res) const;
  virtual error_code getSymbolType(DataRefImpl Symb, SymbolRef::Type &Res) const;
  virtual error_code getSymbolSection(DataRefImpl Symb,
                                      section_iterator &Res) const;
  virtual error_code getSymbolValue(DataRefImpl Symb, uint64_t &Val) const;
  virtual error_code getSectionName(DataRefImpl Sec, StringRef &Res) const;
  virtual error_code isSectionData(DataRefImpl Sec, bool &Res) const;
  virtual error_code isSectionBSS(DataRefImpl Sec, bool &Res) const;
  virtual error_code isSectionRequiredForExecution(DataRefImpl Sec,
                                                   bool &Res) const;
  virtual error_code isSectionVirtual(DataRefImpl Sec, bool &Res) const;
  virtual error_code isSectionReadOnlyData(DataRefImpl Sec, bool &Res) const;
  virtual relocation_iterator getSectionRelBegin(DataRefImpl Sec) const;

  virtual error_code getRelocationNext(DataRefImpl Rel,
                                       RelocationRef &Res) const;

  virtual error_code getLibraryNext(DataRefImpl LibData, LibraryRef &Res) const;
  virtual error_code getLibraryPath(DataRefImpl LibData, StringRef &Res) const;
  virtual error_code getRelocationAdditionalInfo(DataRefImpl Rel,
                                                 int64_t &Res) const;

  std::size_t getSectionIndex(DataRefImpl Sec) const;

  typedef SmallVector<DataRefImpl, 1> SectionList;
  SectionList Sections;

  void moveToNextSymbol(DataRefImpl &DRI) const;
  void printRelocationTargetName(const RelocationEntry *RE,
                                 raw_string_ostream &fmt) const;
  const SectionBase *getSectionBase(DataRefImpl DRI) const;
  const SymbolTableEntryBase *getSymbolTableEntryBase(DataRefImpl DRI) const;

private:

  const SymbolTableEntryBase *getSymbolTableEntryBase(DataRefImpl DRI,
                                  const SymtabLoadCommand *SymtabLoadCmd) const;
};

template<class MachOT>
struct MachOObjectFileHelperCommon;

template<endianness TargetEndianness, bool Is64Bits>
struct MachOObjectFileHelperCommon<MachOType<TargetEndianness, Is64Bits> > {
  typedef
    MachOFormat::SegmentLoadCommand<MachOType<TargetEndianness, Is64Bits> >
    SegmentLoadCommand;
  typedef MachOFormat::SymbolTableEntry<MachOType<TargetEndianness, Is64Bits> >
    SymbolTableEntry;
  typedef MachOFormat::Section<MachOType<TargetEndianness, Is64Bits> > Section;
};

template<class MachOT>
struct MachOObjectFileHelper;

template<endianness TargetEndianness>
struct MachOObjectFileHelper<MachOType<TargetEndianness, false> > :
    public MachOObjectFileHelperCommon<MachOType<TargetEndianness, false> > {
  static const macho::LoadCommandType SegmentLoadType = macho::LCT_Segment;
};

template<endianness TargetEndianness>
struct MachOObjectFileHelper<MachOType<TargetEndianness, true> > :
    public MachOObjectFileHelperCommon<MachOType<TargetEndianness, true> > {
  static const macho::LoadCommandType SegmentLoadType = macho::LCT_Segment64;
};

template<class MachOT>
class MachOObjectFile : public MachOObjectFileBase {
public:
  static const endianness TargetEndianness = MachOT::TargetEndianness;
  static const bool Is64Bits = MachOT::Is64Bits;

  typedef MachOObjectFileHelper<MachOT> Helper;
  static const macho::LoadCommandType SegmentLoadType = Helper::SegmentLoadType;
  typedef typename Helper::SegmentLoadCommand SegmentLoadCommand;
  typedef typename Helper::SymbolTableEntry SymbolTableEntry;
  typedef typename Helper::Section Section;

  MachOObjectFile(MemoryBuffer *Object, error_code &ec);
  static bool classof(const Binary *v);

  const Section *getSection(DataRefImpl DRI) const;
  const SymbolTableEntry *getSymbolTableEntry(DataRefImpl DRI) const;
  const RelocationEntry *getRelocation(DataRefImpl Rel) const;

  virtual error_code getSectionAddress(DataRefImpl Sec, uint64_t &Res) const;
  virtual error_code getSectionSize(DataRefImpl Sec, uint64_t &Res) const;
  virtual error_code getSectionContents(DataRefImpl Sec, StringRef &Res) const;
  virtual error_code getSectionAlignment(DataRefImpl Sec, uint64_t &Res) const;
  virtual error_code isSectionText(DataRefImpl Sec, bool &Res) const;
  virtual error_code isSectionZeroInit(DataRefImpl Sec, bool &Res) const;
  virtual relocation_iterator getSectionRelEnd(DataRefImpl Sec) const;
  virtual error_code getRelocationAddress(DataRefImpl Rel, uint64_t &Res) const;
  virtual error_code getRelocationOffset(DataRefImpl Rel, uint64_t &Res) const;
  virtual error_code getRelocationSymbol(DataRefImpl Rel, SymbolRef &Res) const;
  virtual error_code getRelocationType(DataRefImpl Rel, uint64_t &Res) const;
  virtual error_code getRelocationTypeName(DataRefImpl Rel,
                                           SmallVectorImpl<char> &Result) const;
  virtual error_code getRelocationValueString(DataRefImpl Rel,
                                           SmallVectorImpl<char> &Result) const;
  virtual error_code getRelocationHidden(DataRefImpl Rel, bool &Result) const;
  virtual error_code getSymbolFileOffset(DataRefImpl Symb, uint64_t &Res) const;
  virtual error_code sectionContainsSymbol(DataRefImpl Sec, DataRefImpl Symb,
                                           bool &Result) const;
  virtual error_code getSymbolAddress(DataRefImpl Symb, uint64_t &Res) const;
  virtual error_code getSymbolSize(DataRefImpl Symb, uint64_t &Res) const;
  virtual error_code getSectionNext(DataRefImpl Sec, SectionRef &Res) const;
  virtual section_iterator begin_sections() const;
  void moveToNextSection(DataRefImpl &DRI) const;
};

template<class MachOT>
MachOObjectFile<MachOT>::MachOObjectFile(MemoryBuffer *Object,
                                         error_code &ec) :
  MachOObjectFileBase(Object, Is64Bits, ec) {
  DataRefImpl DRI;
  moveToNextSection(DRI);
  uint32_t LoadCommandCount = getHeader()->NumLoadCommands;
  while (DRI.d.a < LoadCommandCount) {
    Sections.push_back(DRI);
    DRI.d.b++;
    moveToNextSection(DRI);
  }
}

template<class MachOT>
bool MachOObjectFile<MachOT>::classof(const Binary *v) {
  return v->getType() == getMachOType(true, Is64Bits);
}

template<class MachOT>
const typename MachOObjectFile<MachOT>::Section *
MachOObjectFile<MachOT>::getSection(DataRefImpl DRI) const {
  const SectionBase *Addr = getSectionBase(DRI);
  return reinterpret_cast<const Section*>(Addr);
}

template<class MachOT>
const typename MachOObjectFile<MachOT>::SymbolTableEntry *
MachOObjectFile<MachOT>::getSymbolTableEntry(DataRefImpl DRI) const {
  const SymbolTableEntryBase *Base = getSymbolTableEntryBase(DRI);
  return reinterpret_cast<const SymbolTableEntry*>(Base);
}

template<class MachOT>
const typename MachOObjectFile<MachOT>::RelocationEntry *
MachOObjectFile<MachOT>::getRelocation(DataRefImpl Rel) const {
  const Section *Sect = getSection(Sections[Rel.d.b]);
  uint32_t RelOffset = Sect->RelocationTableOffset;
  uint64_t Offset = RelOffset + Rel.d.a * sizeof(RelocationEntry);
  StringRef Data = getData(Offset, sizeof(RelocationEntry));
  return reinterpret_cast<const RelocationEntry*>(Data.data());
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getSectionAddress(DataRefImpl Sec,
                                           uint64_t &Res) const {
  const Section *Sect = getSection(Sec);
  Res = Sect->Address;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getSectionSize(DataRefImpl Sec,
                                        uint64_t &Res) const {
  const Section *Sect = getSection(Sec);
  Res = Sect->Size;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getSectionContents(DataRefImpl Sec,
                                            StringRef &Res) const {
  const Section *Sect = getSection(Sec);
  Res = getData(Sect->Offset, Sect->Size);
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getSectionAlignment(DataRefImpl Sec,
                                             uint64_t &Res) const {
  const Section *Sect = getSection(Sec);
  Res = uint64_t(1) << Sect->Align;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::isSectionText(DataRefImpl Sec, bool &Res) const {
  const Section *Sect = getSection(Sec);
  Res = Sect->Flags & macho::SF_PureInstructions;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::isSectionZeroInit(DataRefImpl Sec, bool &Res) const {
  const Section *Sect = getSection(Sec);
  unsigned SectionType = Sect->Flags & MachO::SectionFlagMaskSectionType;
  Res = SectionType == MachO::SectionTypeZeroFill ||
    SectionType == MachO::SectionTypeZeroFillLarge;
  return object_error::success;
}

template<class MachOT>
relocation_iterator
MachOObjectFile<MachOT>::getSectionRelEnd(DataRefImpl Sec) const {
  const Section *Sect = getSection(Sec);
  uint32_t LastReloc = Sect->NumRelocationTableEntries;
  DataRefImpl Ret;
  Ret.d.a = LastReloc;
  Ret.d.b = getSectionIndex(Sec);
  return relocation_iterator(RelocationRef(Ret, this));
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationAddress(DataRefImpl Rel,
                                              uint64_t &Res) const {
  const Section *Sect = getSection(Sections[Rel.d.b]);
  uint64_t SectAddress = Sect->Address;
  const RelocationEntry *RE = getRelocation(Rel);

  uint64_t RelAddr;
  if (isScattered(RE))
    RelAddr = RE->Address & 0xFFFFFF;
  else
    RelAddr = RE->Address;

  Res = SectAddress + RelAddr;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationOffset(DataRefImpl Rel,
                                             uint64_t &Res) const {
  const RelocationEntry *RE = getRelocation(Rel);
  if (isScattered(RE))
    Res = RE->Address & 0xFFFFFF;
  else
    Res = RE->Address;
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationSymbol(DataRefImpl Rel,
                                             SymbolRef &Res) const {
  const RelocationEntry *RE = getRelocation(Rel);
  uint32_t SymbolIdx = RE->SymbolNum;
  bool isExtern = RE->getExternal();

  DataRefImpl Sym;
  moveToNextSymbol(Sym);
  if (isExtern) {
    for (unsigned i = 0; i < SymbolIdx; i++) {
      Sym.d.b++;
      moveToNextSymbol(Sym);
      assert(Sym.d.a < getHeader()->NumLoadCommands &&
             "Relocation symbol index out of range!");
    }
  }
  Res = SymbolRef(Sym, this);
  return object_error::success;
}

template<class MachOT>
error_code MachOObjectFile<MachOT>::getRelocationType(DataRefImpl Rel,
                                                      uint64_t &Res) const {
  const RelocationEntry *RE = getRelocation(Rel);
  Res = getType(RE);
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationTypeName(DataRefImpl Rel,
                                          SmallVectorImpl<char> &Result) const {
    // TODO: Support scattered relocations.
  StringRef res;
  const RelocationEntry *RE = getRelocation(Rel);

  unsigned Arch = getArch();

  unsigned r_type = getType(RE);

  switch (Arch) {
    case Triple::x86: {
      static const char *const Table[] =  {
        "GENERIC_RELOC_VANILLA",
        "GENERIC_RELOC_PAIR",
        "GENERIC_RELOC_SECTDIFF",
        "GENERIC_RELOC_PB_LA_PTR",
        "GENERIC_RELOC_LOCAL_SECTDIFF",
        "GENERIC_RELOC_TLV" };

      if (r_type > 6)
        res = "Unknown";
      else
        res = Table[r_type];
      break;
    }
    case Triple::x86_64: {
      static const char *const Table[] =  {
        "X86_64_RELOC_UNSIGNED",
        "X86_64_RELOC_SIGNED",
        "X86_64_RELOC_BRANCH",
        "X86_64_RELOC_GOT_LOAD",
        "X86_64_RELOC_GOT",
        "X86_64_RELOC_SUBTRACTOR",
        "X86_64_RELOC_SIGNED_1",
        "X86_64_RELOC_SIGNED_2",
        "X86_64_RELOC_SIGNED_4",
        "X86_64_RELOC_TLV" };

      if (r_type > 9)
        res = "Unknown";
      else
        res = Table[r_type];
      break;
    }
    case Triple::arm: {
      static const char *const Table[] =  {
        "ARM_RELOC_VANILLA",
        "ARM_RELOC_PAIR",
        "ARM_RELOC_SECTDIFF",
        "ARM_RELOC_LOCAL_SECTDIFF",
        "ARM_RELOC_PB_LA_PTR",
        "ARM_RELOC_BR24",
        "ARM_THUMB_RELOC_BR22",
        "ARM_THUMB_32BIT_BRANCH",
        "ARM_RELOC_HALF",
        "ARM_RELOC_HALF_SECTDIFF" };

      if (r_type > 9)
        res = "Unknown";
      else
        res = Table[r_type];
      break;
    }
    case Triple::ppc: {
      static const char *const Table[] =  {
        "PPC_RELOC_VANILLA",
        "PPC_RELOC_PAIR",
        "PPC_RELOC_BR14",
        "PPC_RELOC_BR24",
        "PPC_RELOC_HI16",
        "PPC_RELOC_LO16",
        "PPC_RELOC_HA16",
        "PPC_RELOC_LO14",
        "PPC_RELOC_SECTDIFF",
        "PPC_RELOC_PB_LA_PTR",
        "PPC_RELOC_HI16_SECTDIFF",
        "PPC_RELOC_LO16_SECTDIFF",
        "PPC_RELOC_HA16_SECTDIFF",
        "PPC_RELOC_JBSR",
        "PPC_RELOC_LO14_SECTDIFF",
        "PPC_RELOC_LOCAL_SECTDIFF" };

      res = Table[r_type];
      break;
    }
    case Triple::UnknownArch:
      res = "Unknown";
      break;
  }
  Result.append(res.begin(), res.end());
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationValueString(DataRefImpl Rel,
                                          SmallVectorImpl<char> &Result) const {
  const RelocationEntry *RE = getRelocation(Rel);

  unsigned Arch = getArch();
  bool IsScattered = isScattered(RE);

  std::string fmtbuf;
  raw_string_ostream fmt(fmtbuf);

  unsigned Type = getType(RE);
  bool IsPCRel = isPCRel(RE);

  // Determine any addends that should be displayed with the relocation.
  // These require decoding the relocation type, which is triple-specific.

  // X86_64 has entirely custom relocation types.
  if (Arch == Triple::x86_64) {
    bool isPCRel = RE->getPCRel();

    switch (Type) {
      case macho::RIT_X86_64_GOTLoad:   // X86_64_RELOC_GOT_LOAD
      case macho::RIT_X86_64_GOT: {     // X86_64_RELOC_GOT
        printRelocationTargetName(RE, fmt);
        fmt << "@GOT";
        if (isPCRel) fmt << "PCREL";
        break;
      }
      case macho::RIT_X86_64_Subtractor: { // X86_64_RELOC_SUBTRACTOR
        DataRefImpl RelNext = Rel;
        RelNext.d.a++;
        const RelocationEntry *RENext = getRelocation(RelNext);

        // X86_64_SUBTRACTOR must be followed by a relocation of type
        // X86_64_RELOC_UNSIGNED.
        // NOTE: Scattered relocations don't exist on x86_64.
        unsigned RType = RENext->getType();
        if (RType != 0)
          report_fatal_error("Expected X86_64_RELOC_UNSIGNED after "
                             "X86_64_RELOC_SUBTRACTOR.");

        // The X86_64_RELOC_UNSIGNED contains the minuend symbol,
        // X86_64_SUBTRACTOR contains to the subtrahend.
        printRelocationTargetName(RENext, fmt);
        fmt << "-";
        printRelocationTargetName(RE, fmt);
        break;
      }
      case macho::RIT_X86_64_TLV:
        printRelocationTargetName(RE, fmt);
        fmt << "@TLV";
        if (isPCRel) fmt << "P";
        break;
      case macho::RIT_X86_64_Signed1: // X86_64_RELOC_SIGNED1
        printRelocationTargetName(RE, fmt);
        fmt << "-1";
        break;
      case macho::RIT_X86_64_Signed2: // X86_64_RELOC_SIGNED2
        printRelocationTargetName(RE, fmt);
        fmt << "-2";
        break;
      case macho::RIT_X86_64_Signed4: // X86_64_RELOC_SIGNED4
        printRelocationTargetName(RE, fmt);
        fmt << "-4";
        break;
      default:
        printRelocationTargetName(RE, fmt);
        break;
    }
  // X86 and ARM share some relocation types in common.
  } else if (Arch == Triple::x86 || Arch == Triple::arm) {
    // Generic relocation types...
    switch (Type) {
      case macho::RIT_Pair: // GENERIC_RELOC_PAIR - prints no info
        return object_error::success;
      case macho::RIT_Difference: { // GENERIC_RELOC_SECTDIFF
        DataRefImpl RelNext = Rel;
        RelNext.d.a++;
        const RelocationEntry *RENext = getRelocation(RelNext);

        // X86 sect diff's must be followed by a relocation of type
        // GENERIC_RELOC_PAIR.
        bool isNextScattered = (Arch != Triple::x86_64) &&
                               (RENext->Address & macho::RF_Scattered);
        unsigned RType;
        if (isNextScattered)
          RType = (RENext->Address >> 24) & 0xF;
        else
          RType = RENext->getType();
        if (RType != 1)
          report_fatal_error("Expected GENERIC_RELOC_PAIR after "
                             "GENERIC_RELOC_SECTDIFF.");

        printRelocationTargetName(RE, fmt);
        fmt << "-";
        printRelocationTargetName(RENext, fmt);
        break;
      }
    }

    if (Arch == Triple::x86) {
      // All X86 relocations that need special printing were already
      // handled in the generic code.
      switch (Type) {
        case macho::RIT_Generic_LocalDifference:{// GENERIC_RELOC_LOCAL_SECTDIFF
          DataRefImpl RelNext = Rel;
          RelNext.d.a++;
          const RelocationEntry *RENext = getRelocation(RelNext);

          // X86 sect diff's must be followed by a relocation of type
          // GENERIC_RELOC_PAIR.
          bool isNextScattered = (Arch != Triple::x86_64) &&
                               (RENext->Address & macho::RF_Scattered);
          unsigned RType;
          if (isNextScattered)
            RType = (RENext->Address >> 24) & 0xF;
          else
            RType = RENext->getType();
          if (RType != 1)
            report_fatal_error("Expected GENERIC_RELOC_PAIR after "
                               "GENERIC_RELOC_LOCAL_SECTDIFF.");

          printRelocationTargetName(RE, fmt);
          fmt << "-";
          printRelocationTargetName(RENext, fmt);
          break;
        }
        case macho::RIT_Generic_TLV: {
          printRelocationTargetName(RE, fmt);
          fmt << "@TLV";
          if (IsPCRel) fmt << "P";
          break;
        }
        default:
          printRelocationTargetName(RE, fmt);
      }
    } else { // ARM-specific relocations
      switch (Type) {
        case macho::RIT_ARM_Half:             // ARM_RELOC_HALF
        case macho::RIT_ARM_HalfDifference: { // ARM_RELOC_HALF_SECTDIFF
          // Half relocations steal a bit from the length field to encode
          // whether this is an upper16 or a lower16 relocation.
          bool isUpper;
          if (IsScattered)
            isUpper = (RE->Address >> 28) & 1;
          else
            isUpper = (RE->getLength() >> 1) & 1;

          if (isUpper)
            fmt << ":upper16:(";
          else
            fmt << ":lower16:(";
          printRelocationTargetName(RE, fmt);

          DataRefImpl RelNext = Rel;
          RelNext.d.a++;
          const RelocationEntry *RENext = getRelocation(RelNext);

          // ARM half relocs must be followed by a relocation of type
          // ARM_RELOC_PAIR.
          bool isNextScattered = (Arch != Triple::x86_64) &&
                                 (RENext->Address & macho::RF_Scattered);
          unsigned RType;
          if (isNextScattered)
            RType = (RENext->Address >> 24) & 0xF;
          else
            RType = RENext->getType();

          if (RType != 1)
            report_fatal_error("Expected ARM_RELOC_PAIR after "
                               "GENERIC_RELOC_HALF");

          // NOTE: The half of the target virtual address is stashed in the
          // address field of the secondary relocation, but we can't reverse
          // engineer the constant offset from it without decoding the movw/movt
          // instruction to find the other half in its immediate field.

          // ARM_RELOC_HALF_SECTDIFF encodes the second section in the
          // symbol/section pointer of the follow-on relocation.
          if (Type == macho::RIT_ARM_HalfDifference) {
            fmt << "-";
            printRelocationTargetName(RENext, fmt);
          }

          fmt << ")";
          break;
        }
        default: {
          printRelocationTargetName(RE, fmt);
        }
      }
    }
  } else
    printRelocationTargetName(RE, fmt);

  fmt.flush();
  Result.append(fmtbuf.begin(), fmtbuf.end());
  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getRelocationHidden(DataRefImpl Rel,
                                             bool &Result) const {
  const RelocationEntry *RE = getRelocation(Rel);
  unsigned Arch = getArch();
  unsigned Type = getType(RE);

  Result = false;

  // On arches that use the generic relocations, GENERIC_RELOC_PAIR
  // is always hidden.
  if (Arch == Triple::x86 || Arch == Triple::arm) {
    if (Type == macho::RIT_Pair) Result = true;
  } else if (Arch == Triple::x86_64) {
    // On x86_64, X86_64_RELOC_UNSIGNED is hidden only when it follows
    // an X864_64_RELOC_SUBTRACTOR.
    if (Type == macho::RIT_X86_64_Unsigned && Rel.d.a > 0) {
      DataRefImpl RelPrev = Rel;
      RelPrev.d.a--;
      const RelocationEntry *REPrev = getRelocation(RelPrev);

      unsigned PrevType = REPrev->getType();

      if (PrevType == macho::RIT_X86_64_Subtractor) Result = true;
    }
  }

  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::getSymbolFileOffset(DataRefImpl Symb,
                                             uint64_t &Res) const {
  const SymbolTableEntry *Entry = getSymbolTableEntry(Symb);
  Res = Entry->Value;
  if (Entry->SectionIndex) {
    const Section *Sec = getSection(Sections[Entry->SectionIndex-1]);
    Res += Sec->Offset - Sec->Address;
  }

  return object_error::success;
}

template<class MachOT>
error_code
MachOObjectFile<MachOT>::sectionContainsSymbol(DataRefImpl Sec,
                                               DataRefImpl Symb,
                                               bool &Result) const {
  SymbolRef::Type ST;
  getSymbolType(Symb, ST);
  if (ST == SymbolRef::ST_Unknown) {
    Result = false;
    return object_error::success;
  }

  uint64_t SectBegin, SectEnd;
  getSectionAddress(Sec, SectBegin);
  getSectionSize(Sec, SectEnd);
  SectEnd += SectBegin;

  const SymbolTableEntry *Entry = getSymbolTableEntry(Symb);
  uint64_t SymAddr= Entry->Value;
  Result = (SymAddr >= SectBegin) && (SymAddr < SectEnd);

  return object_error::success;
}

template<class MachOT>
error_code MachOObjectFile<MachOT>::getSymbolAddress(DataRefImpl Symb,
                                                     uint64_t &Res) const {
  const SymbolTableEntry *Entry = getSymbolTableEntry(Symb);
  Res = Entry->Value;
  return object_error::success;
}

template<class MachOT>
error_code MachOObjectFile<MachOT>::getSymbolSize(DataRefImpl DRI,
                                                    uint64_t &Result) const {
  uint32_t LoadCommandCount = getHeader()->NumLoadCommands;
  uint64_t BeginOffset;
  uint64_t EndOffset = 0;
  uint8_t SectionIndex;

  const SymbolTableEntry *Entry = getSymbolTableEntry(DRI);
  BeginOffset = Entry->Value;
  SectionIndex = Entry->SectionIndex;
  if (!SectionIndex) {
    uint32_t flags = SymbolRef::SF_None;
    getSymbolFlags(DRI, flags);
    if (flags & SymbolRef::SF_Common)
      Result = Entry->Value;
    else
      Result = UnknownAddressOrSize;
    return object_error::success;
  }
  // Unfortunately symbols are unsorted so we need to touch all
  // symbols from load command
  DRI.d.b = 0;
  uint32_t Command = DRI.d.a;
  while (Command == DRI.d.a) {
    moveToNextSymbol(DRI);
    if (DRI.d.a < LoadCommandCount) {
      Entry = getSymbolTableEntry(DRI);
      if (Entry->SectionIndex == SectionIndex && Entry->Value > BeginOffset)
        if (!EndOffset || Entry->Value < EndOffset)
          EndOffset = Entry->Value;
    }
    DRI.d.b++;
  }
  if (!EndOffset) {
    uint64_t Size;
    getSectionSize(Sections[SectionIndex-1], Size);
    getSectionAddress(Sections[SectionIndex-1], EndOffset);
    EndOffset += Size;
  }
  Result = EndOffset - BeginOffset;
  return object_error::success;
}

template<class MachOT>
error_code MachOObjectFile<MachOT>::getSectionNext(DataRefImpl Sec,
                                                   SectionRef &Res) const {
  Sec.d.b++;
  moveToNextSection(Sec);
  Res = SectionRef(Sec, this);
  return object_error::success;
}

template<class MachOT>
section_iterator MachOObjectFile<MachOT>::begin_sections() const {
  DataRefImpl DRI;
  moveToNextSection(DRI);
  return section_iterator(SectionRef(DRI, this));
}

template<class MachOT>
void MachOObjectFile<MachOT>::moveToNextSection(DataRefImpl &DRI) const {
  uint32_t LoadCommandCount = getHeader()->NumLoadCommands;
  while (DRI.d.a < LoadCommandCount) {
    const LoadCommand *Command = getLoadCommandInfo(DRI.d.a);
    if (Command->Type == SegmentLoadType) {
      const SegmentLoadCommand *SegmentLoadCmd =
        reinterpret_cast<const SegmentLoadCommand*>(Command);
      if (DRI.d.b < SegmentLoadCmd->NumSections)
        return;
    }

    DRI.d.a++;
    DRI.d.b = 0;
  }
}

  typedef MachOObjectFile<MachOType<support::little, false> >
    MachOObjectFile32Le;
  typedef MachOObjectFile<MachOType<support::little, true> >
    MachOObjectFile64Le;
}
}

#endif