diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-30 22:48:58 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-30 22:48:58 +0000 |
| commit | 78d34664e7935a3c0e8f0fc7a345b94314a1b3b8 (patch) | |
| tree | c3ca75bb3b0eb553f85d1b39f5b0fd386223ef17 /test/Bindings | |
| parent | a29b8aac900c7209d6ff178493e96ffa60137170 (diff) | |
| download | external_llvm-78d34664e7935a3c0e8f0fc7a345b94314a1b3b8.zip external_llvm-78d34664e7935a3c0e8f0fc7a345b94314a1b3b8.tar.gz external_llvm-78d34664e7935a3c0e8f0fc7a345b94314a1b3b8.tar.bz2 | |
Another backwards compatibility fix.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45463 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings')
| -rw-r--r-- | test/Bindings/Ocaml/executionengine.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/Bindings/Ocaml/executionengine.ml b/test/Bindings/Ocaml/executionengine.ml index d2ba147..a091098 100644 --- a/test/Bindings/Ocaml/executionengine.ml +++ b/test/Bindings/Ocaml/executionengine.ml @@ -40,14 +40,14 @@ let test_genericvalue () = let intgv = GenericValue.of_int i32_type 3 in assert (3 = GenericValue.as_int intgv); - let i32gv = GenericValue.of_int32 i32_type 4l in - assert (4l = GenericValue.as_int32 i32gv); + let i32gv = GenericValue.of_int32 i32_type (Int32.of_int 4) in + assert ((Int32.of_int 4) = GenericValue.as_int32 i32gv); - let nigv = GenericValue.of_nativeint i32_type 5n in - assert (5n = GenericValue.as_nativeint nigv); + let nigv = GenericValue.of_nativeint i32_type (Nativeint.of_int 5) in + assert ((Nativeint.of_int 5) = GenericValue.as_nativeint nigv); - let i64gv = GenericValue.of_int64 i64_type 6L in - assert (6L = GenericValue.as_int64 i64gv) + let i64gv = GenericValue.of_int64 i64_type (Int64.of_int 6) in + assert ((Int64.of_int 6) = GenericValue.as_int64 i64gv) let test_executionengine () = (* create *) |