[llvm-commits] [llvm] r136582 - in /llvm/trunk: bindings/ocaml/target/llvm_target.ml bindings/ocaml/target/llvm_target.mli bindings/ocaml/target/target_ocaml.c test/Bindings/Ocaml/target.ml

[Benjamin Kramer]

Author: d0k
Date: Sat Jul 30 20:12:39 2011
New Revision: 136582

URL: http://llvm.org/viewvc/llvm-project?rev=136582&view=rev
Log:
Remove InvalidateStructLayoutInfo from the ocaml bindings.

Modified:
    llvm/trunk/bindings/ocaml/target/llvm_target.ml
    llvm/trunk/bindings/ocaml/target/llvm_target.mli
    llvm/trunk/bindings/ocaml/target/target_ocaml.c
    llvm/trunk/test/Bindings/Ocaml/target.ml

Modified: llvm/trunk/bindings/ocaml/target/llvm_target.ml
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/target/llvm_target.ml?rev=136582&r1=136581&r2=136582&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/target/llvm_target.ml (original)
+++ llvm/trunk/bindings/ocaml/target/llvm_target.ml Sat Jul 30 20:12:39 2011
@@ -20,8 +20,6 @@
   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
 

Modified: llvm/trunk/bindings/ocaml/target/llvm_target.mli
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/target/llvm_target.mli?rev=136582&r1=136581&r2=136582&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/target/llvm_target.mli (original)
+++ llvm/trunk/bindings/ocaml/target/llvm_target.mli Sat Jul 30 20:12:39 2011
@@ -35,13 +35,6 @@
       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"

Modified: llvm/trunk/bindings/ocaml/target/target_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/target/target_ocaml.c?rev=136582&r1=136581&r2=136582&view=diff
==============================================================================
--- llvm/trunk/bindings/ocaml/target/target_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/target/target_ocaml.c Sat Jul 30 20:12:39 2011
@@ -37,13 +37,6 @@
   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);

Modified: llvm/trunk/test/Bindings/Ocaml/target.ml
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/Bindings/Ocaml/target.ml?rev=136582&r1=136581&r2=136582&view=diff
==============================================================================
--- llvm/trunk/test/Bindings/Ocaml/target.ml (original)
+++ llvm/trunk/test/Bindings/Ocaml/target.ml Sat Jul 30 20:12:39 2011
@@ -37,7 +37,6 @@
   let sty = struct_type context [| i32_type; i64_type |] in
   
   ignore (TargetData.as_string td);
-  ignore (TargetData.invalidate_struct_layout td sty);
   ignore (byte_order td);
   ignore (pointer_size td);
   ignore (intptr_type td);