diff options
author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 17:32:24 +0000 |
---|---|---|
committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 17:32:24 +0000 |
commit | b02b87882788e57e180c6b903a37ced0db1ce828 (patch) | |
tree | 988e30329d11fccacee72ea81c8a90b78f2a277a /test/Bindings/Ocaml/scalar_opts.ml | |
parent | c34ebf65af0139eaf5cb0969fabcd32c0b6e1710 (diff) | |
download | external_llvm-b02b87882788e57e180c6b903a37ced0db1ce828.zip external_llvm-b02b87882788e57e180c6b903a37ced0db1ce828.tar.gz external_llvm-b02b87882788e57e180c6b903a37ced0db1ce828.tar.bz2 |
Convert the rest of the ocaml types and functions to use context.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79430 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml/scalar_opts.ml')
-rw-r--r-- | test/Bindings/Ocaml/scalar_opts.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/Bindings/Ocaml/scalar_opts.ml b/test/Bindings/Ocaml/scalar_opts.ml index 936a052..8f6802d 100644 --- a/test/Bindings/Ocaml/scalar_opts.ml +++ b/test/Bindings/Ocaml/scalar_opts.ml @@ -9,6 +9,8 @@ open Llvm open Llvm_scalar_opts open Llvm_target +let context = global_context () +let void_type = Llvm.void_type context (* Tiny unit test framework - really just to help find which line is busted *) let suite name f = @@ -19,7 +21,7 @@ let suite name f = (*===-- Fixture -----------------------------------------------------------===*) let filename = Sys.argv.(1) -let m = create_module (global_context ()) filename +let m = create_module context filename let mp = ModuleProvider.create m @@ -30,7 +32,7 @@ let test_transforms () = let fty = function_type void_type [| |] in let fn = define_function "fn" fty m in - ignore (build_ret_void (builder_at_end (global_context ()) (entry_block fn))); + ignore (build_ret_void (builder_at_end context (entry_block fn))); let td = TargetData.create (target_triple m) in |