diff options
author | Benjamin Kramer <benny.kra@googlemail.com> | 2016-02-12 20:26:46 +0000 |
---|---|---|
committer | Benjamin Kramer <benny.kra@googlemail.com> | 2016-02-12 20:26:46 +0000 |
commit | 06016cc257ea9589d6d66fd96e4a00a8919df2fe (patch) | |
tree | 2abe702fa854110551fe69e9ac6e3ceb115c3eaa /bindings | |
parent | f365222ef20e584f77487fbc407576d8da367ea6 (diff) |
Remove LLVMGetTargetMachineData leftovers.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@260720 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings')
-rw-r--r-- | bindings/ocaml/target/llvm_target.ml | 2 | ||||
-rw-r--r-- | bindings/ocaml/target/llvm_target.mli | 3 | ||||
-rw-r--r-- | bindings/ocaml/target/target_ocaml.c | 19 |
3 files changed, 0 insertions, 24 deletions
diff --git a/bindings/ocaml/target/llvm_target.ml b/bindings/ocaml/target/llvm_target.ml index bd7388e29fa..d4910ac56f3 100644 --- a/bindings/ocaml/target/llvm_target.ml +++ b/bindings/ocaml/target/llvm_target.ml @@ -124,8 +124,6 @@ module TargetMachine = struct = "llvm_targetmachine_cpu" external features : t -> string = "llvm_targetmachine_features" - external data_layout : t -> DataLayout.t - = "llvm_targetmachine_data_layout" external add_analysis_passes : [< Llvm.PassManager.any ] Llvm.PassManager.t -> t -> unit = "llvm_targetmachine_add_analysis_passes" external set_verbose_asm : bool -> t -> unit diff --git a/bindings/ocaml/target/llvm_target.mli b/bindings/ocaml/target/llvm_target.mli index 676bc613c64..e826d5c4015 100644 --- a/bindings/ocaml/target/llvm_target.mli +++ b/bindings/ocaml/target/llvm_target.mli @@ -204,9 +204,6 @@ module TargetMachine : sig [llvm::TargetMachine::getFeatureString]. *) val features : t -> string - (** Returns the data layout of this target machine. *) - val data_layout : t -> DataLayout.t - (** Adds the target-specific analysis passes to the pass manager. See [llvm::TargetMachine::addAnalysisPasses]. *) val add_analysis_passes : [< Llvm.PassManager.any ] Llvm.PassManager.t -> t -> unit diff --git a/bindings/ocaml/target/target_ocaml.c b/bindings/ocaml/target/target_ocaml.c index 8f77cb46f13..acc45da990f 100644 --- a/bindings/ocaml/target/target_ocaml.c +++ b/bindings/ocaml/target/target_ocaml.c @@ -302,25 +302,6 @@ CAMLprim value llvm_targetmachine_features(value Machine) { TargetMachine_val(Machine))); } -/* TargetMachine.t -> DataLayout.t */ -CAMLprim value llvm_targetmachine_data_layout(value Machine) { - CAMLparam1(Machine); - CAMLlocal1(DataLayout); - char *TargetDataCStr; - - /* LLVMGetTargetMachineData returns a pointer owned by the TargetMachine, - so it is impossible to wrap it with llvm_alloc_target_data, which assumes - that OCaml owns the pointer. */ - LLVMTargetDataRef OrigDataLayout; - OrigDataLayout = LLVMGetTargetMachineData(TargetMachine_val(Machine)); - - TargetDataCStr = LLVMCopyStringRepOfTargetData(OrigDataLayout); - DataLayout = llvm_alloc_data_layout(LLVMCreateTargetData(TargetDataCStr)); - LLVMDisposeMessage(TargetDataCStr); - - CAMLreturn(DataLayout); -} - /* bool -> TargetMachine.t -> unit */ CAMLprim value llvm_targetmachine_set_verbose_asm(value Verb, value Machine) { LLVMSetTargetMachineAsmVerbosity(TargetMachine_val(Machine), Bool_val(Verb)); |