diff options
Diffstat (limited to 'llvm/bindings/ocaml/target/llvm_target.ml')
| -rw-r--r-- | llvm/bindings/ocaml/target/llvm_target.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/llvm/bindings/ocaml/target/llvm_target.ml b/llvm/bindings/ocaml/target/llvm_target.ml index 974bd49c281..aadd90f5518 100644 --- a/llvm/bindings/ocaml/target/llvm_target.ml +++ b/llvm/bindings/ocaml/target/llvm_target.ml @@ -47,8 +47,7 @@ end exception Error of string -external register_exns : exn -> unit = "llvm_register_target_exns" -let _ = register_exns (Error "") +let () = Callback.register_exception "Llvm_target.Error" (Error "") module DataLayout = struct type t |
