RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-10-19 02:52:53 +02:00
Code Issues Projects Releases Wiki Activity

[OCaml] Expose LLVMCloneModule.

Browse Source 
llvm-svn: 220903
This commit is contained in:
Peter Zotov 2014-10-30 08:30:12 +00:00
parent 63938c8558
commit 6107c0888e
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bindings/ocaml/llvm/llvm.ml
View File

@ -313,6 +313,7 @@ external mdkind_id : llcontext -> string -> llmdkind = "llvm_mdkind_id"
(*===-- Modules -----------------------------------------------------------===*) (*===-- Modules -----------------------------------------------------------===*)
external create_module : llcontext -> string -> llmodule = "llvm_create_module" external create_module : llcontext -> string -> llmodule = "llvm_create_module"
external dispose_module : llmodule -> unit = "llvm_dispose_module" external dispose_module : llmodule -> unit = "llvm_dispose_module"
external clone_module : llmodule -> llmodule = "LLVMCloneModule"
external target_triple: llmodule -> string external target_triple: llmodule -> string
= "llvm_target_triple" = "llvm_target_triple"
external set_target_triple: string -> llmodule -> unit external set_target_triple: string -> llmodule -> unit

3
bindings/ocaml/llvm/llvm.mli
View File

@ -431,6 +431,9 @@ val create_module : llcontext -> string -> llmodule
[llvm::Module::~Module]. *) [llvm::Module::~Module]. *)
val dispose_module : llmodule -> unit val dispose_module : llmodule -> unit
(** [clone_module m] returns an exact copy of module [m]. *)
val clone_module : llmodule -> llmodule
(** [target_triple m] is the target specifier for the module [m], something like (** [target_triple m] is the target specifier for the module [m], something like
[i686-apple-darwin8]. See the method [llvm::Module::getTargetTriple]. *) [i686-apple-darwin8]. See the method [llvm::Module::getTargetTriple]. *)
val target_triple: llmodule -> string val target_triple: llmodule -> string