RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-11-26 04:32:44 +01:00
Code Issues Projects Releases Wiki Activity

Remove InvalidateStructLayoutInfo from the ocaml bindings.

Browse Source 
llvm-svn: 136582
This commit is contained in:
Benjamin Kramer 2011-07-31 01:12:39 +00:00
parent 0caedc8db8
commit 801c887f01
4 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/ocaml/target/llvm_target.ml
View File

@ -20,8 +20,6 @@ module TargetData = struct
external add : t -> [<Llvm.PassManager.any] Llvm.PassManager.t -> unit external add : t -> [<Llvm.PassManager.any] Llvm.PassManager.t -> unit
= "llvm_targetdata_add" = "llvm_targetdata_add"
external as_string : t -> string = "llvm_targetdata_as_string" 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" external dispose : t -> unit = "llvm_targetdata_dispose"
end end

7
bindings/ocaml/target/llvm_target.mli
View File

@ -35,13 +35,6 @@ module TargetData : sig
See the constructor llvm::TargetData::TargetData. *) See the constructor llvm::TargetData::TargetData. *)
external as_string : t -> string = "llvm_targetdata_as_string" 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. (** Deallocates a TargetData.
See the destructor llvm::TargetData::~TargetData. *) See the destructor llvm::TargetData::~TargetData. *)
external dispose : t -> unit = "llvm_targetdata_dispose" external dispose : t -> unit = "llvm_targetdata_dispose"

7
bindings/ocaml/target/target_ocaml.c
View File

@ -37,13 +37,6 @@ CAMLprim value llvm_targetdata_as_string(LLVMTargetDataRef TD) {
return Copy; 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 */ /* TargetData.t -> unit */
CAMLprim value llvm_targetdata_dispose(LLVMTargetDataRef TD) { CAMLprim value llvm_targetdata_dispose(LLVMTargetDataRef TD) {
LLVMDisposeTargetData(TD); LLVMDisposeTargetData(TD);

1
test/Bindings/Ocaml/target.ml
View File

@ -37,7 +37,6 @@ let test_target_data () =
let sty = struct_type context [| i32_type; i64_type |] in let sty = struct_type context [| i32_type; i64_type |] in
ignore (TargetData.as_string td); ignore (TargetData.as_string td);
ignore (TargetData.invalidate_struct_layout td sty);
ignore (byte_order td); ignore (byte_order td);
ignore (pointer_size td); ignore (pointer_size td);
ignore (intptr_type td); ignore (intptr_type td);