diff --git a/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.ml b/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.ml index f143eaf26eb02..c39a592c47d35 100644 --- a/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.ml +++ b/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.ml @@ -25,7 +25,4 @@ external populate_function_pass_manager = "llvm_pmbuilder_populate_function_pass_manager" external populate_module_pass_manager : [ `Module ] Llvm.PassManager.t -> t -> unit - = "llvm_pmbuilder_populate_module_pass_manager" -external populate_lto_pass_manager - : [ `Module ] Llvm.PassManager.t -> internalize:bool -> run_inliner:bool -> t -> unit - = "llvm_pmbuilder_populate_lto_pass_manager" \ No newline at end of file + = "llvm_pmbuilder_populate_module_pass_manager" \ No newline at end of file diff --git a/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.mli b/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.mli index 8bb1005e6d461..d2861ea343b6d 100644 --- a/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.mli +++ b/llvm/bindings/ocaml/transforms/passmgr_builder/llvm_passmgr_builder.mli @@ -46,8 +46,3 @@ external populate_function_pass_manager external populate_module_pass_manager : [ `Module ] Llvm.PassManager.t -> t -> unit = "llvm_pmbuilder_populate_module_pass_manager" - -(** See the [llvm::PassManagerBuilder::populateLTOPassManager] function. *) -external populate_lto_pass_manager - : [ `Module ] Llvm.PassManager.t -> internalize:bool -> run_inliner:bool -> t -> unit - = "llvm_pmbuilder_populate_lto_pass_manager" diff --git a/llvm/bindings/ocaml/transforms/passmgr_builder/passmgr_builder_ocaml.c b/llvm/bindings/ocaml/transforms/passmgr_builder/passmgr_builder_ocaml.c index 678967a5ede69..de0a76219d377 100644 --- a/llvm/bindings/ocaml/transforms/passmgr_builder/passmgr_builder_ocaml.c +++ b/llvm/bindings/ocaml/transforms/passmgr_builder/passmgr_builder_ocaml.c @@ -90,13 +90,3 @@ value llvm_pmbuilder_populate_module_pass_manager(LLVMPassManagerRef PM, LLVMPassManagerBuilderPopulateModulePassManager(PMBuilder_val(PMB), PM); return Val_unit; } - -/* [ `Module ] Llvm.PassManager.t -> - internalize:bool -> run_inliner:bool -> t -> unit */ -value llvm_pmbuilder_populate_lto_pass_manager(LLVMPassManagerRef PM, - value Internalize, - value RunInliner, value PMB) { - LLVMPassManagerBuilderPopulateLTOPassManager( - PMBuilder_val(PMB), PM, Bool_val(Internalize), Bool_val(RunInliner)); - return Val_unit; -}