-(* 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"