diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2013-11-11 14:47:11 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-11 14:47:11 +0000 |
| commit | 26f3bd89660e46a76a3b0267b23b00d917a45404 (patch) | |
| tree | 12e5f7d7e2b1c5321eaeef1f65c76783875d4838 /bindings/ocaml/executionengine | |
| parent | 9683888db61498edc05f37cf8f3a8253e47ba016 (diff) | |
| download | llvm-26f3bd89660e46a76a3b0267b23b00d917a45404.tar.gz llvm-26f3bd89660e46a76a3b0267b23b00d917a45404.tar.bz2 llvm-26f3bd89660e46a76a3b0267b23b00d917a45404.tar.xz | |
[OCaml] Make Llvm_target.DataLayout.t automatically managed
This breaks the API by removing Llvm_target.DataLayout.dispose.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194380 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/executionengine')
| -rw-r--r-- | bindings/ocaml/executionengine/executionengine_ocaml.c | 7 | ||||
| -rw-r--r-- | bindings/ocaml/executionengine/llvm_executionengine.ml | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/bindings/ocaml/executionengine/executionengine_ocaml.c b/bindings/ocaml/executionengine/executionengine_ocaml.c index 32f6c5907c..3d2c8b09e7 100644 --- a/bindings/ocaml/executionengine/executionengine_ocaml.c +++ b/bindings/ocaml/executionengine/executionengine_ocaml.c @@ -324,3 +324,10 @@ CAMLprim value llvm_ee_free_machine_code(LLVMValueRef F, return Val_unit; } +extern value llvm_alloc_target_data(LLVMTargetDataRef TargetData); + +/* ExecutionEngine.t -> Llvm_target.TargetData.t */ +CAMLprim value llvm_ee_get_target_data(LLVMExecutionEngineRef EE) { + LLVMTargetDataRef TD = LLVMGetExecutionEngineTargetData(EE); + return llvm_alloc_target_data(TD); +} diff --git a/bindings/ocaml/executionengine/llvm_executionengine.ml b/bindings/ocaml/executionengine/llvm_executionengine.ml index b083b7d14e..01991540c0 100644 --- a/bindings/ocaml/executionengine/llvm_executionengine.ml +++ b/bindings/ocaml/executionengine/llvm_executionengine.ml @@ -84,11 +84,10 @@ module ExecutionEngine = struct = "llvm_ee_free_machine_code" external target_data: t -> Llvm_target.DataLayout.t - = "LLVMGetExecutionEngineTargetData" + = "llvm_ee_get_target_data" (* The following are not bound. Patches are welcome. - get_target_data: t -> lltargetdata add_global_mapping: llvalue -> llgenericvalue -> t -> unit clear_all_global_mappings: t -> unit update_global_mapping: llvalue -> llgenericvalue -> t -> unit |