diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-03-14 23:58:56 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2008-03-14 23:58:56 +0000 |
| commit | af59b105bb3f9a31f1812e470eb9db28a8a1b491 (patch) | |
| tree | b7f6b165cf0f13c635be441b1a97f65b8f1e1fd7 /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | 3c5da81df86ec463c5604cb36d93e699a25c6b4d (diff) | |
Expose Module::dump via C and Ocaml.
Patch by Erick Tryzelaar.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@48379 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index f4e958d966..ebe09dcbef 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -98,6 +98,12 @@ CAMLprim value llvm_delete_type_name(value Name, LLVMModuleRef M) { return Val_unit; } +/* llmodule -> unit */ +CAMLprim value llvm_dump_module(LLVMModuleRef M) { + LLVMDumpModule(M); + return Val_unit; +} + /*===-- Types -------------------------------------------------------------===*/ |