DebugInfo support for OCaml bindings

[vaivaswatha]

Summary

The OCaml bindings do not currently wrap the DebugInfo C APIs.

This patch adds many DebugInfo functions to the OCaml bindings, but not all. In particular, the ones related to Variables, expressions and a couple other are missing. These can be safely added at a later time (just as I'm adding a couple functions in the core bindings right now, which were previously missing).

The OCaml bindings do not seem to have any testsuite, so I only have my local testing with a project I'm working on. If there's an easy way to add tests, I'll be happy to do it.

[vaivaswatha]

Mention both CMAKE_INSTALL_PREFIX and LLVM_OCAML_INSTALL_PATH in the OCaml bindings README

[vaivaswatha]

@jberdine just pinged me about his earlier attempt to do this, here's a reference: https://reviews.llvm.org/D60902.

[vaivaswatha]

It's been more than a week, so a gentile reminder ping !

[hiraditya]

Maybe ask in Discord to get reviewers?

[jberdine]

I have checked over this code, and tested it by adapting a system I work on to use this diff plus a few changes to do all the reading of debuginfo from bitcode. The changes I used in the experiment are available on the branch whose tip is here. With this I have successfully read the debuginfo of every global/function/instruction in every file under llvm/test, as well as several internal codebases. I have not done similar testing of the debuginfo creation side of the added APIs.

The code by and large looks good. I have left several comments inline, some are just nits but a few point to changes that I think are necessary, and another round of review would be a good idea.

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

2–3

nit: formatting

347

Functions like this can return NULL, and when NULL is returned as an opaque pointer from C to OCaml, there is nothing that can be done with it on the OCaml side. There is no way to test if it is NULL before passing it back from OCaml to C e.g. to llvm_di_file_get_directory. Instead, I think that functions like this need to return an OCaml option that is None in the NULL case and otherwise Some of the LLVMMetadataRef.

As far as I can tell, all of these functions can return NULL. In order to test this diff I made changes to some of these functions, see here.

353–354

Since Directory might be NULL, this might call memcpy on NULL. I think that Len will always be 0 in this case, but AFAIU it is still UB to pass invalid pointers to memcpy. So I would suggest changing this and other string-returning functions to something along the lines of the suggestion. See here.

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.ml

12

I think that it would be better to define this type in the Llvm module instead. This module has to depend on Llvm anyhow, and there are other uses of LLVMMetadataRef apart from DebugInfo. I encountered this when experimenting with extending this diff with support for variables, which lead to needing an OCaml API for LLVMGlobalCopyAllMetadata, which seems like it should live in Llvm. See here for that extension.

14–16

nit: why not use standard docstrings here and below?

160

this returns int not unit

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

13

I have not worked all the way through the details, but it could improve the usability of these APIs to introduce some types to mirror the C++ type hierarchy. For instance, defining:

type lllocation = private llmetadata
type llscope = private llmetadata
type llsubprogram = private llscope
type llfile = private llmetadata

would enable using e.g.:

val di_location_get_scope : lllocation -> llscope

instead of

val di_location_get_scope : location:llmetadata -> llmetadata

I have experimented with some changes along these lines, see here.

161

int not unit here too

[jberdine]

llvm/bindings/ocaml/debuginfo/CMakeLists.txt

6

Note that I don't think this builds on main, in particular after https://github.com/llvm/llvm-project/commit/95537f450814c378fcb9d446dadcabc1385a5903 .

[vaivaswatha]

Thank you very much @jberdine for the review, especially for the ready to incorporate changes in your fork (which I just cherry-picked).

The updated patch incorporates all (but one - see below) review comments by @jberdine.

improve the usability of these APIs to introduce some types to mirror the C++ type hierarchy. For instance, defining:
type llsubprogram = private llscope

This won't work because a scope can be either a subprogram or a lexical block. We would need something like type llscope = | Subprogram of llmetadata | LexicalBlock of llmetadata.

However my attempt at implementing this whole comment didn't quite succeed. For example, A file can be a scope too in the argument to dibuild_create_function, but dibuild_create_debug_location cannot have a file scope.

[jberdine]

I have not had time to complete a full round of review, but made some comments on the latest version.

I would like to think a little more about introducing more informative type aliases for llmetadata. My thinking is that in the worst case there could be one ocaml type for each node in the llvm::Metadata inheritance diagram: https://llvm.org/doxygen/classllvm_1_1Metadata.html . Note that there is no multiple inheritance there. Then for each edge Supertype <-- Subtype there could be an ocaml type alias type subtype = private supertype. Then client code could upcast from supertype to subtype using an expression such as (e : subtype :> supertype). To downcast would require a function such as val get_subtype : supertype -> subtype option that would optimally be implemented with something like a dyn_cast to check that the argument is actually of the right subclass at runtime. For the purposes of the binding's debuginfo API, it might not be necessary to include the whole inheritance diagram, it might be possible to leave out some nodes. Is this what you were working toward and ran into problems with?

llvm/bindings/ocaml/debuginfo/CMakeLists.txt

6

I'm no cmake guru and am unsure what is the right thing here, or how this ought to be tested. Since DebugInfoDwarf seems to be only one of several DebugInfo* libraries, it is not obvious to me that it is the right choice. Do you understand and have an explanation?

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

2

12

It would be tidier to leave this alias out of the interface of this module and use Llvm.llmetadata in place of llmetadata below.

234–238

Can't the underlying LLVM-C functions for these 3 return null? If so, these should return options. I have seen the last return null for sure.

458

Minor naming question: It seems that the naming scheme is not entirely uniform: I don't understand why there is ditype_... and then di_subprogram_..., etc.

470

Should return option

476

Should return option

llvm/bindings/ocaml/llvm/llvm.mli

366

nit: since the LLVM-C type is LLVMModuleFlagBehavior, it seems better to stick to the existing US spelling with no 'u'

539–542

All the other functions in this module are documented. It would be nice to maintain that.

927

switch Value and Metadata

llvm/bindings/ocaml/llvm/llvm_ocaml.c

324

This can return null can't it? If so llvm_get_module_flag should return an option

328

nit: non-'u' spelling consistency here too

[vaivaswatha]

@jberdine I have addressed all your comments, except for the one on stricter type aliases for Metadata.

Is this what you were working toward and ran into problems with?

No, I only attempted something simpler along the lines of your experimental change. Nothing so much as having conversion functions between them.

I need to think what's the best way to model the C++ type hierarchy for Metadata here in OCaml. For example, there is llvalue and llbasicblock already in Llvml.ml, but they just rely on, internally in Core.cpp, cast<> throwing a runtime error (at least that's what I understood of it).

that would optimally be implemented with something like a dyn_cast

We don't have dyn_cast available in the C-API (I couldn't find any uses of it). So we might need to reestablish the subtyping from scratch using the MetadataKind enum values. I'm not sure that will be easy to maintain though. I can give it a try.

llvm/bindings/ocaml/debuginfo/CMakeLists.txt

6

ah my bad. It's supposed to be "Core" because the basic debug info code is in the IR/DebugInfo.cpp

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

234–238

It looks like the last two can, but not the first one. (https://llvm.org/docs/LangRef.html#dilocation). Scope is mandatory for a location. So I'll make it an optional return for the latter two.

458

You're right. While the DIBuilder related functions have a prefix dibuild (similar to how all llbuilder functions start with build_ in Llvm.ml), the same doesn't apply to metadata types (I thought it did at first). I'll fix these.

[vaivaswatha]

Address all but one review comment.

[vaivaswatha]

The types that we'll need to model include, at least the following:

DIType and its 5 subclasses
DILocalScope and its 4 (transitive) subclasses
DIVariable and its two subclasses
So if I understand correctly we'll have 5 + 5 + 2 upcasts and the same number of downcast functions b/w each of these 14 types (aliases).

All three of the above derive from DIScope, so that means more upcast and downcast utility functions.

I think we should defer this work to a separate patch / review where the focus is just on strongly typing the interface (or recapturing the C++ type hierarchy - whichever way you see it). Such a patch could fix the identical problem that's there in the core IR too, where the entire llvm::Value hierarchy is represented as llvalue in the OCaml interface (save for the exception made for llbasicblock).

[vaivaswatha]

In D90831#2625375, @vaivaswatha wrote:

@jberdine I have addressed all your comments, except for the one on stricter type aliases for Metadata.

Is this what you were working toward and ran into problems with?

No, I only attempted something simpler along the lines of your experimental change. Nothing so much as having conversion functions between them.

I need to think what's the best way to model the C++ type hierarchy for Metadata here in OCaml. For example, there is llvalue and llbasicblock already in Llvml.ml, but they just rely on, internally in Core.cpp, cast<> throwing a runtime error (at least that's what I understood of it).

that would optimally be implemented with something like a dyn_cast

We don't have dyn_cast available in the C-API (I couldn't find any uses of it). So we might need to reestablish the subtyping from scratch using the MetadataKind enum values. I'm not sure that will be easy to maintain though. I can give it a try.

The above comment was added just before I uploaded the reworked patch, so it gets hidden by the review tool. I'm writing this so that it appears without having to "show older comments" and you don't miss it.

[jberdine]

Thanks @vaivaswatha for making all these changes, and so promptly!

I agree that the question of making the debuginfo types in the ocaml api safer is leading too far afield. If there was a clear path forward, it would be nice to take it from the beginning before making such changes will break backward compatibility, but the situation is not so clear. Particularly with the current loose types, it would be helpful if the llvm_debuginfo.mli file was documented. For example, it is not obvious that Llvm_debuginfo.get_subprogram should only be called on functions. It would be good if this new api were documented along the lines of the llvm_ocaml.mli file. For example, from

(** [element_type ty] returns the element type of the pointer, vector, or array
    type [ty]. See the method [llvm::SequentialType::get]. *)
val element_type : lltype -> lltype

the reader has a chance to know the assumptions on the argument, and the reference to the underlying method is useful for more information.

Otherwise I have made only minor comments that are mostly entirely discretionary.

So this LGTM. I'm happy to give feedback on any documentation, etc. that gets added, but functionally this looks good and doesn't need another round of review.

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

21

I'm not sure what the preferred approach is, but this is not needed since llvm_ocaml.h includes it.

169

why |?

342

I guess clang-format should be run

354–360

Totally your call, but how you moved ptr_to_option to llvm_ocaml.h makes me think that this code is a good candidate for a small helper function there too.

890

If llmetadata type aliases are not added, this comment should be updated. Also, this and the next 2 functions have these comments following the pattern in llvm_ocaml.c, but it would be good if this file was uniform with itself to either have them or not. I personally find them to be useful, but they are a bit of maintenance overhead to keep in sync.

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.ml

12

Your call, but this alias can be removed now that it is not in the mli, and it would be more uniform with the treatment of e.g. Llvm.llvalue.

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

2

seems to still have the wrong file name

478

extremely minor nit, but just note that e.g. llvm_instr_get_opcode uses the 'instr' abbreviation

[vaivaswatha]

Thank you very much @jberdine . I've incorporated all of your suggestions with this latest diff. I haven't yet added the documentation and will do that by tomorrow. Please have a final look at the latest changes so that with my update tomorrow it should only be comments over each function and (hopefully) no code changes.

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

169

This is strange. I can't recall why I used |=. It's likely that it was an overlook / typo. I've fixed this now. Thank you for catching this !

[vaivaswatha]

llvm/bindings/ocaml/llvm/llvm_ocaml.h

17 ↗

(On Diff #330672)

The include guards for this header is missing and I'll add them along with the documentation update coming up next.

[jberdine]

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

169

Maybe it was just left over from copy/paste from ..._set below

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

2

llvm/bindings/ocaml/llvm/llvm_ocaml.c

47–55

I'm sorry for the poor suggestion before, but looking again I think this code needs to use CAMLlocal, etc.

[vaivaswatha]

@jberdine: I have now updated the patch with documentation for the newly added APIs, inline. Further:

1. I removed the function llmetadata_null (only from the public interface). I'm not sure where it's required except to clear the metadata in instr_set_debug_loc.
2. Consequent to (1), I changed the interface of instr_set_debug_loc to take llmetadata option.
3. Minor: Moved the declarations of 3 functions that you had added (which came here because I cherry-picked your commits) from the end to somewhere in between where the order of the function declarations match that of the C API.
4. I had missed including llvm_ocaml.h in llvm_ocaml.c. Fixed this now. Also added previously missing header guard to the header.
5. The fix to cstr_to_string to use CAML* declarations.
6. In all references to LLVM functions in the documentation, I've referred to the C-API rather than the C++ one because the C-API has a more detailed explanation of the arguments to the functions.

[vaivaswatha]

Fix clang-tidy warning on header guard name convention.

With this, there are now the following clang-tidy issues still reported:

1. error: 'caml/memory.h' file not found. This has been around already for llvm_ocaml.c (and now we see it for the new file llvm_debuginfo.c).
2. warning: invalid case style for variable 'value' and similar warnings for the variable and function name casing convention used. I'm choosing to ignore this because the convention I've used is on par with what was already used in the LLVM OCaml interface.
3. warning: invalid case style for variable 'i': for (int i = 0; i < NumEntries; i++) {. This is a bit grey because both conventions are used in the file already. So I've stuck to using the smaller case as similar loops (when integers are iterated with) have this convention.

[jberdine]

Looks good, thanks! I made a few very minor comments. I agree that the current state of clang-tidy is good. I don't know how to let it know about the OCaml-specific headers, and that e.g. value is a type declared there and it's capitalization is not up for discussion.

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

199

208

245

248–274

These 8 don't mention their LLVM-C counterparts

260

278

281–293

Maybe change these to refer to the C apis instead of the C++ ones for consistency with the rest of this module.

444–446

Mention LLVMDIBuilderCreateObjectPointerType?

448–461

These also don't mention their LLVM-C counterparts.

552–594

These don't mention their LLVM-C counterparts.

[vaivaswatha]

I've updated the patch addressing some of your comments. In particular, I didn't add a reference to the C-API to the functions where I had already provided the explanations inline (and the C-API comment doesn't add more value).

[vaivaswatha]

Thank you @jberdine for the detailed review and helping through this patch. Shall I commit it?

[jberdine]

Thanks @vaivaswatha for dealing with all my nitpicking! Yes, I've made a final pass over this and it looks good. I'd recheck the build before committing given the CI build failure.

[vaivaswatha]

In D90831#2629836, @jberdine wrote:

Thanks @vaivaswatha for dealing with all my nitpicking! Yes, I've made a final pass over this and it looks good. I'd recheck the build before committing given the CI build failure.

I checked ninja check-all and ninja check-llvm-bindings-ocaml locally and they both go fine. The CI build shown above in this page, if you click on it, shows that the builds succeed and the error is only because of clang-tidy. Since these messages are something that were already there before for the files, I assumed that it's ok to commit. I'm not sure what's the right thing to do.

[jberdine]

Ah, I see, the failure is just tidy, go for it then. I don't know if it can be configured, but clang-tidy cannot be obeyed on this code without breaking the build.

[vaivaswatha]

@jberdine: after commit, I found this failure emailed to me llvm_ocaml.c:function cstr_to_string: error: undefined reference to 'caml_alloc_initialized_string'. Do you happen to know how I can fix it, because it works on my Ubuntu 20.04 system. What OS do you have? (because you reported that it worked too). A link to one of the build fails I got over email: https://lab.llvm.org/buildbot/#/builders/16/builds/7919

[vaivaswatha]

In D90831#2630862, @vaivaswatha wrote:

@jberdine: after commit, I found this failure emailed to me llvm_ocaml.c:function cstr_to_string: error: undefined reference to 'caml_alloc_initialized_string'. Do you happen to know how I can fix it, because it works on my Ubuntu 20.04 system. What OS do you have? (because you reported that it worked too). A link to one of the build fails I got over email: https://lab.llvm.org/buildbot/#/builders/16/builds/7919

I've now switched to using the following code instead in cstr_to_string:

if (Str) {
  String = caml_alloc_string(Len);
  memcpy(String_val(Str), Str, Len);
} else {
  String = caml_alloc_string(0);
}

[vaivaswatha]

In D90831#2630893, @vaivaswatha wrote:

In D90831#2630862, @vaivaswatha wrote:

@jberdine: after commit, I found this failure emailed to me llvm_ocaml.c:function cstr_to_string: error: undefined reference to 'caml_alloc_initialized_string'. Do you happen to know how I can fix it, because it works on my Ubuntu 20.04 system. What OS do you have? (because you reported that it worked too). A link to one of the build fails I got over email: https://lab.llvm.org/buildbot/#/builders/16/builds/7919

I've now switched to using the following code instead in cstr_to_string:

if (Str) {
  String = caml_alloc_string(Len);
  memcpy(String_val(Str), Str, Len);
} else {
  String = caml_alloc_string(0);
}

That fixes it: https://github.com/llvm/llvm-project/commit/f7be9db6220cb39f0eaa12d2af3abedf0d86c303

[jberdine]

I see, it seems some of the builds are still using a version of OCaml older than 4.06 (from 11-2017). The difference between using caml_alloc_initialized_string and the code with memcpy is about const char * versus char *. If OCaml is configured with immutable strings (the default starting with 4.10), then String_val returns a const char *. I guess that supporting such old versions will necessitate compilation warnings about const.

llvm/bindings/ocaml/CMakeLists.txt

 add_subdirectory(llvm)
 add_subdirectory(all_backends)
 add_subdirectory(analysis)
 add_subdirectory(backends)
 add_subdirectory(bitreader)
 add_subdirectory(bitwriter)
+add_subdirectory(debuginfo)
 add_subdirectory(irreader)
 add_subdirectory(linker)
 add_subdirectory(target)
 add_subdirectory(transforms)
 add_subdirectory(executionengine)

llvm/bindings/ocaml/README.txt

 If all dependencies are present, the bindings will be built and installed
 as a part of the default CMake configuration, with no further action.
 They will only work with the specific OCaml compiler detected during the build.
 
 The bindings can also be built out-of-tree, i.e. targeting a preinstalled
 LLVM. To do this, configure the LLVM build tree as follows:
 
     $ cmake -DLLVM_OCAML_OUT_OF_TREE=TRUE \
-            -DCMAKE_INSTALL_PREFIX=[OCaml install prefix] \
+            -DLLVM_OCAML_INSTALL_PATH=[OCaml install prefix] \
             [... any other options]
 
 then build and install it as:
 
     $ make ocaml_all
     $ cmake -P bindings/ocaml/cmake_install.cmake

llvm/bindings/ocaml/debuginfo/CMakeLists.txt

+add_ocaml_library(llvm_debuginfo
+  OCAML    llvm_debuginfo
+  OCAMLDEP llvm
+  C        debuginfo_ocaml
+  LLVM     debuginfo)

llvm/bindings/ocaml/debuginfo/debuginfo_ocaml.c

+/*===-- debuginfo_ocaml.c - LLVM OCaml Glue ----------------------*- 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                    *|
+|*                                                                            *|
+|*===----------------------------------------------------------------------===*|
+|*                                                                            *|
+|* This file glues LLVM's OCaml interface to its C interface. These functions *|
+|* are by and large transparent wrappers to the corresponding C functions.    *|
+|*                                                                            *|
+|* Note that these functions intentionally take liberties with the CAMLparamX *|
+|* macros, since most of the parameters are not GC heap objects.              *|
+|*                                                                            *|
+\*===----------------------------------------------------------------------===*/
+
+#include <string.h>
+
+#include "caml/alloc.h"
+#include "caml/custom.h"
+#include "caml/memory.h"
+#include "caml/mlvalues.h"
+#include "llvm-c/Core.h"
+#include "llvm-c/DebugInfo.h"
+#include "llvm-c/Support.h"
+
+// This is identical to the definition in llvm_debuginfo.ml:DIFlag.t
+typedef enum {
+  i_DIFlagZero,
+  i_DIFlagPrivate,
+  i_DIFlagProtected,
+  i_DIFlagPublic,
+  i_DIFlagFwdDecl,
+  i_DIFlagAppleBlock,
+  i_DIFlagReservedBit4,
+  i_DIFlagVirtual,
+  i_DIFlagArtificial,
+  i_DIFlagExplicit,
+  i_DIFlagPrototyped,
+  i_DIFlagObjcClassComplete,
+  i_DIFlagObjectPointer,
+  i_DIFlagVector,
+  i_DIFlagStaticMember,
+  i_DIFlagLValueReference,
+  i_DIFlagRValueReference,
+  i_DIFlagReserved,
+  i_DIFlagSingleInheritance,
+  i_DIFlagMultipleInheritance,
+  i_DIFlagVirtualInheritance,
+  i_DIFlagIntroducedVirtual,
+  i_DIFlagBitField,
+  i_DIFlagNoReturn,
+  i_DIFlagTypePassByValue,
+  i_DIFlagTypePassByReference,
+  i_DIFlagEnumClass,
+  i_DIFlagFixedEnum,
+  i_DIFlagThunk,
+  i_DIFlagNonTrivial,
+  i_DIFlagBigEndian,
+  i_DIFlagLittleEndian,
+  i_DIFlagIndirectVirtualBase,
+  i_DIFlagAccessibility,
+  i_DIFlagPtrToMemberRep
+} LLVMDIFlag_i;
+
+static LLVMDIFlags map_DIFlag(LLVMDIFlag_i DIF) {
+  switch (DIF) {
+  case i_DIFlagZero:
+    return LLVMDIFlagZero;
+  case i_DIFlagPrivate:
+    return LLVMDIFlagPrivate;
+  case i_DIFlagProtected:
+    return LLVMDIFlagProtected;
+  case i_DIFlagPublic:
+    return LLVMDIFlagPublic;
+  case i_DIFlagFwdDecl:
+    return LLVMDIFlagFwdDecl;
+  case i_DIFlagAppleBlock:
+    return LLVMDIFlagAppleBlock;
+  case i_DIFlagReservedBit4:
+    return LLVMDIFlagReservedBit4;
+  case i_DIFlagVirtual:
+    return LLVMDIFlagVirtual;
+  case i_DIFlagArtificial:
+    return LLVMDIFlagArtificial;
+  case i_DIFlagExplicit:
+    return LLVMDIFlagExplicit;
+  case i_DIFlagPrototyped:
+    return LLVMDIFlagPrototyped;
+  case i_DIFlagObjcClassComplete:
+    return LLVMDIFlagObjcClassComplete;
+  case i_DIFlagObjectPointer:
+    return LLVMDIFlagObjectPointer;
+  case i_DIFlagVector:
+    return LLVMDIFlagVector;
+  case i_DIFlagStaticMember:
+    return LLVMDIFlagStaticMember;
+  case i_DIFlagLValueReference:
+    return LLVMDIFlagLValueReference;
+  case i_DIFlagRValueReference:
+    return LLVMDIFlagRValueReference;
+  case i_DIFlagReserved:
+    return LLVMDIFlagReserved;
+  case i_DIFlagSingleInheritance:
+    return LLVMDIFlagSingleInheritance;
+  case i_DIFlagMultipleInheritance:
+    return LLVMDIFlagMultipleInheritance;
+  case i_DIFlagVirtualInheritance:
+    return LLVMDIFlagVirtualInheritance;
+  case i_DIFlagIntroducedVirtual:
+    return LLVMDIFlagIntroducedVirtual;
+  case i_DIFlagBitField:
+    return LLVMDIFlagBitField;
+  case i_DIFlagNoReturn:
+    return LLVMDIFlagNoReturn;
+  case i_DIFlagTypePassByValue:
+    return LLVMDIFlagTypePassByValue;
+  case i_DIFlagTypePassByReference:
+    return LLVMDIFlagTypePassByReference;
+  case i_DIFlagEnumClass:
+    return LLVMDIFlagEnumClass;
+  case i_DIFlagFixedEnum:
+    return LLVMDIFlagFixedEnum;
+  case i_DIFlagThunk:
+    return LLVMDIFlagThunk;
+  case i_DIFlagNonTrivial:
+    return LLVMDIFlagNonTrivial;
+  case i_DIFlagBigEndian:
+    return LLVMDIFlagBigEndian;
+  case i_DIFlagLittleEndian:
+    return LLVMDIFlagLittleEndian;
+  case i_DIFlagIndirectVirtualBase:
+    return LLVMDIFlagIndirectVirtualBase;
+  case i_DIFlagAccessibility:
+    return LLVMDIFlagAccessibility;
+  case i_DIFlagPtrToMemberRep:
+    return LLVMDIFlagPtrToMemberRep;
+  }
+}
+
+CAMLprim value llvm_debug_metadata_version(value Unit) {
+  return Val_int(LLVMDebugMetadataVersion());
+}
+
+CAMLprim value llvm_get_module_debug_metadata_version(LLVMModuleRef Module) {
+  return Val_int(LLVMGetModuleDebugMetadataVersion(Module));
+}
+
+#define DIFlags_val(v) (*(LLVMDIFlags *)(Data_custom_val(v)))
+
+static struct custom_operations diflags_ops = {
+    (char *)"DebugInfo.lldiflags", custom_finalize_default,
+    custom_compare_default,        custom_hash_default,
+    custom_serialize_default,      custom_deserialize_default,
+    custom_compare_ext_default};
+
+static value alloc_diflags(LLVMDIFlags Flags) {
+  value V = alloc_custom(&diflags_ops, sizeof(LLVMDIFlags), 0, 1);
+  DIFlags_val(V) = Flags;
+  return V;
+}
+
+CAMLprim LLVMDIFlags llvm_diflags_get(value i_Flag) {
+  LLVMDIFlags Flags = 0;
+  Flags |= map_DIFlag(Int_val(i_Flag));
+  return alloc_diflags(Flags);
+}
+
+CAMLprim LLVMDIFlags llvm_diflags_set(value Flags, value i_Flag) {
+  LLVMDIFlags FlagsNew = DIFlags_val(Flags) | map_DIFlag(Int_val(i_Flag));
+  return alloc_diflags(FlagsNew);
+}
+
+CAMLprim value llvm_diflags_test(value Flags, value i_Flag) {
+  LLVMDIFlags Flag = map_DIFlag(Int_val(i_Flag));
+  return Val_bool((DIFlags_val(Flags) & Flag) == Flag);
+}
+
+#define DIBuilder_val(v) (*(LLVMDIBuilderRef *)(Data_custom_val(v)))
+
+static void llvm_finalize_dibuilder(value B) {
+  LLVMDIBuilderFinalize(DIBuilder_val(B));
+  LLVMDisposeDIBuilder(DIBuilder_val(B));
+}
+
+static struct custom_operations dibuilder_ops = {
+    (char *)"DebugInfo.lldibuilder", llvm_finalize_dibuilder,
+    custom_compare_default,          custom_hash_default,
+    custom_serialize_default,        custom_deserialize_default,
+    custom_compare_ext_default};
+
+static value alloc_dibuilder(LLVMDIBuilderRef B) {
+  value V = alloc_custom(&dibuilder_ops, sizeof(LLVMDIBuilderRef), 0, 1);
+  DIBuilder_val(V) = B;
+  return V;
+}
+
+/* llmodule -> lldibuilder */
+CAMLprim value llvm_dibuilder(LLVMModuleRef M) {
+  return alloc_dibuilder(LLVMCreateDIBuilder(M));
+}
+
+CAMLprim value llvm_dibuild_finalize(value Builder) {
+  LLVMDIBuilderFinalize(DIBuilder_val(Builder));
+  return Val_unit;
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_compile_unit_native(
+    value Builder, value Lang, LLVMMetadataRef FileRef, value Producer,
+    value IsOptimized, value Flags, value RuntimeVer, value SplitName,
+    value Kind, value DWOId, value SplitDebugInline,
+    value DebugInfoForProfiling, value SysRoot, value SDK) {
+  return LLVMDIBuilderCreateCompileUnit(
+      DIBuilder_val(Builder), Int_val(Lang), FileRef, String_val(Producer),
+      caml_string_length(Producer), Bool_val(IsOptimized), String_val(Flags),
+      caml_string_length(Flags), Int_val(RuntimeVer), String_val(SplitName),
+      caml_string_length(SplitName), Int_val(Kind), Int_val(DWOId),
+      Bool_val(SplitDebugInline), Bool_val(DebugInfoForProfiling),
+      String_val(SysRoot), caml_string_length(SysRoot), String_val(SDK),
+      caml_string_length(SDK));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_compile_unit_bytecode(value *argv,
+                                                                   int argn) {
+  return llvm_dibuild_create_compile_unit_native(
+      argv[0],                  // Builder
+      argv[1],                  // Lang
+      (LLVMMetadataRef)argv[2], // FileRef
+      argv[3],                  // Producer
+      argv[4],                  // IsOptimized
+      argv[5],                  // Flags
+      argv[6],                  // RuntimeVer
+      argv[7],                  // SplitName
+      argv[8],                  // Kind
+      argv[9],                  // DWOId
+      argv[10],                 // SplitDebugInline
+      argv[11],                 // DebugInfoForProfiling
+      argv[12],                 // SysRoot
+      argv[13]                  // SDK
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_file(value Builder, value Filename,
+                                                  value Directory) {
+  return LLVMDIBuilderCreateFile(DIBuilder_val(Builder), String_val(Filename),
+                                 caml_string_length(Filename),
+                                 String_val(Directory),
+                                 caml_string_length(Directory));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_module_native(
+    value Builder, LLVMMetadataRef ParentScope, value Name, value ConfigMacros,
+    value IncludePath, value SysRoot) {
+  return LLVMDIBuilderCreateModule(
+      DIBuilder_val(Builder), ParentScope, String_val(Name),
+      caml_string_length(Name), String_val(ConfigMacros),
+      caml_string_length(ConfigMacros), String_val(IncludePath),
+      caml_string_length(IncludePath), String_val(SysRoot),
+      caml_string_length(SysRoot));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_module_bytecode(value *argv,
+                                                             int argn) {
+  return llvm_dibuild_create_module_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // ParentScope
+      argv[2],                  // Name
+      argv[3],                  // ConfigMacros
+      argv[4],                  // IncludePath
+      argv[5]                   // SysRoot
+  );
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_namespace(value Builder, LLVMMetadataRef ParentScope,
+                              value Name, value ExportSymbols) {
+  return LLVMDIBuilderCreateNameSpace(
+      DIBuilder_val(Builder), ParentScope, String_val(Name),
+      caml_string_length(Name), Bool_val(ExportSymbols));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_function_native(
+    value Builder, LLVMMetadataRef Scope, value Name, value LinkageName,
+    LLVMMetadataRef File, value LineNo, LLVMMetadataRef Ty, value IsLocalToUnit,
+    value IsDefinition, value ScopeLine, value Flags, value IsOptimized) {
+  return LLVMDIBuilderCreateFunction(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      String_val(LinkageName), caml_string_length(LinkageName), File,
+      Int_val(LineNo), Ty, Bool_val(IsLocalToUnit), Bool_val(IsDefinition),
+      Int_val(ScopeLine), DIFlags_val(Flags), Bool_val(IsOptimized));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_function_bytecode(value *argv,
+                                                               int argn) {
+  return llvm_dibuild_create_function_native(argv[0], // Builder,
+                                             (LLVMMetadataRef)argv[1], // Scope
+                                             argv[2],                  // Name
+                                             argv[3], // LinkageName
+                                             (LLVMMetadataRef)argv[4], // File
+                                             argv[5],                  // LineNo
+                                             (LLVMMetadataRef)argv[6], // Ty
+                                             argv[7],  // IsLocalUnit
+                                             argv[8],  // IsDefinition
+                                             argv[9],  // ScopeLine
+                                             argv[10], // Flags
+                                             argv[11]  // IsOptimized
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_lexical_block(
+    value Builder, LLVMMetadataRef Scope, LLVMMetadataRef File, value Line,
+    value Column) {
+  return LLVMDIBuilderCreateLexicalBlock(DIBuilder_val(Builder), Scope, File,
+                                         Int_val(Line), Int_val(Column));
+}
+
+CAMLprim LLVMMetadataRef llvm_metadata_null() { return (LLVMMetadataRef)NULL; }
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_debug_location(
+    LLVMContextRef Ctx, value Line, value Column, LLVMMetadataRef Scope,
+    LLVMMetadataRef InlinedAt) {
+  return LLVMDIBuilderCreateDebugLocation(Ctx, Int_val(Line), Int_val(Column),
+                                          Scope, InlinedAt);
+}
+
+CAMLprim value llvm_di_location_get_line(LLVMMetadataRef Location) {
+  return Val_int(LLVMDILocationGetLine(Location));
+}
+
+CAMLprim value llvm_di_location_get_column(LLVMMetadataRef Location) {
+  return Val_int(LLVMDILocationGetColumn(Location));
+}
+
+CAMLprim LLVMMetadataRef llvm_di_location_get_scope(LLVMMetadataRef Location) {
+  return LLVMDILocationGetScope(Location);
+}
+
+CAMLprim LLVMMetadataRef
+llvm_di_location_get_inlined_at(LLVMMetadataRef Location) {
+  return LLVMDILocationGetInlinedAt(Location);
+}
+
+CAMLprim LLVMMetadataRef llvm_di_scope_get_file(LLVMMetadataRef Scope) {
+  return LLVMDIScopeGetFile(Scope);
+}
+
+CAMLprim value llvm_di_file_get_directory(LLVMMetadataRef File) {
+  unsigned Len;
+  const char *Directory = LLVMDIFileGetDirectory(File, &Len);
+  value String = caml_alloc_string(Len);
+  memcpy(String_val(String), Directory, Len);
+
+  return String;
+}
+
+CAMLprim value llvm_di_file_get_filename(LLVMMetadataRef File) {
+  unsigned Len;
+  const char *Filename = LLVMDIFileGetFilename(File, &Len);
+  value String = caml_alloc_string(Len);
+  memcpy(String_val(String), Filename, Len);
+
+  return String;
+}
+
+CAMLprim value llvm_di_file_get_source(LLVMMetadataRef File) {
+  unsigned Len;
+  const char *Source = LLVMDIFileGetSource(File, &Len);
+  value String = caml_alloc_string(Len);
+  memcpy(String_val(String), Source, Len);
+
+  return String;
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_get_or_create_type_array(value Builder,
+                                                               value Data) {
+
+  return LLVMDIBuilderGetOrCreateTypeArray(DIBuilder_val(Builder),
+                                           (LLVMMetadataRef *)Op_val(Data),
+                                           Wosize_val(Data));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_subroutine_type(
+    value Builder, LLVMMetadataRef File, value ParameterTypes, value Flags) {
+
+  return LLVMDIBuilderCreateSubroutineType(
+      DIBuilder_val(Builder), File, (LLVMMetadataRef *)Op_val(ParameterTypes),
+      Wosize_val(ParameterTypes), DIFlags_val(Flags));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_enumerator(value Builder,
+                                                        value Name, value Value,
+                                                        value IsUnsigned) {
+  return LLVMDIBuilderCreateEnumerator(
+      DIBuilder_val(Builder), String_val(Name), caml_string_length(Name),
+      (int64_t)Int_val(Value), Bool_val(IsUnsigned));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_enumeration_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, value SizeInBits, value AlignInBits, value Elements,
+    LLVMMetadataRef ClassTy) {
+  return LLVMDIBuilderCreateEnumerationType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), (LLVMMetadataRef *)Op_val(Elements),
+      Wosize_val(Elements), ClassTy);
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_enumeration_type_bytecode(value *argv, int argn) {
+  return llvm_dibuild_create_enumeration_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Scope
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // File
+      argv[4],                  // LineNumber
+      argv[5],                  // SizeInBits
+      argv[6],                  // AlignInBits
+      argv[7],                  // Elements
+      (LLVMMetadataRef)argv[8]  // ClassTy
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_union_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, value SizeInBits, value AlignInBits, value Flags,
+    value Elements, value RunTimeLanguage, value UniqueId) {
+
+  return LLVMDIBuilderCreateUnionType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), DIFlags_val(Flags),
+      (LLVMMetadataRef *)Op_val(Elements), Wosize_val(Elements),
+      Int_val(RunTimeLanguage), String_val(UniqueId),
+      caml_string_length(UniqueId));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_union_type_bytecode(value *argv,
+                                                                 int argn) {
+  return llvm_dibuild_create_union_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Scope
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // File
+      argv[4],                  // LineNumber
+      argv[5],                  // SizeInBits
+      argv[6],                  // AlignInBits
+      argv[7],                  // Flags
+      argv[8],                  // Elements
+      argv[9],                  // RunTimeLanguage
+      argv[10]                  // UniqueId
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_array_type(value Builder,
+                                                        value Size,
+                                                        value AlignInBits,
+                                                        LLVMMetadataRef Ty,
+                                                        value Subscripts) {
+  return LLVMDIBuilderCreateArrayType(
+      DIBuilder_val(Builder), (uint64_t)Int_val(Size), Int_val(AlignInBits), Ty,
+      (LLVMMetadataRef *)Op_val(Subscripts), Wosize_val(Subscripts));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_vector_type(value Builder,
+                                                         value Size,
+                                                         value AlignInBits,
+                                                         LLVMMetadataRef Ty,
+                                                         value Subscripts) {
+  return LLVMDIBuilderCreateVectorType(
+      DIBuilder_val(Builder), (uint64_t)Int_val(Size), Int_val(AlignInBits), Ty,
+      (LLVMMetadataRef *)Op_val(Subscripts), Wosize_val(Subscripts));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_unspecified_type(value Builder,
+                                                              value Name) {
+  return LLVMDIBuilderCreateUnspecifiedType(
+      DIBuilder_val(Builder), String_val(Name), caml_string_length(Name));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_basic_type(
+    value Builder, value Name, value SizeInBits, value Encoding, value Flags) {
+
+  return LLVMDIBuilderCreateBasicType(
+      DIBuilder_val(Builder), String_val(Name), caml_string_length(Name),
+      (uint64_t)Int_val(SizeInBits), Int_val(Encoding), DIFlags_val(Flags));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_pointer_type_native(
+    value Builder, LLVMMetadataRef PointeeTy, value SizeInBits,
+    value AlignInBits, value AddressSpace, value Name) {
+  return LLVMDIBuilderCreatePointerType(
+      DIBuilder_val(Builder), PointeeTy, (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), Int_val(AddressSpace), String_val(Name),
+      caml_string_length(Name));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_pointer_type_bytecode(value *argv,
+                                                                   int argn) {
+  return llvm_dibuild_create_pointer_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // PointeeTy
+      argv[2],                  // SizeInBits
+      argv[3],                  // AlignInBits
+      argv[4],                  // AddressSpace
+      argv[5]                   // Name
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_struct_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, value SizeInBits, value AlignInBits, value Flags,
+    LLVMMetadataRef DerivedFrom, value Elements, value RunTimeLanguage,
+    LLVMMetadataRef VTableHolder, value UniqueId) {
+
+  return LLVMDIBuilderCreateStructType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), DIFlags_val(Flags), DerivedFrom,
+      (LLVMMetadataRef *)Op_val(Elements), Wosize_val(Elements),
+      Int_val(RunTimeLanguage), VTableHolder, String_val(UniqueId),
+      caml_string_length(UniqueId));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_struct_type_bytecode(value *argv,
+                                                                  int argn) {
+  return llvm_dibuild_create_struct_type_native(
+      argv[0],                   // Builder
+      (LLVMMetadataRef)argv[1],  // Scope
+      argv[2],                   // Name
+      (LLVMMetadataRef)argv[3],  // File
+      argv[4],                   // LineNumber
+      argv[5],                   // SizeInBits
+      argv[6],                   // AlignInBits
+      argv[7],                   // Flags
+      (LLVMMetadataRef)argv[8],  // DeriviedFrom
+      argv[9],                   // Elements
+      argv[10],                  // RunTimeLanguage
+      (LLVMMetadataRef)argv[11], // VTableHolder
+      argv[12]                   // UniqueId
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_member_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, value SizeInBits, value AlignInBits, value OffsetInBits,
+    value Flags, LLVMMetadataRef Ty) {
+
+  return LLVMDIBuilderCreateMemberType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), (uint64_t)Int_val(OffsetInBits), DIFlags_val(Flags),
+      Ty);
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_member_type_bytecode(value *argv,
+                                                                  int argn) {
+  return llvm_dibuild_create_member_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Scope
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // File
+      argv[4],                  // LineNumber
+      argv[5],                  // SizeInBits
+      argv[6],                  // AlignInBits
+      argv[7],                  // OffsetInBits
+      argv[8],                  // Flags
+      (LLVMMetadataRef)argv[9]  // Ty
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_static_member_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, LLVMMetadataRef Type, value Flags,
+    LLVMValueRef ConstantVal, value AlignInBits) {
+
+  return LLVMDIBuilderCreateStaticMemberType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), Type, DIFlags_val(Flags), ConstantVal,
+      Int_val(AlignInBits));
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_static_member_type_bytecode(value *argv, int argn) {
+  return llvm_dibuild_create_static_member_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Scope
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // File
+      argv[4],                  // LineNumber
+      (LLVMMetadataRef)argv[5], // Type
+      argv[6],                  // Flags,
+      (LLVMValueRef)argv[7],    // ConstantVal
+      argv[8]                   // AlignInBits
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_member_pointer_type_native(
+    value Builder, LLVMMetadataRef PointeeType, LLVMMetadataRef ClassType,
+    uint64_t SizeInBits, uint32_t AlignInBits, LLVMDIFlags Flags) {
+
+  return LLVMDIBuilderCreateMemberPointerType(
+      DIBuilder_val(Builder), PointeeType, ClassType,
+      (uint64_t)Int_val(SizeInBits), Int_val(AlignInBits), Flags);
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_member_pointer_type_bytecode(value *argv, int argn) {
+  return llvm_dibuild_create_member_pointer_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // PointeeType
+      (LLVMMetadataRef)argv[2], // ClassType
+      argv[3],                  // SizeInBits
+      argv[4],                  // AlignInBits
+      argv[5]                   // Flags
+  );
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_object_pointer_type(value Builder, LLVMMetadataRef Type) {
+  return LLVMDIBuilderCreateObjectPointerType(DIBuilder_val(Builder), Type);
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_qualified_type(
+    value Builder, value Tag, LLVMMetadataRef Type) {
+
+  return LLVMDIBuilderCreateQualifiedType(DIBuilder_val(Builder), Int_val(Tag),
+                                          Type);
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_reference_type(
+    value Builder, value Tag, LLVMMetadataRef Type) {
+
+  return LLVMDIBuilderCreateReferenceType(DIBuilder_val(Builder), Int_val(Tag),
+                                          Type);
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_null_ptr_type(value Builder) {
+
+  return LLVMDIBuilderCreateNullPtrType(DIBuilder_val(Builder));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_typedef_native(
+    value Builder, LLVMMetadataRef Type, value Name, LLVMMetadataRef File,
+    value LineNo, LLVMMetadataRef Scope, value AlignInBits) {
+
+  return LLVMDIBuilderCreateTypedef(
+      DIBuilder_val(Builder), Type, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNo), Scope, Int_val(AlignInBits));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_typedef_bytecode(value *argv,
+                                                              int argn) {
+
+  return llvm_dibuild_create_typedef_native(argv[0],                  // Builder
+                                            (LLVMMetadataRef)argv[1], // Type
+                                            argv[2],                  // Name
+                                            (LLVMMetadataRef)argv[3], // File
+                                            argv[4],                  // LineNo
+                                            (LLVMMetadataRef)argv[5], // Scope
+                                            argv[6] // AlignInBits
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_inheritance_native(
+    value Builder, LLVMMetadataRef Ty, LLVMMetadataRef BaseTy, value BaseOffset,
+    value VBPtrOffset, value Flags) {
+
+  return LLVMDIBuilderCreateInheritance(DIBuilder_val(Builder), Ty, BaseTy,
+                                        (uint64_t)Int_val(BaseOffset),
+                                        Int_val(VBPtrOffset), Flags);
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_inheritance_bytecode(value *argv,
+                                                                  int arg) {
+
+  return llvm_dibuild_create_inheritance_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Ty
+      (LLVMMetadataRef)argv[2], // BaseTy
+      argv[3],                  // BaseOffset
+      argv[4],                  // VBPtrOffset
+      argv[5]                   // Flags
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_forward_decl_native(
+    value Builder, value Tag, value Name, LLVMMetadataRef Scope,
+    LLVMMetadataRef File, value Line, value RuntimeLang, value SizeInBits,
+    value AlignInBits, value UniqueIdentifier) {
+  return LLVMDIBuilderCreateForwardDecl(
+      DIBuilder_val(Builder), Int_val(Tag), String_val(Name),
+      caml_string_length(Name), Scope, File, Int_val(Line),
+      Int_val(RuntimeLang), (uint64_t)Int_val(SizeInBits), Int_val(AlignInBits),
+      String_val(UniqueIdentifier), caml_string_length(UniqueIdentifier));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_forward_decl_bytecode(value *argv,
+                                                                   int arg) {
+
+  return llvm_dibuild_create_forward_decl_native(
+      argv[0],                  // Builder
+      argv[1],                  // Tag
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // Scope
+      (LLVMMetadataRef)argv[4], // File
+      argv[5],                  // Line
+      argv[6],                  // RuntimeLang
+      argv[7],                  // SizeInBits
+      argv[8],                  // AlignInBits
+      argv[9]                   // UniqueIdentifier
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_replaceable_composite_type_native(
+    value Builder, value Tag, value Name, LLVMMetadataRef Scope,
+    LLVMMetadataRef File, value Line, value RuntimeLang, value SizeInBits,
+    value AlignInBits, value Flags, value UniqueIdentifier) {
+
+  return LLVMDIBuilderCreateReplaceableCompositeType(
+      DIBuilder_val(Builder), Int_val(Tag), String_val(Name),
+      caml_string_length(Name), Scope, File, Int_val(Line),
+      Int_val(RuntimeLang), (uint64_t)Int_val(SizeInBits), Int_val(AlignInBits),
+      DIFlags_val(Flags), String_val(UniqueIdentifier),
+      caml_string_length(UniqueIdentifier));
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_replaceable_composite_type_bytecode(value *argv, int arg) {
+
+  return llvm_dibuild_create_replaceable_composite_type_native(
+      argv[0],                  // Builder
+      argv[1],                  // Tag
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // Scope
+      (LLVMMetadataRef)argv[4], // File
+      argv[5],                  // Line
+      argv[6],                  // RuntimeLang
+      argv[7],                  // SizeInBits
+      argv[8],                  // AlignInBits
+      argv[9],                  // Flags
+      argv[10]                  // UniqueIdentifier
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_bit_field_member_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNum, value SizeInBits, value OffsetInBits,
+    value StorageOffsetInBits, value Flags, LLVMMetadataRef Ty) {
+
+  return LLVMDIBuilderCreateBitFieldMemberType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNum), (uint64_t)Int_val(SizeInBits),
+      (uint64_t)Int_val(OffsetInBits), (uint64_t)Int_val(StorageOffsetInBits),
+      DIFlags_val(Flags), Ty);
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_bit_field_member_type_bytecode(value *argv, int arg) {
+
+  return llvm_dibuild_create_bit_field_member_type_native(
+      argv[0],                  // Builder
+      (LLVMMetadataRef)argv[1], // Scope
+      argv[2],                  // Name
+      (LLVMMetadataRef)argv[3], // File
+      argv[4],                  // LineNum
+      argv[5],                  // SizeInBits
+      argv[6],                  // OffsetInBits
+      argv[7],                  // StorageOffsetInBits
+      argv[8],                  // Flags
+      (LLVMMetadataRef)argv[9]  // Ty
+  );
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_class_type_native(
+    value Builder, LLVMMetadataRef Scope, value Name, LLVMMetadataRef File,
+    value LineNumber, value SizeInBits, value AlignInBits, value OffsetInBits,
+    value Flags, LLVMMetadataRef DerivedFrom, value Elements,
+    LLVMMetadataRef VTableHolder, LLVMMetadataRef TemplateParamsNode,
+    value UniqueIdentifier) {
+
+  return LLVMDIBuilderCreateClassType(
+      DIBuilder_val(Builder), Scope, String_val(Name), caml_string_length(Name),
+      File, Int_val(LineNumber), (uint64_t)Int_val(SizeInBits),
+      Int_val(AlignInBits), (uint64_t)Int_val(OffsetInBits), DIFlags_val(Flags),
+      DerivedFrom, (LLVMMetadataRef *)Op_val(Elements), Wosize_val(Elements),
+      VTableHolder, TemplateParamsNode, String_val(UniqueIdentifier),
+      caml_string_length(UniqueIdentifier));
+}
+
+CAMLprim LLVMMetadataRef llvm_dibuild_create_class_type_bytecode(value *argv,
+                                                                 int arg) {
+
+  return llvm_dibuild_create_class_type_native(
+      argv[0],                   // Builder
+      (LLVMMetadataRef)argv[1],  // Scope
+      argv[2],                   // Name
+      (LLVMMetadataRef)argv[3],  // File
+      argv[4],                   // LineNumber
+      argv[5],                   // SizeInBits
+      argv[6],                   // AlignInBits
+      argv[7],                   // OffsetInBits
+      argv[8],                   // Flags
+      (LLVMMetadataRef)argv[9],  // DerivedFrom
+      argv[10],                  // Elements
+      (LLVMMetadataRef)argv[11], // VTableHolder
+      (LLVMMetadataRef)argv[12], // TemplateParamsNode
+      argv[13]                   // UniqueIdentifier
+  );
+}
+
+CAMLprim LLVMMetadataRef
+llvm_dibuild_create_artificial_type(value Builder, LLVMMetadataRef Type) {
+  return LLVMDIBuilderCreateArtificialType(DIBuilder_val(Builder), Type);
+}
+
+CAMLprim value llvm_ditype_get_name(LLVMMetadataRef DType) {
+  size_t Len;
+  const char *Name = LLVMDITypeGetName(DType, &Len);
+  value String = caml_alloc_string(Len);
+  memcpy(String_val(String), Name, (int)Len);
+
+  return String;
+}
+
+CAMLprim value llvm_ditype_get_size_in_bits(LLVMMetadataRef DType) {
+  uint64_t Size = LLVMDITypeGetSizeInBits(DType);
+  return Val_int((int)Size);
+}
+
+CAMLprim value llvm_ditype_get_offset_in_bits(LLVMMetadataRef DType) {
+  uint64_t Size = LLVMDITypeGetOffsetInBits(DType);
+  return Val_int((int)Size);
+}
+
+CAMLprim value llvm_ditype_get_align_in_bits(LLVMMetadataRef DType) {
+  uint32_t Size = LLVMDITypeGetAlignInBits(DType);
+  return Val_int(Size);
+}
+
+CAMLprim value llvm_ditype_get_line(LLVMMetadataRef DType) {
+  unsigned Line = LLVMDITypeGetLine(DType);
+  return Val_int(Line);
+}
+
+CAMLprim value llvm_ditype_get_flags(LLVMMetadataRef DType) {
+  LLVMDIFlags Flags = LLVMDITypeGetLine(DType);
+  return alloc_diflags(Flags);
+}
+
+CAMLprim LLVMMetadataRef llvm_get_subprogram(LLVMValueRef Func) {
+  return LLVMGetSubprogram(Func);
+}
+
+CAMLprim value llvm_set_subprogram(LLVMValueRef Func, LLVMMetadataRef SP) {
+  LLVMSetSubprogram(Func, SP);
+  return Val_unit;
+}
+
+CAMLprim value llvm_di_subprogram_get_line(LLVMMetadataRef Subprogram) {
+  return Int_val(LLVMDISubprogramGetLine(Subprogram));
+}
+
+CAMLprim LLVMMetadataRef llvm_instruction_get_debug_loc(LLVMValueRef Inst) {
+  return LLVMInstructionGetDebugLoc(Inst);
+}
+
+CAMLprim value llvm_instruction_set_debug_loc(LLVMValueRef Inst,
+                                              LLVMMetadataRef Loc) {
+  LLVMInstructionSetDebugLoc(Inst, Loc);
+  return Val_unit;
+}
+
+CAMLprim value llvm_get_metadata_kind(LLVMMetadataRef Metadata) {
+  return Val_int(LLVMGetMetadataKind(Metadata));
+}

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.ml

+(*===-- llvm_debuginfo.ml - LLVM OCaml Interface ---------------*- OCaml -*-===*
+ *
+ * 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
+ *
+ *===----------------------------------------------------------------------===*)
+
+type lldibuilder
+
+type llmetadata
+
+(*
+ * Source languages known by DWARF.
+ *)
+module DWARFSourceLanguageKind = struct
+  type t =
+    | C89
+    | C
+    | Ada83
+    | C_plus_plus
+    | Cobol74
+    | Cobol85
+    | Fortran77
+    | Fortran90
+    | Pascal83
+    | Modula2
+    (*  New in DWARF v3: *)
+    | LLVMJava
+    | C99
+    | Ada95
+    | Fortran95
+    | PLI
+    | ObjC
+    | ObjC_plus_plus
+    | UPC
+    | D
+    (*  New in DWARF v4: *)
+    | LLVMPython
+    (*  New in DWARF v5: *)
+    | LLVMOpenCL
+    | Go
+    | Modula3
+    | Haskell
+    | C_plus_plus_03
+    | C_plus_plus_11
+    | OCaml
+    | Rust
+    | C11
+    | Swift
+    | Julia
+    | Dylan
+    | C_plus_plus_14
+    | Fortran03
+    | Fortran08
+    | RenderScript
+    | BLISS
+    (*  Vendor extensions: *)
+    | LLVMMips_Assembler
+    | GOOGLE_RenderScript
+    | BORLAND_Delphi
+end
+
+module DIFlag = struct
+  type t =
+    | Zero
+    | Private
+    | Protected
+    | Public
+    | FwdDecl
+    | AppleBlock
+    | ReservedBit4
+    | Virtual
+    | Artificial
+    | Explicit
+    | Prototyped
+    | ObjcClassComplete
+    | ObjectPointer
+    | Vector
+    | StaticMember
+    | LValueReference
+    | RValueReference
+    | Reserved
+    | SingleInheritance
+    | MultipleInheritance
+    | VirtualInheritance
+    | IntroducedVirtual
+    | BitField
+    | NoReturn
+    | TypePassByValue
+    | TypePassByReference
+    | EnumClass
+    | FixedEnum
+    | Thunk
+    | NonTrivial
+    | BigEndian
+    | LittleEndian
+    | IndirectVirtualBase
+    | Accessibility
+    | PtrToMemberRep
+end
+
+type lldiflags
+
+external diflags_get : DIFlag.t -> lldiflags = "llvm_diflags_get"
+
+external diflags_set : lldiflags -> DIFlag.t -> lldiflags = "llvm_diflags_set"
+
+external diflags_test : lldiflags -> DIFlag.t -> bool = "llvm_diflags_test"
+
+(**
+ * The kind of metadata nodes.
+ *)
+module MetadataKind = struct
+  type t =
+    | MDStringMetadataKind
+    | ConstantAsMetadataMetadataKind
+    | LocalAsMetadataMetadataKind
+    | DistinctMDOperandPlaceholderMetadataKind
+    | MDTupleMetadataKind
+    | DILocationMetadataKind
+    | DIExpressionMetadataKind
+    | DIGlobalVariableExpressionMetadataKind
+    | GenericDINodeMetadataKind
+    | DISubrangeMetadataKind
+    | DIEnumeratorMetadataKind
+    | DIBasicTypeMetadataKind
+    | DIDerivedTypeMetadataKind
+    | DICompositeTypeMetadataKind
+    | DISubroutineTypeMetadataKind
+    | DIFileMetadataKind
+    | DICompileUnitMetadataKind
+    | DISubprogramMetadataKind
+    | DILexicalBlockMetadataKind
+    | DILexicalBlockFileMetadataKind
+    | DINamespaceMetadataKind
+    | DIModuleMetadataKind
+    | DITemplateTypeParameterMetadataKind
+    | DITemplateValueParameterMetadataKind
+    | DIGlobalVariableMetadataKind
+    | DILocalVariableMetadataKind
+    | DILabelMetadataKind
+    | DIObjCPropertyMetadataKind
+    | DIImportedEntityMetadataKind
+    | DIMacroMetadataKind
+    | DIMacroFileMetadataKind
+    | DICommonBlockMetadataKind
+end
+
+(*
+ * The amount of debug information to emit.
+ *)
+module DWARFEmissionKind = struct
+  type t = None | Full | LineTablesOnly
+end
+
+external debug_metadata_version : unit -> int = "llvm_debug_metadata_version"
+
+external get_module_debug_metadata_version : Llvm.llmodule -> unit
+  = "llvm_get_module_debug_metadata_version"
+
+external dibuilder : Llvm.llmodule -> lldibuilder = "llvm_dibuilder"
+
+external dibuild_finalize : lldibuilder -> unit = "llvm_dibuild_finalize"
+
+(* See LLVMDIBuilderCreateCompileUnit for argument details. *)
+external dibuild_create_compile_unit :
+  lldibuilder ->
+  DWARFSourceLanguageKind.t ->
+  file_ref:llmetadata ->
+  producer:string ->
+  is_optimized:bool ->
+  flags:string ->
+  runtime_ver:int ->
+  split_name:string ->
+  DWARFEmissionKind.t ->
+  dwoid:int ->
+  di_inlining:bool ->
+  di_profiling:bool ->
+  sys_root:string ->
+  sdk:string ->
+  llmetadata
+  = "llvm_dibuild_create_compile_unit_bytecode" "llvm_dibuild_create_compile_unit_native"
+
+external dibuild_create_file :
+  lldibuilder -> filename:string -> directory:string -> llmetadata
+  = "llvm_dibuild_create_file"
+
+external dibuild_create_module :
+  lldibuilder ->
+  parent_ref:llmetadata ->
+  name:string ->
+  config_macros:string ->
+  include_path:string ->
+  sys_root:string ->
+  llmetadata
+  = "llvm_dibuild_create_module_bytecode" "llvm_dibuild_create_module_native"
+
+external dibuild_create_namespace :
+  lldibuilder ->
+  parent_ref:llmetadata ->
+  name:string ->
+  bool:string ->
+  llmetadata = "llvm_dibuild_create_namespace"
+
+external dibuild_create_function :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  linkage_name:string ->
+  file:llmetadata ->
+  line_no:int ->
+  ty:llmetadata ->
+  is_local_to_unit:bool ->
+  is_definition:bool ->
+  scope_line:int ->
+  flags:lldiflags ->
+  is_optimized:bool ->
+  llmetadata
+  = "llvm_dibuild_create_function_bytecode" "llvm_dibuild_create_function_native"
+
+external dibuild_create_lexical_block :
+  lldibuilder ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  column:int ->
+  llmetadata = "llvm_dibuild_create_lexical_block"
+
+external dibuild_create_debug_location_helper :
+  Llvm.llcontext ->
+  line:int ->
+  column:int ->
+  scope:llmetadata ->
+  inlined_at:llmetadata ->
+  llmetadata = "llvm_dibuild_create_debug_location"
+
+external llmetadata_null : unit -> llmetadata = "llvm_metadata_null"
+
+let dibuild_create_debug_location ?(inlined_at = llmetadata_null ()) llctx ~line
+    ~column ~scope =
+  dibuild_create_debug_location_helper llctx line column scope inlined_at
+
+external di_location_get_line : location:llmetadata -> int
+  = "llvm_di_location_get_line"
+
+external di_location_get_column : location:llmetadata -> int
+  = "llvm_di_location_get_column"
+
+external di_location_get_scope : location:llmetadata -> llmetadata
+  = "llvm_di_location_get_scope"
+
+external di_location_get_inlined_at : location:llmetadata -> llmetadata
+  = "llvm_di_location_get_inlined_at"
+
+external di_scope_get_file : location:llmetadata -> llmetadata
+  = "llvm_di_scope_get_file"
+
+external di_file_get_directory : file:llmetadata -> string
+  = "llvm_di_file_get_directory"
+
+external di_file_get_filename : file:llmetadata -> string
+  = "llvm_di_file_get_filename"
+
+external di_file_get_source : file:llmetadata -> string
+  = "llvm_di_file_get_source"
+
+external dibuild_get_or_create_type_array :
+  lldibuilder -> data:llmetadata array -> llmetadata
+  = "llvm_dibuild_get_or_create_type_array"
+
+external dibuild_create_subroutine_type :
+  lldibuilder ->
+  file:llmetadata ->
+  param_types:llmetadata array ->
+  lldiflags ->
+  llmetadata = "llvm_dibuild_create_subroutine_type"
+
+external dibuild_create_enumerator :
+  lldibuilder -> name:string -> value:int -> is_unsigned:bool -> llmetadata
+  = "llvm_dibuild_create_enumerator"
+
+external dibuild_create_enumeration_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  elements:llmetadata array ->
+  class_ty:llmetadata ->
+  llmetadata
+  = "llvm_dibuild_create_enumeration_type_native" "llvm_dibuild_create_enumeration_type_bytecode"
+
+external dibuild_create_union_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  elements:llmetadata array ->
+  run_time_language:int ->
+  unique_id:string ->
+  llmetadata
+  = "llvm_dibuild_create_union_type_native" "llvm_dibuild_create_union_type_bytecode"
+
+external dibuild_create_array_type :
+  lldibuilder ->
+  size:int ->
+  align_in_bits:int ->
+  ty:llmetadata ->
+  subscripts:llmetadata array ->
+  llmetadata = "llvm_dibuild_create_array_type"
+
+external dibuild_create_vector_type :
+  lldibuilder ->
+  size:int ->
+  align_in_bits:int ->
+  ty:llmetadata ->
+  subscripts:llmetadata array ->
+  llmetadata = "llvm_dibuild_create_array_type"
+
+external dibuild_create_unspecified_type :
+  lldibuilder -> name:string -> llmetadata
+  = "llvm_dibuild_create_unspecified_type"
+
+external dibuild_create_basic_type :
+  lldibuilder ->
+  name:string ->
+  size_in_bits:int ->
+  encoding:int ->
+  lldiflags ->
+  llmetadata = "llvm_dibuild_create_basic_type"
+
+external dibuild_create_pointer_type :
+  lldibuilder ->
+  pointee_ty:llmetadata ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  address_space:int ->
+  name:string ->
+  llmetadata
+  = "llvm_dibuild_create_pointer_type_native" "llvm_dibuild_create_pointer_type_bytecode"
+
+external dibuild_create_struct_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  derived_from:llmetadata ->
+  elements:llmetadata array ->
+  run_time_lang:int ->
+  vtable_holder:llmetadata ->
+  unique_id:string ->
+  llmetadata
+  = "llvm_dibuild_create_struct_type_native" "llvm_dibuild_create_struct_type_bytecode"
+
+external dibuild_create_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  offset_in_bits:int ->
+  lldiflags ->
+  ty:llmetadata ->
+  llmetadata
+  = "llvm_dibuild_create_member_type_native" "llvm_dibuild_create_member_type_bytecode"
+
+external dibuild_create_static_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  ty:llmetadata ->
+  lldiflags ->
+  const_val:Llvm.llvalue ->
+  align_in_bits:int ->
+  llmetadata
+  = "llvm_dibuild_create_static_member_type_native" "llvm_dibuild_create_static_member_type_bytecode"
+
+external dibuild_create_member_pointer_type :
+  lldibuilder ->
+  pointee_type:llmetadata ->
+  class_type:llmetadata ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  llmetadata
+  = "llvm_dibuild_create_member_pointer_type_native" "llvm_dibuild_create_member_pointer_type_bytecode"
+
+external dibuild_create_object_pointer_type :
+  lldibuilder -> llmetadata -> llmetadata
+  = "llvm_dibuild_create_object_pointer_type"
+
+external dibuild_create_qualified_type :
+  lldibuilder -> tag:int -> llmetadata -> llmetadata
+  = "llvm_dibuild_create_qualified_type"
+
+external dibuild_create_reference_type :
+  lldibuilder -> tag:int -> llmetadata -> llmetadata
+  = "llvm_dibuild_create_reference_type"
+
+external dibuild_create_null_ptr_type : lldibuilder -> llmetadata
+  = "llvm_dibuild_create_null_ptr_type"
+
+external dibuild_create_typedef :
+  lldibuilder ->
+  ty:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_no:int ->
+  scope:llmetadata ->
+  align_in_bits:int ->
+  llmetadata
+  = "llvm_dibuild_create_typedef_native" "llvm_dibuild_create_typedef_bytecode"
+
+external dibuild_create_inheritance_native :
+  lldibuilder ->
+  ty:llmetadata ->
+  base_ty:llmetadata ->
+  base_offset:int ->
+  vb_ptr_offset:int ->
+  lldiflags ->
+  llmetadata
+  = "llvm_dibuild_create_inheritance_native" "llvm_dibuild_create_inheritance_bytecode"
+
+external dibuild_create_forward_decl :
+  lldibuilder ->
+  tag:int ->
+  name:string ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  runtime_lang:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  unique_identifier:string ->
+  llmetadata
+  = "llvm_dibuild_create_forward_decl_native" "llvm_dibuild_create_forward_decl_bytecode"
+
+external dibuild_create_replaceable_composite_type :
+  lldibuilder ->
+  tag:int ->
+  name:string ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  runtime_lang:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  unique_identifier:string ->
+  llmetadata
+  = "llvm_dibuild_create_replaceable_composite_type_native" "llvm_dibuild_create_replaceable_composite_type_bytecode"
+
+external dibuild_create_bit_field_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_num:int ->
+  size_in_bits:int ->
+  offset_in_bits:int ->
+  storage_offset_in_bits:int ->
+  lldiflags ->
+  ty:llmetadata ->
+  llmetadata
+  = "llvm_dibuild_create_bit_field_member_type_native" "llvm_dibuild_create_bit_field_member_type_bytecode"
+
+external dibuild_create_class_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  offset_in_bits:int ->
+  lldiflags ->
+  derived_from:llmetadata ->
+  elements:llmetadata array ->
+  vtable_holder:llmetadata ->
+  template_params_node:llmetadata ->
+  unique_identifier:string ->
+  llmetadata
+  = "llvm_dibuild_create_class_type_native" "llvm_dibuild_create_class_type_bytecode"
+
+external dibuild_create_artificial_type :
+  lldibuilder -> ty:llmetadata -> llmetadata
+  = "llvm_dibuild_create_artificial_type"
+
+external ditype_get_name : llmetadata -> string = "llvm_ditype_get_name"
+
+external ditype_get_size_in_bits : llmetadata -> int
+  = "llvm_ditype_get_size_in_bits"
+
+external ditype_get_offset_in_bits : llmetadata -> int
+  = "llvm_ditype_get_offset_in_bits"
+
+external ditype_get_align_in_bits : llmetadata -> int
+  = "llvm_ditype_get_align_in_bits"
+
+external ditype_get_line : llmetadata -> int = "llvm_ditype_get_line"
+
+external ditype_get_flags : llmetadata -> lldiflags = "llvm_ditype_get_flags"
+
+external get_subprogram : Llvm.llvalue -> llmetadata = "llvm_get_subprogram"
+
+external set_subprogram : Llvm.llvalue -> llmetadata -> unit
+  = "llvm_set_subprogram"
+
+external di_subprogram_get_line : llmetadata -> int
+  = "llvm_di_subprogram_get_line"
+
+external instruction_get_debug_loc : Llvm.llvalue -> llmetadata
+  = "llvm_instruction_get_debug_loc"
+
+external instruction_set_debug_loc : Llvm.llvalue -> llmetadata -> unit
+  = "llvm_instruction_set_debug_loc"
+
+external get_metadata_kind : llmetadata -> MetadataKind.t
+  = "llvm_get_metadata_kind"

llvm/bindings/ocaml/debuginfo/llvm_debuginfo.mli

+(*===-- llvm_analysis.mli - LLVM OCaml Interface --------------*- OCaml -*-===*
+ *
+ * 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
+ *
+ *===----------------------------------------------------------------------===*)
+
+type lldibuilder
+
+type llmetadata
+
+(*
+ * Source languages known by DWARF.
+ *)
+module DWARFSourceLanguageKind : sig
+  type t =
+    | C89
+    | C
+    | Ada83
+    | C_plus_plus
+    | Cobol74
+    | Cobol85
+    | Fortran77
+    | Fortran90
+    | Pascal83
+    | Modula2
+    (*  New in DWARF v3: *)
+    | LLVMJava
+    | C99
+    | Ada95
+    | Fortran95
+    | PLI
+    | ObjC
+    | ObjC_plus_plus
+    | UPC
+    | D
+    (*  New in DWARF v4: *)
+    | LLVMPython
+    (*  New in DWARF v5: *)
+    | LLVMOpenCL
+    | Go
+    | Modula3
+    | Haskell
+    | C_plus_plus_03
+    | C_plus_plus_11
+    | OCaml
+    | Rust
+    | C11
+    | Swift
+    | Julia
+    | Dylan
+    | C_plus_plus_14
+    | Fortran03
+    | Fortran08
+    | RenderScript
+    | BLISS
+    (*  Vendor extensions: *)
+    | LLVMMips_Assembler
+    | GOOGLE_RenderScript
+    | BORLAND_Delphi
+end
+
+module DIFlag : sig
+  type t =
+    | Zero
+    | Private
+    | Protected
+    | Public
+    | FwdDecl
+    | AppleBlock
+    | ReservedBit4
+    | Virtual
+    | Artificial
+    | Explicit
+    | Prototyped
+    | ObjcClassComplete
+    | ObjectPointer
+    | Vector
+    | StaticMember
+    | LValueReference
+    | RValueReference
+    | Reserved
+    | SingleInheritance
+    | MultipleInheritance
+    | VirtualInheritance
+    | IntroducedVirtual
+    | BitField
+    | NoReturn
+    | TypePassByValue
+    | TypePassByReference
+    | EnumClass
+    | FixedEnum
+    | Thunk
+    | NonTrivial
+    | BigEndian
+    | LittleEndian
+    | IndirectVirtualBase
+    | Accessibility
+    | PtrToMemberRep
+end
+
+(* An opaque type to represent OR of multiple DIFlag.t. *)
+type lldiflags
+
+val diflags_get : DIFlag.t -> lldiflags
+
+val diflags_set : lldiflags -> DIFlag.t -> lldiflags
+
+val diflags_test : lldiflags -> DIFlag.t -> bool
+
+(**
+ * The kind of metadata nodes.
+ *)
+module MetadataKind : sig
+  type t =
+    | MDStringMetadataKind
+    | ConstantAsMetadataMetadataKind
+    | LocalAsMetadataMetadataKind
+    | DistinctMDOperandPlaceholderMetadataKind
+    | MDTupleMetadataKind
+    | DILocationMetadataKind
+    | DIExpressionMetadataKind
+    | DIGlobalVariableExpressionMetadataKind
+    | GenericDINodeMetadataKind
+    | DISubrangeMetadataKind
+    | DIEnumeratorMetadataKind
+    | DIBasicTypeMetadataKind
+    | DIDerivedTypeMetadataKind
+    | DICompositeTypeMetadataKind
+    | DISubroutineTypeMetadataKind
+    | DIFileMetadataKind
+    | DICompileUnitMetadataKind
+    | DISubprogramMetadataKind
+    | DILexicalBlockMetadataKind
+    | DILexicalBlockFileMetadataKind
+    | DINamespaceMetadataKind
+    | DIModuleMetadataKind
+    | DITemplateTypeParameterMetadataKind
+    | DITemplateValueParameterMetadataKind
+    | DIGlobalVariableMetadataKind
+    | DILocalVariableMetadataKind
+    | DILabelMetadataKind
+    | DIObjCPropertyMetadataKind
+    | DIImportedEntityMetadataKind
+    | DIMacroMetadataKind
+    | DIMacroFileMetadataKind
+    | DICommonBlockMetadataKind
+end
+
+(*
+ * The amount of debug information to emit.
+ *)
+module DWARFEmissionKind : sig
+  type t = None | Full | LineTablesOnly
+end
+
+val debug_metadata_version : unit -> int
+
+val get_module_debug_metadata_version : Llvm.llmodule -> unit
+
+val dibuilder : Llvm.llmodule -> lldibuilder
+
+val dibuild_finalize : lldibuilder -> unit
+
+val dibuild_create_compile_unit :
+  lldibuilder ->
+  DWARFSourceLanguageKind.t ->
+  file_ref:llmetadata ->
+  producer:string ->
+  is_optimized:bool ->
+  flags:string ->
+  runtime_ver:int ->
+  split_name:string ->
+  DWARFEmissionKind.t ->
+  dwoid:int ->
+  di_inlining:bool ->
+  di_profiling:bool ->
+  sys_root:string ->
+  sdk:string ->
+  llmetadata
+
+val dibuild_create_file :
+  lldibuilder -> filename:string -> directory:string -> llmetadata
+
+val dibuild_create_module :
+  lldibuilder ->
+  parent_ref:llmetadata ->
+  name:string ->
+  config_macros:string ->
+  include_path:string ->
+  sys_root:string ->
+  llmetadata
+
+val dibuild_create_namespace :
+  lldibuilder ->
+  parent_ref:llmetadata ->
+  name:string ->
+  bool:string ->
+  llmetadata
+
+val dibuild_create_function :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  linkage_name:string ->
+  file:llmetadata ->
+  line_no:int ->
+  ty:llmetadata ->
+  is_local_to_unit:bool ->
+  is_definition:bool ->
+  scope_line:int ->
+  flags:lldiflags ->
+  is_optimized:bool ->
+  llmetadata
+
+val dibuild_create_lexical_block :
+  lldibuilder ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  column:int ->
+  llmetadata
+
+val llmetadata_null : unit -> llmetadata
+
+val dibuild_create_debug_location :
+  ?inlined_at:llmetadata ->
+  Llvm.llcontext ->
+  line:int ->
+  column:int ->
+  scope:llmetadata ->
+  llmetadata
+
+val di_location_get_line : location:llmetadata -> int
+
+val di_location_get_column : location:llmetadata -> int
+
+val di_location_get_scope : location:llmetadata -> llmetadata
+
+val di_location_get_inlined_at : location:llmetadata -> llmetadata
+
+val di_scope_get_file : location:llmetadata -> llmetadata
+
+val di_file_get_directory : file:llmetadata -> string
+
+val di_file_get_filename : file:llmetadata -> string
+
+val di_file_get_source : file:llmetadata -> string
+
+val dibuild_get_or_create_type_array :
+  lldibuilder -> data:llmetadata array -> llmetadata
+
+val dibuild_create_subroutine_type :
+  lldibuilder ->
+  file:llmetadata ->
+  param_types:llmetadata array ->
+  lldiflags ->
+  llmetadata
+
+val dibuild_create_enumerator :
+  lldibuilder -> name:string -> value:int -> is_unsigned:bool -> llmetadata
+
+val dibuild_create_enumeration_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  elements:llmetadata array ->
+  class_ty:llmetadata ->
+  llmetadata
+
+val dibuild_create_union_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  elements:llmetadata array ->
+  run_time_language:int ->
+  unique_id:string ->
+  llmetadata
+
+val dibuild_create_array_type :
+  lldibuilder ->
+  size:int ->
+  align_in_bits:int ->
+  ty:llmetadata ->
+  subscripts:llmetadata array ->
+  llmetadata
+
+val dibuild_create_vector_type :
+  lldibuilder ->
+  size:int ->
+  align_in_bits:int ->
+  ty:llmetadata ->
+  subscripts:llmetadata array ->
+  llmetadata
+
+val dibuild_create_unspecified_type : lldibuilder -> name:string -> llmetadata
+
+val dibuild_create_basic_type :
+  lldibuilder ->
+  name:string ->
+  size_in_bits:int ->
+  encoding:int ->
+  lldiflags ->
+  llmetadata
+
+val dibuild_create_pointer_type :
+  lldibuilder ->
+  pointee_ty:llmetadata ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  address_space:int ->
+  name:string ->
+  llmetadata
+
+val dibuild_create_struct_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  derived_from:llmetadata ->
+  elements:llmetadata array ->
+  run_time_lang:int ->
+  vtable_holder:llmetadata ->
+  unique_id:string ->
+  llmetadata
+
+val dibuild_create_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  offset_in_bits:int ->
+  lldiflags ->
+  ty:llmetadata ->
+  llmetadata
+
+val dibuild_create_static_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  ty:llmetadata ->
+  lldiflags ->
+  const_val:Llvm.llvalue ->
+  align_in_bits:int ->
+  llmetadata
+
+val dibuild_create_member_pointer_type :
+  lldibuilder ->
+  pointee_type:llmetadata ->
+  class_type:llmetadata ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  llmetadata
+
+val dibuild_create_object_pointer_type : lldibuilder -> llmetadata -> llmetadata
+
+val dibuild_create_qualified_type :
+  lldibuilder -> tag:int -> llmetadata -> llmetadata
+
+val dibuild_create_reference_type :
+  lldibuilder -> tag:int -> llmetadata -> llmetadata
+
+val dibuild_create_null_ptr_type : lldibuilder -> llmetadata
+
+val dibuild_create_typedef :
+  lldibuilder ->
+  ty:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_no:int ->
+  scope:llmetadata ->
+  align_in_bits:int ->
+  llmetadata
+
+val dibuild_create_inheritance_native :
+  lldibuilder ->
+  ty:llmetadata ->
+  base_ty:llmetadata ->
+  base_offset:int ->
+  vb_ptr_offset:int ->
+  lldiflags ->
+  llmetadata
+
+val dibuild_create_forward_decl :
+  lldibuilder ->
+  tag:int ->
+  name:string ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  runtime_lang:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  unique_identifier:string ->
+  llmetadata
+
+val dibuild_create_replaceable_composite_type :
+  lldibuilder ->
+  tag:int ->
+  name:string ->
+  scope:llmetadata ->
+  file:llmetadata ->
+  line:int ->
+  runtime_lang:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  lldiflags ->
+  unique_identifier:string ->
+  llmetadata
+
+val dibuild_create_bit_field_member_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_num:int ->
+  size_in_bits:int ->
+  offset_in_bits:int ->
+  storage_offset_in_bits:int ->
+  lldiflags ->
+  ty:llmetadata ->
+  llmetadata
+
+val dibuild_create_class_type :
+  lldibuilder ->
+  scope:llmetadata ->
+  name:string ->
+  file:llmetadata ->
+  line_number:int ->
+  size_in_bits:int ->
+  align_in_bits:int ->
+  offset_in_bits:int ->
+  lldiflags ->
+  derived_from:llmetadata ->
+  elements:llmetadata array ->
+  vtable_holder:llmetadata ->
+  template_params_node:llmetadata ->
+  unique_identifier:string ->
+  llmetadata
+
+val dibuild_create_artificial_type : lldibuilder -> ty:llmetadata -> llmetadata
+
+val ditype_get_name : llmetadata -> string
+
+val ditype_get_size_in_bits : llmetadata -> int
+
+val ditype_get_offset_in_bits : llmetadata -> int
+
+val ditype_get_align_in_bits : llmetadata -> int
+
+val ditype_get_line : llmetadata -> int
+
+val ditype_get_flags : llmetadata -> lldiflags
+
+val get_subprogram : Llvm.llvalue -> llmetadata
+
+val set_subprogram : Llvm.llvalue -> llmetadata -> unit
+
+val di_subprogram_get_line : llmetadata -> int
+
+val instruction_get_debug_loc : Llvm.llvalue -> llmetadata
+
+val instruction_set_debug_loc : Llvm.llvalue -> llmetadata -> unit
+
+val get_metadata_kind : llmetadata -> MetadataKind.t

llvm/bindings/ocaml/llvm/META.llvm.in

 
 package "all_backends" (
     requires = "llvm"
     version  = "@PACKAGE_VERSION@"
     description = "All backends for LLVM"
     archive(byte) = "llvm_all_backends.cma"
     archive(native) = "llvm_all_backends.cmxa"
 )
+
+package "debuginfo" (
+    requires = "llvm"
+    version = "@PACKAGE_VERSION@"
+    description = "DebugInfo support for LLVM"
+    archive(byte) = "llvm_debuginfo.cma"
+    archive(native) = "llvm_debuginfo.cmxa"
+)

llvm/bindings/ocaml/llvm/llvm.ml

 (*===-- llvm/llvm.ml - LLVM OCaml Interface -------------------------------===*
  *
  * 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
  *
  *===----------------------------------------------------------------------===*)
 
 
 type llcontext
 type llmodule
+type llmetadata
 type lltype
 type llvalue
 type lluse
 type llbasicblock
 type llbuilder
 type llattrkind
 type llattribute
 type llmemorybuffer

 module DiagnosticSeverity = struct
   type t =
   | Error
   | Warning
   | Remark
   | Note
 end
 
+module ModuleFlagBehaviour = struct
+  type t =
+  | Error
+  | Warning
+  | Require
+  | Override
+  | Append
+  | AppendUnique
+end
+
 exception IoError of string
 
 let () = Callback.register_exception "Llvm.IoError" (IoError "")
 
 external install_fatal_error_handler : (string -> unit) -> unit
                                      = "llvm_install_fatal_error_handler"
 external reset_fatal_error_handler : unit -> unit
                                    = "llvm_reset_fatal_error_handler"

 external set_data_layout: string -> llmodule -> unit
                         = "llvm_set_data_layout"
 external dump_module : llmodule -> unit = "llvm_dump_module"
 external print_module : string -> llmodule -> unit = "llvm_print_module"
 external string_of_llmodule : llmodule -> string = "llvm_string_of_llmodule"
 external set_module_inline_asm : llmodule -> string -> unit
                                = "llvm_set_module_inline_asm"
 external module_context : llmodule -> llcontext = "LLVMGetModuleContext"
+external get_module_flag : llmodule -> string -> llmetadata
+                         = "llvm_get_module_flag"
+external add_module_flag : llmodule -> ModuleFlagBehaviour.t ->
+            string -> llmetadata -> unit = "llvm_add_module_flag"
 
 (*===-- Types -------------------------------------------------------------===*)
 external classify_type : lltype -> TypeKind.t = "llvm_classify_type"
 external type_context : lltype -> llcontext = "llvm_type_context"
 external type_is_sized : lltype -> bool = "llvm_type_is_sized"
 external dump_type : lltype -> unit = "llvm_dump_type"
 external string_of_lltype : lltype -> string = "llvm_string_of_lltype"
 

 external mdnull : llcontext -> llvalue = "llvm_mdnull"
 external get_mdstring : llvalue -> string option = "llvm_get_mdstring"
 external get_mdnode_operands : llvalue -> llvalue array
                             = "llvm_get_mdnode_operands"
 external get_named_metadata : llmodule -> string -> llvalue array
                             = "llvm_get_namedmd"
 external add_named_metadata_operand : llmodule -> string -> llvalue -> unit
                                     = "llvm_append_namedmd"
+external value_as_metadata : llvalue -> llmetadata = "llvm_value_as_metadata"
+external metadata_as_value : llcontext -> llmetadata -> llvalue
+                        = "llvm_metadata_as_value"
 
 (*--... Operations on scalar constants .....................................--*)
 external const_int : lltype -> int -> llvalue = "llvm_const_int"
 external const_of_int64 : lltype -> Int64.t -> bool -> llvalue
                         = "llvm_const_of_int64"
 external int64_of_const : llvalue -> Int64.t option
                         = "llvm_int64_of_const"
 external const_int_of_string : lltype -> string -> int -> llvalue

llvm/bindings/ocaml/llvm/llvm.mli

 (** The top-level container for all LLVM global data. See the
     [llvm::LLVMContext] class. *)
 type llcontext
 
 (** The top-level container for all other LLVM Intermediate Representation (IR)
     objects. See the [llvm::Module] class. *)
 type llmodule
 
+(** Opaque representation of Metadata nodes. See the [llvm::Metadata] class. *)
+type llmetadata
+
 (** Each value in the LLVM IR has a type, an instance of [lltype]. See the
     [llvm::Type] class. *)
 type lltype
 
 (** Any value in the LLVM IR. Functions, instructions, global variables,
     constants, and much more are all [llvalues]. See the [llvm::Value] class.
     This type covers a wide range of subclasses. *)
 type llvalue

 module DiagnosticSeverity : sig
   type t =
   | Error
   | Warning
   | Remark
   | Note
 end
 
+module ModuleFlagBehaviour :sig
+  type t =
+  | Error
+  | Warning
+  | Require
+  | Override
+  | Append
+  | AppendUnique
+end
 
 (** {6 Iteration} *)
 
 (** [Before b] and [At_end a] specify positions from the start of the ['b] list
     of [a]. [llpos] is used to specify positions in and for forward iteration
     through the various value lists maintained by the LLVM IR. *)
 type ('a, 'b) llpos =
 | At_end of 'a

 (** [set_module_inline_asm m asm] sets the inline assembler for the module. See
     the method [llvm::Module::setModuleInlineAsm]. *)
 val set_module_inline_asm : llmodule -> string -> unit
 
 (** [module_context m] returns the context of the specified module.
     See the method [llvm::Module::getContext] *)
 val module_context : llmodule -> llcontext
 
-
+val get_module_flag : llmodule -> string -> llmetadata
+val add_module_flag : llmodule -> ModuleFlagBehaviour.t ->
+                        string -> llmetadata -> unit
 (** {6 Types} *)
 
 (** [classify_type ty] returns the {!TypeKind.t} corresponding to the type [ty].
     See the method [llvm::Type::getTypeID]. *)
 val classify_type : lltype -> TypeKind.t
 
 (** [type_is_sized ty] returns whether the type has a size or not.
     If it doesn't then it is not safe to call the [DataLayout::] methods on it.
     *)

 
 (** [add_named_metadata_operand m name v] adds [v] as the last operand of
     metadata named [name] in module [m]. If the metadata does not exist,
     it is created.
     See the methods [llvm::Module::getNamedMetadata()] and
     [llvm::MDNode::addOperand()]. *)
 val add_named_metadata_operand : llmodule -> string -> llvalue -> unit
 
+(** Obtain a Value as a Metadata.
+    See the method [llvm::ValueAsMetadata::get()]. *)
+val value_as_metadata : llvalue -> llmetadata
+
+(** Obtain a Value as a Metadata.
+    See the method [llvm::MetadataAsValue::get()]. *)
+val metadata_as_value : llcontext -> llmetadata -> llvalue
 
 (** {7 Operations on scalar constants} *)
 
 (** [const_int ty i] returns the integer constant of type [ty] and value [i].
     See the method [llvm::ConstantInt::get]. *)
 val const_int : lltype -> int -> llvalue
 
 (** [const_of_int64 ty i] returns the integer constant of type [ty] and value

llvm/bindings/ocaml/llvm/llvm_ocaml.c

 \*===----------------------------------------------------------------------===*/
 
 #include <assert.h>
 #include <stdlib.h>
 #include <string.h>
 #include "llvm-c/Core.h"
 #include "llvm-c/Support.h"
 #include "llvm/Config/llvm-config.h"
 #include "caml/alloc.h"
 #include "caml/custom.h"
 #include "caml/memory.h"
 #include "caml/fail.h"
 #include "caml/callback.h"
 
 value llvm_string_of_message(char* Message) {
   value String = caml_copy_string(Message);
   LLVMDisposeMessage(Message);
 
   return String;
 }
 
 void llvm_raise(value Prototype, char *Message) {
   CAMLparam1(Prototype);
   caml_raise_with_arg(Prototype, llvm_string_of_message(Message));
   CAMLnoreturn;
 }
 
 static value llvm_fatal_error_handler;
 
 static void llvm_fatal_error_trampoline(const char *Reason) {
   callback(llvm_fatal_error_handler, caml_copy_string(Reason));
 }
 
 CAMLprim value llvm_install_fatal_error_handler(value Handler) {
   LLVMInstallFatalErrorHandler(llvm_fatal_error_trampoline);
   llvm_fatal_error_handler = Handler;
   caml_register_global_root(&llvm_fatal_error_handler);
   return Val_unit;
 }
 
 CAMLprim value llvm_reset_fatal_error_handler(value Unit) {
   caml_remove_global_root(&llvm_fatal_error_handler);
   LLVMResetFatalErrorHandler();
   return Val_unit;
 }
 
 CAMLprim value llvm_enable_pretty_stacktrace(value Unit) {
   LLVMEnablePrettyStackTrace();

 }
 
 /* llmodule -> string -> unit */
 CAMLprim value llvm_set_module_inline_asm(LLVMModuleRef M, value Asm) {
   LLVMSetModuleInlineAsm(M, String_val(Asm));
   return Val_unit;
 }
 
+/* llmodule -> string -> llmetadata */
+CAMLprim LLVMMetadataRef llvm_get_module_flag(LLVMModuleRef M, value Key) {
+  return LLVMGetModuleFlag(M, String_val(Key), caml_string_length(Key));
+}
+
+CAMLprim value llvm_add_module_flag(LLVMModuleRef M,
+                                    LLVMModuleFlagBehavior Behaviour, value Key,
+                                    LLVMMetadataRef Val) {
+  LLVMAddModuleFlag(M, Int_val(Behaviour), String_val(Key),
+                    caml_string_length(Key), Val);
+  return Val_unit;
+}
+
 /*===-- Types -------------------------------------------------------------===*/
 
 /* lltype -> TypeKind.t */
 CAMLprim value llvm_classify_type(LLVMTypeRef Ty) {
   return Val_int(LLVMGetTypeKind(Ty));
 }
 
 CAMLprim value llvm_type_is_sized(LLVMTypeRef Ty) {

 }
 
 /* llmodule -> string -> llvalue -> unit */
 CAMLprim value llvm_append_namedmd(LLVMModuleRef M, value Name, LLVMValueRef Val) {
   LLVMAddNamedMetadataOperand(M, String_val(Name), Val);
   return Val_unit;
 }
 
+/* llvalue -> llmetadata */
+CAMLprim LLVMMetadataRef llvm_value_as_metadata(LLVMValueRef Val) {
+  return LLVMValueAsMetadata(Val);
+}
+
+/* llcontext -> llmetadata -> llvalue */
+CAMLprim LLVMValueRef llvm_metadata_as_value(LLVMContextRef C,
+                                             LLVMMetadataRef MD) {
+  return LLVMMetadataAsValue(C, MD);
+}
+
 /*--... Operations on scalar constants .....................................--*/
 
 /* lltype -> int -> llvalue */
 CAMLprim LLVMValueRef llvm_const_int(LLVMTypeRef IntTy, value N) {
   return LLVMConstInt(IntTy, (long long) Long_val(N), 1);
 }
 
 /* lltype -> Int64.t -> bool -> llvalue */