Use a module to group calling convention values, too.

[oota-llvm.git] / bindings / ocaml / llvm / llvm.ml

diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml
index c2c4e46ce7bbf28f82f52c1fb15e84fb1c55aeed..ef63e137b3652adac590cbfff24bc4ac8ad1233d 100644 (file)
--- a/bindings/ocaml/llvm/llvm.ml
+++ b/bindings/ocaml/llvm/llvm.ml
@@ -55,11 +55,13 @@ module Visibility = struct
   | Protected
 end
 
-let ccc = 0
-let fastcc = 8
-let coldcc = 9
-let x86_stdcallcc = 64
-let x86_fastcallcc = 65
+module CallConv = struct
+  let c = 0
+  let fast = 8
+  let cold = 9
+  let x86_stdcall = 64
+  let x86_fastcall = 65
+end
 
 module Icmp = struct
   type t =