Update OCaml bindings for the new half float type.
authorBob Wilson <bob.wilson@apple.com>
Wed, 28 Dec 2011 18:51:08 +0000 (18:51 +0000)
committerBob Wilson <bob.wilson@apple.com>
Wed, 28 Dec 2011 18:51:08 +0000 (18:51 +0000)
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
bindings/ocaml/llvm/llvm.mli

index 40b01386366764abe4f4ebc9ae960d079e145be6..b169b85bc99f90b7a133f89d86f46a7b3bca481f 100644 (file)
@@ -20,6 +20,7 @@ type llmemorybuffer
 module TypeKind = struct
   type t =
   | Void
+  | Half
   | Float
   | Double
   | X86fp80
@@ -1234,5 +1235,6 @@ let rec string_of_lltype ty =
   | TypeKind.X86fp80 -> "x86_fp80"
   | TypeKind.Double -> "double"
   | TypeKind.Float -> "float"
+  | TypeKind.Half -> "half"
   | TypeKind.Void -> "void"
   | TypeKind.Metadata -> "metadata"
index 33bbc74deb1b22727840264cee81ee78dba1c192..96448ccd960de62af8eb159db1337e7c7f315d23 100644 (file)
@@ -53,6 +53,7 @@ type llmemorybuffer
 module TypeKind : sig
   type t =
     Void
+  | Half
   | Float
   | Double
   | X86fp80