6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-07-08 18:30:04 +00:00
Code Issues Projects Releases Wiki Activity

[OCaml] Expose Llvm_bitwriter.write_bitcode_to_memory_buffer.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@220844 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-10-29 08:16:01 +00:00
parent e3227ca292
commit a226572e59
4 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bindings/ocaml/bitwriter/bitwriter_ocaml.c
View File

@ -43,3 +43,8 @@ CAMLprim value llvm_write_bitcode_to_fd(value U, LLVMModuleRef M, value FD) {
Result = LLVMWriteBitcodeToFD(M, Int_val(FD), 0, Unbuffered); Result = LLVMWriteBitcodeToFD(M, Int_val(FD), 0, Unbuffered);
return Val_bool(Result == 0); return Val_bool(Result == 0);
} }
/* Llvm.llmodule -> Llvm.llmemorybuffer */
CAMLprim LLVMMemoryBufferRef llvm_write_bitcode_to_memory_buffer(LLVMModuleRef M) {
return LLVMWriteBitcodeToMemoryBuffer(M);
}

17
bindings/ocaml/bitwriter/llvm_bitwriter.ml
View File

@ -1,4 +1,4 @@
(*===-- llvm_bitwriter.ml - LLVM OCaml Interface ----------------*- C++ -*-===* (*===-- llvm_bitwriter.ml - LLVM OCaml Interface --------------*- OCaml -*-===*
* *
* The LLVM Compiler Infrastructure * The LLVM Compiler Infrastructure
* *
@ -12,14 +12,17 @@
* *
*===----------------------------------------------------------------------===*) *===----------------------------------------------------------------------===*)
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_to_fd
external write_bitcode_file : Llvm.llmodule -> string -> bool : ?unbuffered:bool -> Llvm.llmodule -> Unix.file_descr -> bool
= "llvm_write_bitcode_file" = "llvm_write_bitcode_to_fd"
external write_bitcode_to_fd : ?unbuffered:bool -> Llvm.llmodule external write_bitcode_to_memory_buffer
-> Unix.file_descr -> bool : Llvm.llmodule -> Llvm.llmemorybuffer
= "llvm_write_bitcode_to_fd" = "llvm_write_bitcode_to_memory_buffer"
let output_bitcode ?unbuffered channel m = let output_bitcode ?unbuffered channel m =
write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel) write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel)

19
bindings/ocaml/bitwriter/llvm_bitwriter.mli
View File

@ -1,4 +1,4 @@
(*===-- llvm_bitwriter.mli - LLVM OCaml Interface ---------------*- C++ -*-===* (*===-- llvm_bitwriter.mli - LLVM OCaml Interface -------------*- OCaml -*-===*
* *
* The LLVM Compiler Infrastructure * The LLVM Compiler Infrastructure
* *
@ -14,15 +14,22 @@
(** [write_bitcode_file m path] writes the bitcode for module [m] to the file at (** [write_bitcode_file m path] writes the bitcode for module [m] to the file at
[path]. Returns [true] if successful, [false] otherwise. *) [path]. Returns [true] if successful, [false] otherwise. *)
external write_bitcode_file : Llvm.llmodule -> string -> bool external write_bitcode_file
= "llvm_write_bitcode_file" : Llvm.llmodule -> string -> bool
= "llvm_write_bitcode_file"
(** [write_bitcode_to_fd ~unbuffered fd m] writes the bitcode for module (** [write_bitcode_to_fd ~unbuffered fd m] writes the bitcode for module
[m] to the channel [c]. If [unbuffered] is [true], after every write the fd [m] to the channel [c]. If [unbuffered] is [true], after every write the fd
will be flushed. Returns [true] if successful, [false] otherwise. *) will be flushed. Returns [true] if successful, [false] otherwise. *)
external write_bitcode_to_fd : ?unbuffered:bool -> Llvm.llmodule external write_bitcode_to_fd
-> Unix.file_descr -> bool : ?unbuffered:bool -> Llvm.llmodule -> Unix.file_descr -> bool
= "llvm_write_bitcode_to_fd" = "llvm_write_bitcode_to_fd"
(** [write_bitcode_to_memory_buffer m] returns a memory buffer containing
the bitcode for module [m]. *)
external write_bitcode_to_memory_buffer
: Llvm.llmodule -> Llvm.llmemorybuffer
= "llvm_write_bitcode_to_memory_buffer"
(** [output_bitcode ~unbuffered c m] writes the bitcode for module [m] (** [output_bitcode ~unbuffered c m] writes the bitcode for module [m]
to the channel [c]. If [unbuffered] is [true], after every write the fd to the channel [c]. If [unbuffered] is [true], after every write the fd

3
test/Bindings/Ocaml/bitwriter.ml
View File

@ -45,4 +45,5 @@ let _ =
test (file_buf = temp_bitcode m); test (file_buf = temp_bitcode m);
test (file_buf = temp_bitcode ~unbuffered:false m); test (file_buf = temp_bitcode ~unbuffered:false m);
test (file_buf = temp_bitcode ~unbuffered:true m) test (file_buf = temp_bitcode ~unbuffered:true m);
test (file_buf = Llvm.MemoryBuffer.as_string (Llvm_bitwriter.write_bitcode_to_memory_buffer m))