Initial implementation of Bare Metal Mode for NaCl.

components/nacl/loader/nonsfi/elf_loader.cc

Index: components/nacl/loader/nonsfi/elf_loader.cc
diff --git a/components/nacl/loader/nonsfi/elf_loader.cc b/components/nacl/loader/nonsfi/elf_loader.cc
new file mode 100644
index 0000000000000000000000000000000000000000..81d9896edae94e2f5f206407732277004c289da8
--- /dev/null
+++ b/components/nacl/loader/nonsfi/elf_loader.cc
@@ -0,0 +1,408 @@
+// Copyright 2013 The Chromium Authors. All rights reserved.
+// Use of this source code is governed by a BSD-style license that can be
+// found in the LICENSE file.
+
+#include "components/nacl/loader/nonsfi/elf_loader.h"
+
+#include <elf.h>
+#include <link.h>
+
+#include <cstring>
+#include <string>
+#include <sys/mman.h>
+
+#include "base/logging.h"
+#include "base/strings/string_number_conversions.h"
+#include "native_client/src/include/portability.h"
+#include "native_client/src/shared/platform/nacl_host_desc.h"
+#include "native_client/src/trusted/desc/nacl_desc_base.h"
+#include "native_client/src/trusted/desc/nacl_desc_effector_trusted_mem.h"
+#include "native_client/src/trusted/service_runtime/include/bits/mman.h"
+
+// Extracted from native_client/src/trusted/service_runtime/nacl_config.h.
+#if NACL_ARCH(NACL_BUILD_ARCH) == NACL_x86
+# if NACL_BUILD_SUBARCH == 64
+#  define NACL_ELF_E_MACHINE EM_X86_64
+# elif NACL_BUILD_SUBARCH == 32
+#  define NACL_ELF_E_MACHINE EM_386
+# else
+#  error Unknown platform.
+# endif
+#elif NACL_ARCH(NACL_BUILD_ARCH) == NACL_arm
+# define NACL_ELF_E_MACHINE EM_ARM
+#elif NACL_ARCH(NACL_BUILD_ARCH) == NACL_mips
+# define NACL_ELF_E_MACHINE EM_MIPS
+#else
+# error Unknown platform.
+#endif
+
+namespace nacl {
+namespace nonsfi {
+namespace {
+
+// Page size for non-SFI Mode.
+const ElfW(Addr) kNonSfiPageSize = 4096;
+const ElfW(Addr) kNonSfiPageMask = kNonSfiPageSize - 1;
+
+void DumpElfHeader(const ElfW(Ehdr)& ehdr) {

[Mark Seaborn, 2013/12/12 04:49:48]

Can you remove this DumpElfHeader logging, please?  It's easy enough to dump ELF
headers using objdump.

[hidehiko, 2013/12/12 09:26:04]

Done.

+#define DUMP(member) \
+  #member << " = 0x" << base::HexEncode(&ehdr.member, sizeof(ehdr.member))
+// For expanding and stringify ElfW(Ehdr).
+#define QUOTE(name) QUOTE_1(name)
+#define QUOTE_1(name) #name
+
+  VLOG(2) << "\n" <<
+      "=================================================\n"
+      "Elf header\n"
+      "==================================================\n" <<
+      std::string(
+          reinterpret_cast<const char*>(ehdr.e_ident + 1), 3) << "\n" <<
+      DUMP(e_type) << "\n" <<
+      DUMP(e_machine) << "\n" <<
+      DUMP(e_version) << "\n" <<
+      DUMP(e_entry) << "\n" <<
+      DUMP(e_phoff) << "\n" <<
+      DUMP(e_shoff) << "\n" <<
+      DUMP(e_flags) << "\n" <<
+      DUMP(e_ehsize) << "\n" <<
+      DUMP(e_phentsize) << "\n" <<
+      DUMP(e_phnum) << "\n" <<
+      DUMP(e_shentsize) << "\n" <<
+      DUMP(e_shnum) << "\n" <<
+      DUMP(e_shstrndx) << "\n" <<
+      "sizeof(" << QUOTE(ElfW(Ehdr)) << ") = " << sizeof(ElfW(Ehdr));
+#undef QUOTE_1
+#undef QUOTE
+#undef DUMP
+}
+
+void DumpElfProgramHeader(const ElfW(Phdr)& phdr) {
+#define DUMP(member) \
+  #member << " = 0x" << base::HexEncode(&phdr.member, sizeof(phdr.member))
+
+  VLOG(2) <<
+      DUMP(p_type) << "\n" <<
+      DUMP(p_offset) << "\n" <<
+      DUMP(p_vaddr) << "\n" <<
+      DUMP(p_paddr) << "\n" <<
+      DUMP(p_filesz) << "\n" <<
+      DUMP(p_memsz) << "\n" <<
+      DUMP(p_flags) << "\n" <<
+      " (" << ((phdr.p_flags & PF_R) ? "PF_R" : "") << " "
+           << ((phdr.p_flags & PF_W) ? "PF_W" : "") << " "
+           << ((phdr.p_flags & PF_W) ? "PF_X" : "") << ")\n" <<
+      DUMP(p_align) << "\n\n";
+#undef  DUMP
+}
+
+NonSfiErrorCode ValidateElfHeader(const ElfW(Ehdr)& ehdr) {
+  if (std::memcmp(ehdr.e_ident, ELFMAG, SELFMAG)) {
+    LOG(ERROR) << "Bad elf magic";
+    return LOAD_BAD_ELF_MAGIC;
+  }
+
+#if NACL_BUILD_SUBARCH == 32
+  if (ehdr.e_ident[EI_CLASS] != ELFCLASS32) {
+    LOG(ERROR) << "Bad elf class";
+    return LOAD_NOT_32_BIT;
+  }
+#elif NACL_BUILD_SUBARCH == 64
+  if (ehdr.e_ident[EI_CLASS] != ELFCLASS64) {
+    LOG(ERROR) << "Bad elf class";
+    return LOAD_NOT_64_BIT;
+  }
+#else
+# error Unknown platform.
+#endif
+
+  if (ehdr.e_type != ET_DYN) {
+    LOG(ERROR) << "Not a relocatable ELF object (not ET_DYN)";
+    return LOAD_NOT_EXEC;
+  }
+
+  if (ehdr.e_machine != NACL_ELF_E_MACHINE) {
+    LOG(ERROR) << "Bad machine: "
+               << base::HexEncode(&ehdr.e_machine, sizeof(ehdr.e_machine));
+    return LOAD_BAD_MACHINE;
+  }
+
+  if (ehdr.e_version != EV_CURRENT) {
+    LOG(ERROR) << "Bad elf version: "
+               << base::HexEncode(&ehdr.e_version, sizeof(ehdr.e_version));
+  }
+
+  return LOAD_OK;
+}
+
+// Returns the address of the page starting at address 'addr' for non-SFI mode.
+ElfW(Addr) GetPageStart(ElfW(Addr) addr) {
+  return addr & ~kNonSfiPageMask;
+}
+
+// Returns the offset of address 'addr' in its memory page. In other words,
+// this equals to 'addr' - GetPageStart(addr).
+ElfW(Addr) GetPageOffset(ElfW(Addr) addr) {
+  return addr & kNonSfiPageMask;
+}
+
+// Returns the address of the next page after address 'addr', unless 'addr' is
+// at the start of a page. This equals to:
+//   addr == GetPageStart(addr) ? addr : GetPageStart(addr) + kNonSfiPageSize
+ElfW(Addr) GetPageEnd(ElfW(Addr) addr) {
+  return GetPageStart(addr + kNonSfiPageSize - 1);
+}
+
+// Converts the pflags (in phdr) to mmap's prot flags.
+int PFlagsToProt(int pflags) {
+  return ((pflags & PF_X) ? PROT_EXEC : 0) |
+         ((pflags & PF_R) ? PROT_READ : 0) |
+         ((pflags & PF_W) ? PROT_WRITE : 0);
+}
+
+// Converts the pflags (in phdr) to NaCl ABI's prot flags.
+int PFlagsToNaClProt(int pflags) {
+  return ((pflags & PF_X) ? NACL_ABI_PROT_EXEC : 0) |
+         ((pflags & PF_R) ? NACL_ABI_PROT_READ : 0) |
+         ((pflags & PF_W) ? NACL_ABI_PROT_WRITE : 0);
+}
+
+// Returns the load size for the given phdrs, or 0 on error.
+ElfW(Addr) GetLoadSize(const ElfW(Phdr)* phdrs, int phnum) {
+  ElfW(Addr) begin = 0xFFFFFFFFU;
+  ElfW(Addr) end = 0;
+
+  VLOG(4) << "GetLoadSize: phnum=" << phnum;

[Mark Seaborn, 2013/12/12 04:49:48]

Can you remove the VLOGs for brevity, please?  It's unlikely these will be
useful beyond the initial development of the ELF loader.

[hidehiko, 2013/12/12 09:26:04]

Done.

+  for (int i = 0; i < phnum; ++i) {
+    const ElfW(Phdr)& phdr = phdrs[i];
+    if (phdr.p_type != PT_LOAD) {
+      // Do nothing for non PT_LOAD header.
+      continue;
+    }
+
+    begin = std::min(begin, phdr.p_vaddr);
+    end = std::max(end, phdr.p_vaddr + phdr.p_memsz);
+  }
+
+  if (begin > end) {
+    // The end address looks overflowing.
+    return 0;
+  }
+
+  return GetPageEnd(end) - GetPageStart(begin);
+}
+
+// Reserves the memory for the given phdrs, and stores the memory address,
+// its size and bias to the load_start, load_size and load_bias.
+NonSfiErrorCode ReserveMemory(const ElfW(Phdr)* phdrs,
+                              int phnum,
+                              ElfW(Addr)* load_bias) {
+  VLOG(4) << "ReserveMemory";
+
+  ElfW(Addr) size = GetLoadSize(phdrs, phnum);
+  if (size == 0) {
+    LOG(ERROR) << "ReserveMemory failed to calculate size";
+    return LOAD_UNLOADABLE;
+  }
+  VLOG(4) << "ReserveMemory: size=" << size;
+
+  // Make sure that the given program headers represents PIE binary.
+  for (int i = 0; i < phnum; ++i) {
+    if (phdrs[i].p_type == PT_LOAD) {
+      // Here, phdrs[i] is the first loadable segment.
+      if (phdrs[i].p_vaddr != 0) {
+        // The binary is not PIE (i.e. needs to be loaded onto fixed addressed
+        // memory. We don't support such a case.
+        LOG(ERROR)
+            << "Reservememory: Non-PIE binary loading is not supported.";
+        return LOAD_UNLOADABLE;
+      }
+      break;
+    }
+  }
+
+  void* start = mmap(0, size, PROT_NONE, MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
+  if (start == MAP_FAILED) {
+    LOG(ERROR) << "ReserveMemory: failed to mmap.";
+    return LOAD_NO_MEMORY;
+  }
+
+  *load_bias = reinterpret_cast<ElfW(Addr)>(start);
+  VLOG(4) << "ReserveMemory: success";
+  return LOAD_OK;
+}
+
+NonSfiErrorCode LoadSegments(
+    const ElfW(Phdr)* phdrs, int phnum, ElfW(Addr) load_bias,
+    struct NaClDesc* descriptor) {
+  for (int i = 0; i < phnum; ++i) {
+    const ElfW(Phdr)& phdr = phdrs[i];
+    if (phdr.p_type != PT_LOAD) {
+      // Not a load target.
+      VLOG(4) << "LoadSegments: [" << i << "] Skipped";
+      continue;
+    }
+
+    VLOG(4) << "LoadSegments: [" << i << "] Loading...";
+
+    // Addresses on the memory.
+    ElfW(Addr) seg_start = phdr.p_vaddr + load_bias;
+    ElfW(Addr) seg_end = seg_start + phdr.p_memsz;
+    ElfW(Addr) seg_page_start = GetPageStart(seg_start);
+    ElfW(Addr) seg_page_end = GetPageEnd(seg_end);
+    ElfW(Addr) seg_file_end = seg_start + phdr.p_filesz;
+
+    // Addresses on the file content.
+    ElfW(Addr) file_start = phdr.p_offset;
+    ElfW(Addr) file_end = file_start + phdr.p_filesz;
+    ElfW(Addr) file_page_start = GetPageStart(file_start);
+
+    uintptr_t seg_addr = (*NACL_VTBL(NaClDesc, descriptor)->Map)(
+        descriptor,
+        NaClDescEffectorTrustedMem(),
+        reinterpret_cast<void *>(seg_page_start),
+        file_end - file_page_start,
+        PFlagsToNaClProt(phdr.p_flags),
+        NACL_ABI_MAP_PRIVATE | NACL_ABI_MAP_FIXED,
+        file_page_start);
+    if (NaClPtrIsNegErrno(&seg_addr)) {
+      LOG(ERROR) << "LoadSegments: [" << i << "] mmap failed, " << seg_addr;
+      return LOAD_NO_MEMORY;
+    }
+
+    // Fill Zero between the segment end and the page boundary if necessary
+    // (i.e. if the segment doesn't end on a page boundary).
+    ElfW(Addr) seg_file_end_offset = GetPageOffset(seg_file_end);
+    if ((phdr.p_flags & PF_W) && seg_file_end_offset > 0) {
+      memset(reinterpret_cast<void *>(seg_file_end), 0,
+             kNonSfiPageSize - seg_file_end_offset);
+    }
+
+    // Hereafter, seg_file_end is now the first page address after the file
+    // content. If seg_end is larger, we need to zero anything between them.
+    // This is done by using a private anonymous mmap for all extra pages.
+    seg_file_end = GetPageEnd(seg_file_end);
+    if (seg_page_end > seg_file_end) {
+      void* zeromap = mmap(reinterpret_cast<void *>(seg_file_end),
+                           seg_page_end - seg_file_end,
+                           PFlagsToProt(phdr.p_flags),
+                           MAP_FIXED | MAP_ANONYMOUS | MAP_PRIVATE,
+                           -1, 0);
+      if (zeromap == MAP_FAILED) {
+        LOG(ERROR) << "LoadSegments: [" << i << "] Failed to zeromap.";
+        return LOAD_NO_MEMORY;
+      }
+    }
+  }
+  return LOAD_OK;
+}
+
+}  // namespace
+
+struct ElfImage::Data {
+  // Limit of elf program headers allowed.
+  enum {
+    MAX_PROGRAM_HEADERS = 128
+  };
+
+  ElfW(Ehdr) ehdr;
+  ElfW(Phdr) phdrs[MAX_PROGRAM_HEADERS];
+  ElfW(Addr) load_bias;
+};
+
+ElfImage::ElfImage() {
+}
+
+ElfImage::~ElfImage() {
+}
+
+uintptr_t ElfImage::entry_point() const {
+  if (!data_) {
+    LOG(DFATAL) << "entry_point must be called after Read().";
+    return 0;
+  }
+  return data_->ehdr.e_entry + data_->load_bias;
+}
+
+NonSfiErrorCode ElfImage::Read(struct NaClDesc* descriptor) {
+  VLOG(3) << "ElfImage::Read";
+  DCHECK(!data_);
+
+  ::scoped_ptr<Data> data(new Data);
+
+  // Read elf header.
+  ssize_t read_ret = (*NACL_VTBL(NaClDesc, descriptor)->PRead)(
+      descriptor, &data->ehdr, sizeof(data->ehdr), 0);
+  if (NaClSSizeIsNegErrno(&read_ret) ||
+      static_cast<size_t>(read_ret) != sizeof(data->ehdr)) {
+    LOG(ERROR) << "Could not load elf headers.";
+    return LOAD_READ_ERROR;
+  }
+
+  DumpElfHeader(data->ehdr);
+  NonSfiErrorCode error_code = ValidateElfHeader(data->ehdr);
+  if (error_code != LOAD_OK)
+    return error_code;
+
+  // Read program headers.
+  if (data->ehdr.e_phnum > Data::MAX_PROGRAM_HEADERS) {
+    LOG(ERROR) << "Too many program headers";
+    return LOAD_TOO_MANY_PROG_HDRS;
+  }
+
+  if (data->ehdr.e_phentsize != sizeof(data->phdrs[0])) {
+    LOG(ERROR) << "Bad program headers size\n"
+               << "  ehdr_.e_phentsize = " << data->ehdr.e_phentsize << "\n"
+               << "  sizeof phdrs[0] = " << sizeof(data->phdrs[0]);
+    return LOAD_BAD_PHENTSIZE;
+  }
+
+  size_t read_size = data->ehdr.e_phnum * data->ehdr.e_phentsize;
+  read_ret = (*NACL_VTBL(NaClDesc, descriptor)->PRead)(
+      descriptor, data->phdrs, read_size, data->ehdr.e_phoff);
+
+  if (NaClSSizeIsNegErrno(&read_ret) ||
+      static_cast<size_t>(read_ret) != read_size) {
+    LOG(ERROR) << "Cannot load prog headers";
+    return LOAD_READ_ERROR;
+  }
+
+  VLOG(2) << "\n" <<
+      "=================================================\n"
+      "Elf Program headers\n"
+      "==================================================\n";
+  for (int i = 0; i < data->ehdr.e_phnum; ++i) {
+    DumpElfProgramHeader(data->phdrs[i]);
+  }
+
+  data_.swap(data);
+  return LOAD_OK;
+}
+
+NonSfiErrorCode ElfImage::Load(struct NaClDesc* descriptor) {
+  VLOG(3) << "ElfImage::Load";
+  if (!data_) {
+    LOG(DFATAL) << "ElfImage::Load() must be called after Read()";
+    return LOAD_INTERNAL;
+  }
+
+  NonSfiErrorCode error =
+      ReserveMemory(data_->phdrs, data_->ehdr.e_phnum, &data_->load_bias);
+  if (error != LOAD_OK) {
+    LOG(ERROR) << "ElfImage::Load: Failed to allocate memory.";
+    return error;
+  }
+  VLOG(3) << "ElfImage::Load: Loader maps the program to 0x"
+          << base::HexEncode(&data_->load_bias, sizeof(data_->load_bias));
+
+  error = LoadSegments(
+      data_->phdrs, data_->ehdr.e_phnum, data_->load_bias, descriptor);
+  if (error != LOAD_OK) {
+    LOG(ERROR) << "ElfImage::Load: Failed to load segments";
+    return error;
+  }
+
+  return LOAD_OK;
+}
+
+}  // namespace nonsfi
+}  // namespace nacl