diff options
author | Peter Zotov <whitequark@whitequark.org> | 2013-11-15 02:51:44 +0000 |
---|---|---|
committer | Peter Zotov <whitequark@whitequark.org> | 2013-11-15 02:51:44 +0000 |
commit | 04deb4957ab253c02bce9d982d69396954744a41 (patch) | |
tree | ac823aa6545828dd0ea3426c81bbdaa81c917b63 /bindings/ocaml/executionengine/executionengine_ocaml.c | |
parent | 68f4dae1c078df09c9b19a0bda9bc8b8d0aae9be (diff) | |
download | external_llvm-04deb4957ab253c02bce9d982d69396954744a41.zip external_llvm-04deb4957ab253c02bce9d982d69396954744a41.tar.gz external_llvm-04deb4957ab253c02bce9d982d69396954744a41.tar.bz2 |
[OCaml] Refactor Llvm_target interface
This commit brings the module structure, argument order and
primitive names in Llvm_target in order with the rest of the bindings,
in preparation for adding TargetMachine API.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194773 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/executionengine/executionengine_ocaml.c')
-rw-r--r-- | bindings/ocaml/executionengine/executionengine_ocaml.c | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/bindings/ocaml/executionengine/executionengine_ocaml.c b/bindings/ocaml/executionengine/executionengine_ocaml.c index 3d2c8b0..4b44a91 100644 --- a/bindings/ocaml/executionengine/executionengine_ocaml.c +++ b/bindings/ocaml/executionengine/executionengine_ocaml.c @@ -324,10 +324,18 @@ CAMLprim value llvm_ee_free_machine_code(LLVMValueRef F, return Val_unit; } -extern value llvm_alloc_target_data(LLVMTargetDataRef TargetData); +extern value llvm_alloc_data_layout(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); +/* ExecutionEngine.t -> Llvm_target.DataLayout.t */ +CAMLprim value llvm_ee_get_data_layout(LLVMExecutionEngineRef EE) { + value DataLayout; + LLVMTargetDataRef OrigDataLayout; + OrigDataLayout = LLVMGetExecutionEngineTargetData(EE); + + char* TargetDataCStr; + TargetDataCStr = LLVMCopyStringRepOfTargetData(OrigDataLayout); + DataLayout = llvm_alloc_data_layout(LLVMCreateTargetData(TargetDataCStr)); + LLVMDisposeMessage(TargetDataCStr); + + return DataLayout; } |