1(*===-- llvm_bitreader.ml - LLVM OCaml Interface --------------*- OCaml -*-===*
2 *
3 * Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 * See https://llvm.org/LICENSE.txt for license information.
5 * SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 *
7 *===----------------------------------------------------------------------===*)
8
9exception Error of string
10
11let () = Callback.register_exception "Llvm_bitreader.Error" (Error "")
12
13external get_module
14  : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule
15  = "llvm_get_module"
16external parse_bitcode
17  : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule
18  = "llvm_parse_bitcode"
19