-(*===-- llvm_bitwriter.ml - LLVM Ocaml Interface ----------------*- C++ -*-===*
+(*===-- llvm_bitwriter.ml - LLVM OCaml Interface --------------*- OCaml -*-===*
*
* The LLVM Compiler Infrastructure
*
*
*===----------------------------------------------------------------------===
*
- * This interface provides an ocaml API for the LLVM intermediate
+ * This interface provides an OCaml API for the LLVM intermediate
* representation, the classes in the VMCore library.
*
*===----------------------------------------------------------------------===*)
+external write_bitcode_file
+ : Llvm.llmodule -> string -> bool
+ = "llvm_write_bitcode_file"
-(* Writes the bitcode for module the given path. Returns true if successful. *)
-external write_bitcode_file : Llvm.llmodule -> string -> bool
- = "llvm_write_bitcode_file"
+external write_bitcode_to_fd
+ : ?unbuffered:bool -> Llvm.llmodule -> Unix.file_descr -> bool
+ = "llvm_write_bitcode_to_fd"
-external write_bitcode_to_fd : ?unbuffered:bool -> Llvm.llmodule
- -> Unix.file_descr -> bool
- = "llvm_write_bitcode_to_fd"
+external write_bitcode_to_memory_buffer
+ : Llvm.llmodule -> Llvm.llmemorybuffer
+ = "llvm_write_bitcode_to_memory_buffer"
let output_bitcode ?unbuffered channel m =
write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel)