[OCaml] Drop support for 3.12.1 and earlier.

[oota-llvm.git] / bindings / ocaml / target / llvm_target.ml

diff --git a/bindings/ocaml/target/llvm_target.ml b/bindings/ocaml/target/llvm_target.ml
index 974bd49c2813bc10529ae5c22c38cad08df2bbe6..aadd90f5518af1fbca715ef553d6c4ff30d91cd6 100644 (file)
--- a/bindings/ocaml/target/llvm_target.ml
+++ b/bindings/ocaml/target/llvm_target.ml
@@ -47,8 +47,7 @@ end
 
 exception Error of string
 
 
 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
 
 module DataLayout = struct
   type t