diff options
Diffstat (limited to 'bindings/ocaml/target')
-rw-r--r-- | bindings/ocaml/target/llvm_target.ml | 2 | ||||
-rw-r--r-- | bindings/ocaml/target/llvm_target.mli | 7 | ||||
-rw-r--r-- | bindings/ocaml/target/target_ocaml.c | 7 |
3 files changed, 0 insertions, 16 deletions
diff --git a/bindings/ocaml/target/llvm_target.ml b/bindings/ocaml/target/llvm_target.ml index ea5341d5e8..49940eec48 100644 --- a/bindings/ocaml/target/llvm_target.ml +++ b/bindings/ocaml/target/llvm_target.ml @@ -20,8 +20,6 @@ module TargetData = struct external add : t -> [<Llvm.PassManager.any] Llvm.PassManager.t -> unit = "llvm_targetdata_add" external as_string : t -> string = "llvm_targetdata_as_string" - external invalidate_struct_layout : t -> Llvm.lltype -> unit - = "llvm_targetdata_invalidate_struct_layout" external dispose : t -> unit = "llvm_targetdata_dispose" end diff --git a/bindings/ocaml/target/llvm_target.mli b/bindings/ocaml/target/llvm_target.mli index a82e1b684f..c288b9ac2d 100644 --- a/bindings/ocaml/target/llvm_target.mli +++ b/bindings/ocaml/target/llvm_target.mli @@ -35,13 +35,6 @@ module TargetData : sig See the constructor llvm::TargetData::TargetData. *) external as_string : t -> string = "llvm_targetdata_as_string" - (** Struct layouts are speculatively cached. If a TargetDataRef is alive when - types are being refined and removed, this method must be called whenever a - struct type is removed to avoid a dangling pointer in this cache. - See the method llvm::TargetData::InvalidateStructLayoutInfo. *) - external invalidate_struct_layout : t -> Llvm.lltype -> unit - = "llvm_targetdata_invalidate_struct_layout" - (** Deallocates a TargetData. See the destructor llvm::TargetData::~TargetData. *) external dispose : t -> unit = "llvm_targetdata_dispose" diff --git a/bindings/ocaml/target/target_ocaml.c b/bindings/ocaml/target/target_ocaml.c index cc20e8187a..ca01e7786b 100644 --- a/bindings/ocaml/target/target_ocaml.c +++ b/bindings/ocaml/target/target_ocaml.c @@ -37,13 +37,6 @@ CAMLprim value llvm_targetdata_as_string(LLVMTargetDataRef TD) { return Copy; } -/* TargetData.t -> Llvm.lltype -> unit */ -CAMLprim value llvm_targetdata_invalidate_struct_layout(LLVMTargetDataRef TD, - LLVMTypeRef Ty) { - LLVMInvalidateStructLayout(TD, Ty); - return Val_unit; -} - /* TargetData.t -> unit */ CAMLprim value llvm_targetdata_dispose(LLVMTargetDataRef TD) { LLVMDisposeTargetData(TD); |