diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 06:40:29 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 06:40:29 +0000 |
| commit | fda72defa61ef24892e9dc86b788f5df2fedd3f0 (patch) | |
| tree | 110bf139985ba9cca0e87e52950e31a2bdd08e60 /test/Bindings/Ocaml/target.ml | |
| parent | 8ad05217cbe799061bdacee46b6a56de96980b52 (diff) | |
| download | external_llvm-fda72defa61ef24892e9dc86b788f5df2fedd3f0.zip external_llvm-fda72defa61ef24892e9dc86b788f5df2fedd3f0.tar.gz external_llvm-fda72defa61ef24892e9dc86b788f5df2fedd3f0.tar.bz2 | |
Allow passing around LLVMContext in ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79410 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml/target.ml')
| -rw-r--r-- | test/Bindings/Ocaml/target.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/Bindings/Ocaml/target.ml b/test/Bindings/Ocaml/target.ml index e6d08ed..385bc81 100644 --- a/test/Bindings/Ocaml/target.ml +++ b/test/Bindings/Ocaml/target.ml @@ -8,7 +8,6 @@ open Llvm open Llvm_target - (* Tiny unit test framework - really just to help find which line is busted *) let suite name f = prerr_endline (name ^ ":"); @@ -18,14 +17,14 @@ let suite name f = (*===-- Fixture -----------------------------------------------------------===*) let filename = Sys.argv.(1) -let m = create_module filename +let m = create_module (global_context ()) filename (*===-- Target Data -------------------------------------------------------===*) let test_target_data () = let td = TargetData.create (target_triple m) in - let sty = struct_type [| i32_type; i64_type |] in + let sty = struct_type (global_context ()) [| i32_type; i64_type |] in ignore (TargetData.as_string td); ignore (TargetData.invalidate_struct_layout td sty); |