Import LLVM 10.0.0 release including clang, lld and lldb.

ok hackroom
tested by plenty

1 files changed, 120 insertions, 0 deletions

diff --git a/gnu/llvm/lldb/source/Host/windows/HostProcessWindows.cpp b/gnu/llvm/lldb/source/Host/windows/HostProcessWindows.cpp
new file mode 100644
index 00000000000..90517249db7
--- /dev/null
+++ b/gnu/llvm/lldb/source/Host/windows/HostProcessWindows.cpp
@@ -0,0 +1,120 @@
+//===-- HostProcessWindows.cpp ----------------------------------*- C++ -*-===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+#include "lldb/Host/windows/HostProcessWindows.h"
+#include "lldb/Host/HostThread.h"
+#include "lldb/Host/ThreadLauncher.h"
+#include "lldb/Host/windows/windows.h"
+#include "lldb/Utility/FileSpec.h"
+
+#include "llvm/ADT/STLExtras.h"
+#include "llvm/Support/ConvertUTF.h"
+#include "llvm/Support/WindowsError.h"
+
+#include <psapi.h>
+
+using namespace lldb_private;
+
+namespace {
+struct MonitorInfo {
+  Host::MonitorChildProcessCallback callback;
+  HANDLE process_handle;
+};
+}
+
+HostProcessWindows::HostProcessWindows()
+    : HostNativeProcessBase(), m_owns_handle(true) {}
+
+HostProcessWindows::HostProcessWindows(lldb::process_t process)
+    : HostNativeProcessBase(process), m_owns_handle(true) {}
+
+HostProcessWindows::~HostProcessWindows() { Close(); }
+
+void HostProcessWindows::SetOwnsHandle(bool owns) { m_owns_handle = owns; }
+
+Status HostProcessWindows::Terminate() {
+  Status error;
+  if (m_process == nullptr)
+    error.SetError(ERROR_INVALID_HANDLE, lldb::eErrorTypeWin32);
+
+  if (!::TerminateProcess(m_process, 0))
+    error.SetError(::GetLastError(), lldb::eErrorTypeWin32);
+
+  return error;
+}
+
+Status HostProcessWindows::GetMainModule(FileSpec &file_spec) const {
+  Status error;
+  if (m_process == nullptr)
+    error.SetError(ERROR_INVALID_HANDLE, lldb::eErrorTypeWin32);
+
+  std::vector<wchar_t> wpath(PATH_MAX);
+  if (::GetProcessImageFileNameW(m_process, wpath.data(), wpath.size())) {
+    std::string path;
+    if (llvm::convertWideToUTF8(wpath.data(), path))
+      file_spec.SetFile(path, FileSpec::Style::native);
+    else
+      error.SetErrorString("Error converting path to UTF-8");
+  } else
+    error.SetError(::GetLastError(), lldb::eErrorTypeWin32);
+
+  return error;
+}
+
+lldb::pid_t HostProcessWindows::GetProcessId() const {
+  return (m_process == LLDB_INVALID_PROCESS) ? -1 : ::GetProcessId(m_process);
+}
+
+bool HostProcessWindows::IsRunning() const {
+  if (m_process == nullptr)
+    return false;
+
+  DWORD code = 0;
+  if (!::GetExitCodeProcess(m_process, &code))
+    return false;
+
+  return (code == STILL_ACTIVE);
+}
+
+llvm::Expected<HostThread> HostProcessWindows::StartMonitoring(
+    const Host::MonitorChildProcessCallback &callback, bool monitor_signals) {
+  MonitorInfo *info = new MonitorInfo;
+  info->callback = callback;
+
+  // Since the life of this HostProcessWindows instance and the life of the
+  // process may be different, duplicate the handle so that the monitor thread
+  // can have ownership over its own copy of the handle.
+  if (::DuplicateHandle(GetCurrentProcess(), m_process, GetCurrentProcess(),
+                        &info->process_handle, 0, FALSE, DUPLICATE_SAME_ACCESS)) {
+    return ThreadLauncher::LaunchThread("ChildProcessMonitor",
+                                        HostProcessWindows::MonitorThread,
+                                        info);
+  } else {
+    return llvm::errorCodeToError(llvm::mapWindowsError(GetLastError()));
+  }
+}
+
+lldb::thread_result_t HostProcessWindows::MonitorThread(void *thread_arg) {
+  DWORD exit_code;
+
+  MonitorInfo *info = static_cast<MonitorInfo *>(thread_arg);
+  if (info) {
+    ::WaitForSingleObject(info->process_handle, INFINITE);
+    ::GetExitCodeProcess(info->process_handle, &exit_code);
+    info->callback(::GetProcessId(info->process_handle), true, 0, exit_code);
+    ::CloseHandle(info->process_handle);
+    delete (info);
+  }
+  return {};
+}
+
+void HostProcessWindows::Close() {
+  if (m_owns_handle && m_process != LLDB_INVALID_PROCESS)
+    ::CloseHandle(m_process);
+  m_process = nullptr;
+}