diff options
| author | 2020-08-03 15:06:44 +0000 | |
|---|---|---|
| committer | 2020-08-03 15:06:44 +0000 | |
| commit | b64793999546ed8adebaeebd9d8345d18db8927d (patch) | |
| tree | 4357c27b561d73b0e089727c6ed659f2ceff5f47 /gnu/llvm/bindings/ocaml/linker/linker_ocaml.c | |
| parent | Add support for UTF-8 DISPLAY-HINTs with octet length. For now only (diff) | |
| download | wireguard-openbsd-b64793999546ed8adebaeebd9d8345d18db8927d.tar.xz wireguard-openbsd-b64793999546ed8adebaeebd9d8345d18db8927d.zip | |
Remove LLVM 8.0.1 files.
Diffstat (limited to 'gnu/llvm/bindings/ocaml/linker/linker_ocaml.c')
| -rw-r--r-- | gnu/llvm/bindings/ocaml/linker/linker_ocaml.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/gnu/llvm/bindings/ocaml/linker/linker_ocaml.c b/gnu/llvm/bindings/ocaml/linker/linker_ocaml.c deleted file mode 100644 index 08737bd5843..00000000000 --- a/gnu/llvm/bindings/ocaml/linker/linker_ocaml.c +++ /dev/null @@ -1,33 +0,0 @@ -/*===-- linker_ocaml.c - LLVM OCaml Glue ------------------------*- C++ -*-===*\ -|* *| -|* The LLVM Compiler Infrastructure *| -|* *| -|* This file is distributed under the University of Illinois Open Source *| -|* License. See LICENSE.TXT for details. *| -|* *| -|*===----------------------------------------------------------------------===*| -|* *| -|* 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 "llvm-c/Core.h" -#include "llvm-c/Linker.h" -#include "caml/alloc.h" -#include "caml/memory.h" -#include "caml/fail.h" -#include "caml/callback.h" - -void llvm_raise(value Prototype, char *Message); - -/* llmodule -> llmodule -> unit */ -CAMLprim value llvm_link_modules(LLVMModuleRef Dst, LLVMModuleRef Src) { - if (LLVMLinkModules2(Dst, Src)) - llvm_raise(*caml_named_value("Llvm_linker.Error"), LLVMCreateMessage("Linking failed")); - - return Val_unit; -} |
