diff options
| author | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-19 22:30:40 +0000 |
|---|---|---|
| committer | Gordon Henriksen <gordonhenriksen@mac.com> | 2007-12-19 22:30:40 +0000 |
| commit | 34eb6d877eb8e563bc3b546dbcd9f9c1644e7a98 (patch) | |
| tree | a0f5bd941ea91cf6f36a4149e33ac79163ad5d84 /llvm/bindings/ocaml/bitreader/llvm_bitreader.ml | |
| parent | 9a53275918ef130dedc7b09234f42c5db6de8068 (diff) | |
| download | bcm5719-llvm-34eb6d877eb8e563bc3b546dbcd9f9c1644e7a98.tar.gz bcm5719-llvm-34eb6d877eb8e563bc3b546dbcd9f9c1644e7a98.zip | |
Adding bindings for memory buffers and module providers. Switching
to exceptions rather than variants for error handling in Ocaml.
llvm-svn: 45226
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/llvm_bitreader.ml')
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/llvm_bitreader.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml b/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml index 39d0434df7b..266ff153f31 100644 --- a/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml +++ b/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml @@ -8,10 +8,12 @@ *===----------------------------------------------------------------------===*) -type bitreader_result = -| Bitreader_success of Llvm.llmodule -| Bitreader_failure of string +exception Error of string +external register_exns : exn -> unit = "llvm_register_bitreader_exns" +let _ = register_exns (Error "") -external read_bitcode_file : string -> bitreader_result - = "llvm_read_bitcode_file" +external get_module_provider : Llvm.llmemorybuffer -> Llvm.llmoduleprovider + = "llvm_get_module_provider" +external parse_bitcode : Llvm.llmemorybuffer -> Llvm.llmodule + = "llvm_parse_bitcode" |
