diff options
Diffstat (limited to 'bindings/ocaml/linker/llvm_linker.ml')
| -rw-r--r-- | bindings/ocaml/linker/llvm_linker.ml | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/bindings/ocaml/linker/llvm_linker.ml b/bindings/ocaml/linker/llvm_linker.ml index 2b73e2e9c4e9..3044abd8b6cf 100644 --- a/bindings/ocaml/linker/llvm_linker.ml +++ b/bindings/ocaml/linker/llvm_linker.ml @@ -9,14 +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 = - | DestroySource - | PreserveSource -end - -external link_modules : Llvm.llmodule -> Llvm.llmodule -> Mode.t -> unit - = "llvm_link_modules"
\ No newline at end of file +external link_modules : Llvm.llmodule -> Llvm.llmodule -> unit + = "llvm_link_modules" |