Commits

camlspotter committed 97ea673

lbase.ml not required

Comments (0)

Files changed (1)

lbase.ml

-open Llvm
-
-module Make(A : sig val context : llcontext end) = struct
-  open Ltype.Base
-  module Type : Ltype_intf.S
-    with type 'a t = 'a t
-    and type 'a ts = 'a ts
-    and type void = void
-    and type i1 = i1
-    and type i8 = i8
-    and type i16 = i16
-    and type i32 = i32
-    and type i64 = i64
-    and type 'a integer = 'a integer
-    and type double = double
-    and type dots = dots
-    and type 'a struct_ = 'a struct_
-    and type 'a pointer = 'a pointer
-    and type 'a vector = 'a vector
-    and type ('a, 'b) array_ = ('a, 'b) array_
-    and type void_pointer = void_pointer
-    and module Tagged = Ltype.Base.Tagged
-    and module WithString = Ltype.Base.WithString
-          = Ltype.Make(A)
-  module Value = Lvalue.Make(A)
-end