Home | History | Annotate | Download | only in bitreader
      1 (*===-- llvm_bitreader.ml - LLVM OCaml Interface --------------*- OCaml -*-===*
      2  *
      3  *                     The LLVM Compiler Infrastructure
      4  *
      5  * This file is distributed under the University of Illinois Open Source
      6  * License. See LICENSE.TXT for details.
      7  *
      8  *===----------------------------------------------------------------------===*)
      9 
     10 exception Error of string
     11 
     12 let () = Callback.register_exception "Llvm_bitreader.Error" (Error "")
     13 
     14 external get_module
     15   : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule
     16   = "llvm_get_module"
     17 external parse_bitcode
     18   : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule
     19   = "llvm_parse_bitcode"
     20