diff options
Diffstat (limited to 'llvm/bindings/ocaml/irreader/llvm_irreader.ml')
| -rw-r--r-- | llvm/bindings/ocaml/irreader/llvm_irreader.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/llvm/bindings/ocaml/irreader/llvm_irreader.ml b/llvm/bindings/ocaml/irreader/llvm_irreader.ml index 455b1fae032..f757d629939 100644 --- a/llvm/bindings/ocaml/irreader/llvm_irreader.ml +++ b/llvm/bindings/ocaml/irreader/llvm_irreader.ml @@ -10,8 +10,7 @@ exception Error of string -external register_exns : exn -> unit = "llvm_register_irreader_exns" -let _ = register_exns (Error "") +let _ = Callback.register_exception "Llvm_irreader.Error" (Error "") external parse_ir : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule = "llvm_parse_ir" |
