1 (*===-- llvm_irreader.ml - LLVM OCaml Interface ---------------*- OCaml -*-===*
3 * The LLVM Compiler Infrastructure
5 * This file is distributed under the University of Illinois Open Source
6 * License. See LICENSE.TXT for details.
8 *===----------------------------------------------------------------------===*)
11 exception Error of string
13 external register_exns : exn -> unit = "llvm_register_irreader_exns"
14 let _ = register_exns (Error "")
16 external parse_ir : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule