X-Git-Url: http://plrg.eecs.uci.edu/git/?a=blobdiff_plain;f=bindings%2Focaml%2Firreader%2Fllvm_irreader.ml;fp=bindings%2Focaml%2Firreader%2Fllvm_irreader.ml;h=f757d629939c0f6f8a3607b37ed452fa878bd552;hb=e3227ca292d81c587c8db62b761a24b21ff12ccf;hp=455b1fae032e7c3128437bee805cff40b3b17f75;hpb=360c7ed497b73fe71e646ab094b789fe6d4c98f6;p=oota-llvm.git

diff --git a/bindings/ocaml/irreader/llvm_irreader.ml b/bindings/ocaml/irreader/llvm_irreader.ml
index 455b1fae032..f757d629939 100644
--- a/bindings/ocaml/irreader/llvm_irreader.ml
+++ b/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"