diff options
Diffstat (limited to 'test/Bindings/OCaml/ext_exc.ml')
| -rw-r--r-- | test/Bindings/OCaml/ext_exc.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/Bindings/OCaml/ext_exc.ml b/test/Bindings/OCaml/ext_exc.ml index a24a28b1f528..5c9c8476cb93 100644 --- a/test/Bindings/OCaml/ext_exc.ml +++ b/test/Bindings/OCaml/ext_exc.ml @@ -8,9 +8,12 @@ let context = Llvm.global_context () -(* this used to crash, we must not use 'external' in .mli files, but 'val' if we +let diagnostic_handler _ = () + +(* This used to crash, we must not use 'external' in .mli files, but 'val' if we * want the let _ bindings executed, see http://caml.inria.fr/mantis/view.php?id=4166 *) let _ = + Llvm.set_diagnostic_handler context (Some diagnostic_handler); try ignore (Llvm_bitreader.get_module context (Llvm.MemoryBuffer.of_stdin ())) with |