diff options
author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:00 +0000 |
---|---|---|
committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-03-02 23:59:00 +0000 |
commit | 16609f3c5c26ba34603ae0d7ebab86fb11a72722 (patch) | |
tree | 7072d503c07f4c3370ed067787f84d7cc93c0ff7 /test/Bindings/Ocaml/bitreader.ml | |
parent | df7df075b723e926e51555bf5aff6e231279a479 (diff) | |
download | external_llvm-16609f3c5c26ba34603ae0d7ebab86fb11a72722.zip external_llvm-16609f3c5c26ba34603ae0d7ebab86fb11a72722.tar.gz external_llvm-16609f3c5c26ba34603ae0d7ebab86fb11a72722.tar.bz2 |
Remove module providers from ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97609 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/Bindings/Ocaml/bitreader.ml')
-rw-r--r-- | test/Bindings/Ocaml/bitreader.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/test/Bindings/Ocaml/bitreader.ml b/test/Bindings/Ocaml/bitreader.ml index 5c23041..112ca61 100644 --- a/test/Bindings/Ocaml/bitreader.ml +++ b/test/Bindings/Ocaml/bitreader.ml @@ -41,16 +41,16 @@ let _ = true end; - (* get_module_provider *) + (* get_module *) begin let mb = Llvm.MemoryBuffer.of_file fn in - let mp = begin try - Llvm_bitreader.get_module_provider context mb + let m = begin try + Llvm_bitreader.get_module context mb with x -> Llvm.MemoryBuffer.dispose mb; raise x end in - Llvm.ModuleProvider.dispose mp + Llvm.dispose_module m end; (* corrupt the bitcode *) @@ -60,17 +60,17 @@ let _ = close_out oc end; - (* test get_module_provider exceptions *) + (* test get_module exceptions *) test begin try let mb = Llvm.MemoryBuffer.of_file fn in - let mp = begin try - Llvm_bitreader.get_module_provider context mb + let m = begin try + Llvm_bitreader.get_module context mb with x -> Llvm.MemoryBuffer.dispose mb; raise x end in - Llvm.ModuleProvider.dispose mp; + Llvm.dispose_module m; false with Llvm_bitreader.Error _ -> true |