commit eaf0608891cff27fe4cf08d180a6baf49e00f8ae
author Bob Wilson <bob.wilson@apple.com> Wed Dec 28 18:51:08 2011 +0000
committer Bob Wilson <bob.wilson@apple.com> Wed Dec 28 18:51:08 2011 +0000
tree 4b80d872534f514296a4ac8b13082af2dec848ff
parent 97fb69b2efe45948cc40063a3135de89c50cb25c

Update OCaml bindings for the new half float type.
Patch by Jonathan Ragan-Kelley!

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@147314 91177308-0d34-0410-b5e6-96231b3b80d8

bindings/ocaml/llvm/llvm.ml

diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml
index 40b0138..b169b85 100644
--- a/bindings/ocaml/llvm/llvm.ml
+++ b/bindings/ocaml/llvm/llvm.ml
@@ -20,6 +20,7 @@
 module TypeKind = struct
   type t =
   | Void
+  | Half
   | Float
   | Double
   | X86fp80
@@ -1234,5 +1235,6 @@
   | TypeKind.X86fp80 -> "x86_fp80"
   | TypeKind.Double -> "double"
   | TypeKind.Float -> "float"
+  | TypeKind.Half -> "half"
   | TypeKind.Void -> "void"
   | TypeKind.Metadata -> "metadata"

bindings/ocaml/llvm/llvm.mli

diff --git a/bindings/ocaml/llvm/llvm.mli b/bindings/ocaml/llvm/llvm.mli
index 33bbc74..96448cc 100644
--- a/bindings/ocaml/llvm/llvm.mli
+++ b/bindings/ocaml/llvm/llvm.mli
@@ -53,6 +53,7 @@
 module TypeKind : sig
   type t =
     Void
+  | Half
   | Float
   | Double
   | X86fp80