37 lines · c
1/*===-- irreader_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\*===----------------------------------------------------------------------===*/14 15#include "caml/alloc.h"16#include "caml/callback.h"17#include "caml/fail.h"18#include "caml/memory.h"19#include "llvm_ocaml.h"20#include "llvm-c/IRReader.h"21 22void llvm_raise(value Prototype, char *Message);23 24/* Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule */25value llvm_parse_ir(value C, value MemBuf) {26 CAMLparam0();27 CAMLlocal2(Variant, MessageVal);28 LLVMModuleRef M;29 char *Message;30 31 if (LLVMParseIRInContext(Context_val(C), MemoryBuffer_val(MemBuf), &M,32 &Message))33 llvm_raise(*caml_named_value("Llvm_irreader.Error"), Message);34 35 CAMLreturn(to_val(M));36}37