Home | History | Annotate | Download | only in bitwriter 
      1 (*===-- llvm_bitwriter.ml - LLVM Ocaml Interface ----------------*- C++ -*-===*
      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  * This interface provides an ocaml API for the LLVM intermediate
     11  * representation, the classes in the VMCore library.
     12  *
     13  *===----------------------------------------------------------------------===*)
     14 
     15 
     16 (* Writes the bitcode for module the given path. Returns true if successful. *)
     17 external write_bitcode_file : Llvm.llmodule -> string -> bool
     18                             = "llvm_write_bitcode_file"
     19 
     20 external write_bitcode_to_fd : ?unbuffered:bool -> Llvm.llmodule
     21                                -> Unix.file_descr -> bool
     22                              = "llvm_write_bitcode_to_fd"
     23 
     24 let output_bitcode ?unbuffered channel m =
     25   write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel)
     26