Imported Upstream version 6.10.0.49

Former-commit-id: 1d6753294b2993e1fbf92de9366bb9544db4189b

external/llvm-project/lldb/source/Plugins/Language/OCaml/CMakeLists.txt

@@ -0,0 +1,12 @@
+add_lldb_library(lldbPluginOCamlLanguage PLUGIN
+  OCamlLanguage.cpp
+
+  LINK_LIBS
+    lldbCore
+    lldbDataFormatters
+    lldbSymbol
+    lldbTarget
+  LINK_COMPONENTS
+    Support
+)
+

external/llvm-project/lldb/source/Plugins/Language/OCaml/OCamlLanguage.cpp

@@ -0,0 +1,63 @@
+//===-- OCamlLanguage.cpp ----------------------------------------*- C++
+//-*-===//
+//
+//                     The LLVM Compiler Infrastructure
+//
+// This file is distributed under the University of Illinois Open Source
+// License. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+
+// C Includes
+#include <string.h>
+// C++ Includes
+#include <functional>
+#include <mutex>
+
+// Other libraries and framework includes
+#include "llvm/ADT/StringRef.h"
+
+// Project includes
+#include "OCamlLanguage.h"
+#include "lldb/Core/PluginManager.h"
+#include "lldb/DataFormatters/DataVisualization.h"
+#include "lldb/DataFormatters/FormattersHelpers.h"
+#include "lldb/Symbol/OCamlASTContext.h"
+#include "lldb/Utility/ConstString.h"
+
+using namespace lldb;
+using namespace lldb_private;
+
+void OCamlLanguage::Initialize() {
+  PluginManager::RegisterPlugin(GetPluginNameStatic(), "OCaml Language",
+                                CreateInstance);
+}
+
+void OCamlLanguage::Terminate() {
+  PluginManager::UnregisterPlugin(CreateInstance);
+}
+
+lldb_private::ConstString OCamlLanguage::GetPluginNameStatic() {
+  static ConstString g_name("OCaml");
+  return g_name;
+}
+
+lldb_private::ConstString OCamlLanguage::GetPluginName() {
+  return GetPluginNameStatic();
+}
+
+uint32_t OCamlLanguage::GetPluginVersion() { return 1; }
+
+Language *OCamlLanguage::CreateInstance(lldb::LanguageType language) {
+  if (language == eLanguageTypeOCaml)
+    return new OCamlLanguage();
+  return nullptr;
+}
+
+bool OCamlLanguage::IsNilReference(ValueObject &valobj) {
+  if (!valobj.GetCompilerType().IsReferenceType())
+    return false;
+
+  // If we failed to read the value then it is not a nil reference.
+  return valobj.GetValueAsUnsigned(UINT64_MAX) == 0;
+}

external/llvm-project/lldb/source/Plugins/Language/OCaml/OCamlLanguage.h

@@ -0,0 +1,51 @@
+//===-- OCamlLanguage.h ------------------------------------------*- C++
+//-*-===//
+//
+//                     The LLVM Compiler Infrastructure
+//
+// This file is distributed under the University of Illinois Open Source
+// License. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+
+#ifndef liblldb_OCamlLanguage_h_
+#define liblldb_OCamlLanguage_h_
+
+// C Includes
+// C++ Includes
+#include <vector>
+
+// Other libraries and framework includes
+#include "llvm/ADT/StringRef.h"
+
+// Project includes
+#include "lldb/Target/Language.h"
+#include "lldb/Utility/ConstString.h"
+#include "lldb/lldb-private.h"
+
+namespace lldb_private {
+
+class OCamlLanguage : public Language {
+public:
+  lldb::LanguageType GetLanguageType() const override {
+    return lldb::eLanguageTypeOCaml;
+  }
+
+  static void Initialize();
+
+  static void Terminate();
+
+  static lldb_private::Language *CreateInstance(lldb::LanguageType language);
+
+  static lldb_private::ConstString GetPluginNameStatic();
+
+  ConstString GetPluginName() override;
+
+  uint32_t GetPluginVersion() override;
+
+  bool IsNilReference(ValueObject &valobj) override;
+};
+
+} // namespace lldb_private
+
+#endif // liblldb_OCamlLanguage_h_