1 files changed, 110 insertions, 0 deletions
diff --git a/lldb/source/Expression/UtilityFunction.cpp b/lldb/source/Expression/UtilityFunction.cpp
new file mode 100644
index 0000000000000..aac8b33a6bfa8
--- /dev/null
+++ b/lldb/source/Expression/UtilityFunction.cpp
@@ -0,0 +1,110 @@
+//===-- UtilityFunction.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/Config.h"
+
+#include <stdio.h>
+#if HAVE_SYS_TYPES_H
+#include <sys/types.h>
+#endif
+
+
+#include "lldb/Core/Module.h"
+#include "lldb/Core/StreamFile.h"
+#include "lldb/Expression/DiagnosticManager.h"
+#include "lldb/Expression/FunctionCaller.h"
+#include "lldb/Expression/IRExecutionUnit.h"
+#include "lldb/Expression/UtilityFunction.h"
+#include "lldb/Host/Host.h"
+#include "lldb/Target/ExecutionContext.h"
+#include "lldb/Target/Process.h"
+#include "lldb/Target/Target.h"
+#include "lldb/Utility/ConstString.h"
+#include "lldb/Utility/Log.h"
+#include "lldb/Utility/Stream.h"
+
+using namespace lldb_private;
+using namespace lldb;
+
+/// Constructor
+///
+/// \param[in] text
+///     The text of the function.  Must be a full translation unit.
+///
+/// \param[in] name
+///     The name of the function, as used in the text.
+UtilityFunction::UtilityFunction(ExecutionContextScope &exe_scope,
+                                 const char *text, const char *name,
+                                 ExpressionKind kind)
+    : Expression(exe_scope, kind),
+      m_execution_unit_sp(), m_jit_module_wp(),
+      m_function_text(),
+      m_function_name(name) {}
+
+UtilityFunction::~UtilityFunction() {
+  lldb::ProcessSP process_sp(m_jit_process_wp.lock());
+  if (process_sp) {
+    lldb::ModuleSP jit_module_sp(m_jit_module_wp.lock());
+    if (jit_module_sp)
+      process_sp->GetTarget().GetImages().Remove(jit_module_sp);
+  }
+}
+
+// FIXME: We should check that every time this is called it is called with the
+// same return type & arguments...
+
+FunctionCaller *UtilityFunction::MakeFunctionCaller(
+    const CompilerType &return_type, const ValueList &arg_value_list,
+    lldb::ThreadSP thread_to_use_sp, Status &error) {
+  if (m_caller_up)
+    return m_caller_up.get();
+
+  ProcessSP process_sp = m_jit_process_wp.lock();
+  if (!process_sp) {
+    error.SetErrorString("Can't make a function caller without a process.");
+    return nullptr;
+  }
+
+  Address impl_code_address;
+  impl_code_address.SetOffset(StartAddress());
+  std::string name(m_function_name);
+  name.append("-caller");
+
+  m_caller_up.reset(process_sp->GetTarget().GetFunctionCallerForLanguage(
+      Language(), return_type, impl_code_address, arg_value_list, name.c_str(),
+      error));
+  if (error.Fail()) {
+
+    return nullptr;
+  }
+  if (m_caller_up) {
+    DiagnosticManager diagnostics;
+
+    unsigned num_errors =
+        m_caller_up->CompileFunction(thread_to_use_sp, diagnostics);
+    if (num_errors) {
+      error.SetErrorStringWithFormat(
+          "Error compiling %s caller function: \"%s\".",
+          m_function_name.c_str(), diagnostics.GetString().c_str());
+      m_caller_up.reset();
+      return nullptr;
+    }
+
+    diagnostics.Clear();
+    ExecutionContext exe_ctx(process_sp);
+
+    if (!m_caller_up->WriteFunctionWrapper(exe_ctx, diagnostics)) {
+      error.SetErrorStringWithFormat(
+          "Error inserting caller function for %s: \"%s\".",
+          m_function_name.c_str(), diagnostics.GetString().c_str());
+      m_caller_up.reset();
+      return nullptr;
+    }
+  }
+  return m_caller_up.get();
+}