36 lines · c
1/*===-- linker_ocaml.c - LLVM OCaml Glue ------------------------*- C++ -*-===*\2|* *|3|* Part of the LLVM Project, under the Apache License v2.0 with LLVM *|4|* Exceptions. *|5|* See https://llvm.org/LICENSE.txt for license information. *|6|* SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception *|7|* *|8|*===----------------------------------------------------------------------===*|9|* *|10|* This file glues LLVM's OCaml interface to its C interface. These functions *|11|* are by and large transparent wrappers to the corresponding C functions. *|12|* *|13|* Note that these functions intentionally take liberties with the CAMLparamX *|14|* macros, since most of the parameters are not GC heap objects. *|15|* *|16\*===----------------------------------------------------------------------===*/17 18#include "caml/alloc.h"19#include "caml/callback.h"20#include "caml/fail.h"21#include "caml/memory.h"22#include "llvm_ocaml.h"23#include "llvm-c/Core.h"24#include "llvm-c/Linker.h"25 26void llvm_raise(value Prototype, char *Message);27 28/* llmodule -> llmodule -> unit */29value llvm_link_modules(value Dst, value Src) {30 if (LLVMLinkModules2(Module_val(Dst), Module_val(Src)))31 llvm_raise(*caml_named_value("Llvm_linker.Error"),32 LLVMCreateMessage("Linking failed"));33 34 return Val_unit;35}36