llvm.org GIT mirror llvm / 78d3466
Another backwards compatibility fix. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45463 91177308-0d34-0410-b5e6-96231b3b80d8 Gordon Henriksen 12 years ago
1 changed file(s) with 6 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all
3939 let intgv = GenericValue.of_int i32_type 3 in
4040 assert (3 = GenericValue.as_int intgv);
4141
42 let i32gv = GenericValue.of_int32 i32_type 4l in
43 assert (4l = GenericValue.as_int32 i32gv);
42 let i32gv = GenericValue.of_int32 i32_type (Int32.of_int 4) in
43 assert ((Int32.of_int 4) = GenericValue.as_int32 i32gv);
4444
45 let nigv = GenericValue.of_nativeint i32_type 5n in
46 assert (5n = GenericValue.as_nativeint nigv);
45 let nigv = GenericValue.of_nativeint i32_type (Nativeint.of_int 5) in
46 assert ((Nativeint.of_int 5) = GenericValue.as_nativeint nigv);
4747
48 let i64gv = GenericValue.of_int64 i64_type 6L in
49 assert (6L = GenericValue.as_int64 i64gv)
48 let i64gv = GenericValue.of_int64 i64_type (Int64.of_int 6) in
49 assert ((Int64.of_int 6) = GenericValue.as_int64 i64gv)
5050
5151 let test_executionengine () =
5252 (* create *)