diff options
| author | Peter Zotov <whitequark@whitequark.org> | 2014-10-29 08:15:54 +0000 |
|---|---|---|
| committer | Peter Zotov <whitequark@whitequark.org> | 2014-10-29 08:15:54 +0000 |
| commit | 662538ac404c94ddfb92bd9def67d0e5034b45ec (patch) | |
| tree | d9c72364adb81b10779fb8f900720d9518027255 /llvm/bindings/ocaml/bitreader/llvm_bitreader.ml | |
| parent | e447b61c5036a7d0e3ff680ed46a9dfab33c431a (diff) | |
| download | bcm5719-llvm-662538ac404c94ddfb92bd9def67d0e5034b45ec.tar.gz bcm5719-llvm-662538ac404c94ddfb92bd9def67d0e5034b45ec.zip | |
[OCaml] Drop support for 3.12.1 and earlier.
In practice this means:
* Always using -g flag.
* Embedding -cclib -lstdc++ into the corresponding cma/cmxa file.
This also moves -lstdc++ in a single place.
* Using caml_named_value instead of a homegrown mechanism.
llvm-svn: 220843
Diffstat (limited to 'llvm/bindings/ocaml/bitreader/llvm_bitreader.ml')
| -rw-r--r-- | llvm/bindings/ocaml/bitreader/llvm_bitreader.ml | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml b/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml index 865208c1ec0..b26efdd2c18 100644 --- a/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml +++ b/llvm/bindings/ocaml/bitreader/llvm_bitreader.ml @@ -1,4 +1,4 @@ -(*===-- llvm_bitreader.ml - LLVM OCaml Interface ----------------*- C++ -*-===* +(*===-- llvm_bitreader.ml - LLVM OCaml Interface --------------*- OCaml -*-===* * * The LLVM Compiler Infrastructure * @@ -7,14 +7,13 @@ * *===----------------------------------------------------------------------===*) - exception Error of string -external register_exns : exn -> unit = "llvm_register_bitreader_exns" -let _ = register_exns (Error "") - -external get_module : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule - = "llvm_get_module" +let () = Callback.register_exception "Llvm_bitreader.Error" (Error "") -external parse_bitcode : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule - = "llvm_parse_bitcode" +external get_module + : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule + = "llvm_get_module" +external parse_bitcode + : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule + = "llvm_parse_bitcode" |
