summaryrefslogtreecommitdiff
path: root/bindings
diff options
context:
space:
mode:
authorBenjamin Kramer <benny.kra@googlemail.com>2016-02-12 20:26:46 +0000
committerBenjamin Kramer <benny.kra@googlemail.com>2016-02-12 20:26:46 +0000
commit06016cc257ea9589d6d66fd96e4a00a8919df2fe (patch)
tree2abe702fa854110551fe69e9ac6e3ceb115c3eaa /bindings
parentf365222ef20e584f77487fbc407576d8da367ea6 (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.ml2
-rw-r--r--bindings/ocaml/target/llvm_target.mli3
-rw-r--r--bindings/ocaml/target/target_ocaml.c19
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));