6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-13 20:32:21 +00:00
Code Issues Projects Releases Wiki Activity

[OCaml] Expose LLVMCloneModule.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@220903 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Peter Zotov 2014-10-30 08:30:12 +00:00
parent 41796b40a9
commit b0d3f64971
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