[llvm] [OCaml] Add OCaml bindings for intrinsics API (PR #173817)

[via llvm-commits]

github-actions[bot] wrote:

<!--LLVM CODE FORMAT COMMENT: {clang-format}-->


:warning: C/C++ code formatter, clang-format found issues in your code. :warning:

<details>
<summary>
You can test this locally with the following command:
</summary>

``````````bash
git-clang-format --diff origin/main HEAD --extensions c -- llvm/bindings/ocaml/llvm/llvm_ocaml.c --diff_from_common_commit
``````````

:warning:
The reproduction instructions above might return results for more than one PR
in a stack if you are using a stacked PR workflow. You can limit the results by
changing `origin/main` to the base branch/commit you want to compare against.
:warning:

</details>

<details>
<summary>
View the diff from clang-format here.
</summary>

``````````diff
diff --git a/llvm/bindings/ocaml/llvm/llvm_ocaml.c b/llvm/bindings/ocaml/llvm/llvm_ocaml.c
index a3a6db4ed..4640abb93 100644
--- a/llvm/bindings/ocaml/llvm/llvm_ocaml.c
+++ b/llvm/bindings/ocaml/llvm/llvm_ocaml.c
@@ -1597,7 +1597,7 @@ value llvm_delete_function(value Fn) {
 
 /* string -> int */
 value llvm_lookup_intrinsic_id(value Name) {
-  const char* NameCStr = String_val(Name);
+  const char *NameCStr = String_val(Name);
   size_t Len = caml_string_length(Name);
   return Val_int(LLVMLookupIntrinsicID(NameCStr, Len));
 }
@@ -1612,7 +1612,7 @@ value llvm_intrinsic_declaration(value M, value ID, value ParamTys) {
   mlsize_t Length = Wosize_val(ParamTys);
   LLVMTypeRef *Temp = from_val_array(ParamTys);
   LLVMValueRef Intrinsic =
-    LLVMGetIntrinsicDeclaration(Module_val(M), Int_val(ID), Temp, Length);
+      LLVMGetIntrinsicDeclaration(Module_val(M), Int_val(ID), Temp, Length);
   free(Temp);
   return to_val(Intrinsic);
 }
@@ -1622,7 +1622,7 @@ value llvm_intrinsic_type(value C, value ID, value ParamTys) {
   mlsize_t Length = Wosize_val(ParamTys);
   LLVMTypeRef *Temp = from_val_array(ParamTys);
   LLVMTypeRef Type =
-    LLVMIntrinsicGetType(Context_val(C), Int_val(ID), Temp, Length);
+      LLVMIntrinsicGetType(Context_val(C), Int_val(ID), Temp, Length);
   free(Temp);
   return to_val(Type);
 }
@@ -1639,12 +1639,8 @@ value llvm_intrinsic_overloaded_name(value M, value ID, value ParamTys) {
   mlsize_t ParamCount = Wosize_val(ParamTys);
   LLVMTypeRef *Temp = from_val_array(ParamTys);
   size_t NameLength = -1;
-  char *OverloadedNameCStrOwned =
-    LLVMIntrinsicCopyOverloadedName2(Module_val(M),
-                                     Int_val(ID),
-                                     Temp,
-                                     ParamCount,
-                                     &NameLength);
+  char *OverloadedNameCStrOwned = LLVMIntrinsicCopyOverloadedName2(
+      Module_val(M), Int_val(ID), Temp, ParamCount, &NameLength);
   value OverloadedName = caml_copy_string(OverloadedNameCStrOwned);
   free(OverloadedNameCStrOwned);
   free(Temp);

``````````

</details>


https://github.com/llvm/llvm-project/pull/173817