Mercurial > hg > Members > tobaru > cbc > CbC_llvm

comparison bindings/ocaml/bitwriter/llvm_bitwriter.ml @ 0:95c75e76d11b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
LLVM 3.4
author Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp>
date Thu, 12 Dec 2013 13:56:28 +0900
parents
children 60c9769439b8
comparison
equal deleted inserted replaced
-1:000000000000 0:95c75e76d11b
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)