diff --git a/llvm/bindings/ocaml/analysis/llvm_analysis.mli b/llvm/bindings/ocaml/analysis/llvm_analysis.mli --- a/llvm/bindings/ocaml/analysis/llvm_analysis.mli +++ b/llvm/bindings/ocaml/analysis/llvm_analysis.mli @@ -16,9 +16,8 @@ human-readable validation report. See [llvm::verifyModule]. *) external verify_module : Llvm.llmodule -> string option = "llvm_verify_module" -(** [verify_function f] returns [None] if the function [f] is valid, and - [Some reason] if it is invalid. [reason] is a string containing a - human-readable validation report. See [llvm::verifyFunction]. *) +(** [verify_function f] returns [true] if the function [f] is valid, and + [false] if it is invalid. See [llvm::verifyFunction]. *) external verify_function : Llvm.llvalue -> bool = "llvm_verify_function" (** [verify_module m] returns if the module [m] is valid, but prints a diff --git a/llvm/bindings/ocaml/llvm/llvm.mli b/llvm/bindings/ocaml/llvm/llvm.mli --- a/llvm/bindings/ocaml/llvm/llvm.mli +++ b/llvm/bindings/ocaml/llvm/llvm.mli @@ -960,8 +960,9 @@ See the method [llvm::ConstantInt::get]. *) val const_int : lltype -> int -> llvalue -(** [const_of_int64 ty i] returns the integer constant of type [ty] and value - [i]. See the method [llvm::ConstantInt::get]. *) +(** [const_of_int64 ty i s] returns the integer constant of type [ty] and value + [i]. [s] indicates whether the integer is signed or not. + See the method [llvm::ConstantInt::get]. *) val const_of_int64 : lltype -> Int64.t -> bool -> llvalue (** [int64_of_const c] returns the int64 value of the [c] constant integer.