diff options
Diffstat (limited to 'llvm/bindings/ocaml/linker/llvm_linker.ml')
| -rw-r--r-- | llvm/bindings/ocaml/linker/llvm_linker.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/llvm/bindings/ocaml/linker/llvm_linker.ml b/llvm/bindings/ocaml/linker/llvm_linker.ml index 2b73e2e9c4e..5854d70bb52 100644 --- a/llvm/bindings/ocaml/linker/llvm_linker.ml +++ b/llvm/bindings/ocaml/linker/llvm_linker.ml @@ -9,8 +9,7 @@ exception Error of string -external register_exns : exn -> unit = "llvm_register_linker_exns" -let _ = register_exns (Error "") +let () = Callback.register_exception "Llvm_linker.Error" (Error "") module Mode = struct type t = @@ -19,4 +18,4 @@ module Mode = struct end external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit - = "llvm_link_modules"
\ No newline at end of file + = "llvm_link_modules" |
