| Gordon Henriksen | 2b0eed2 | 2007-12-11 00:20:48 +0000 | [diff] [blame] | 1 | (*===-- llvm_bitreader.ml - LLVM Ocaml Interface ----------------*- C++ -*-===* |
| 2 | * |
| 3 | * The LLVM Compiler Infrastructure |
| 4 | * |
| 5 | * This file was developed by Gordon Henriksen and is distributed under the |
| 6 | * University of Illinois Open Source License. See LICENSE.TXT for details. |
| 7 | * |
| 8 | *===----------------------------------------------------------------------===*) |
| 9 | |
| 10 | |
| Gordon Henriksen | 34eb6d8 | 2007-12-19 22:30:40 +0000 | [diff] [blame^] | 11 | exception Error of string |
| Gordon Henriksen | 2b0eed2 | 2007-12-11 00:20:48 +0000 | [diff] [blame] | 12 | |
| Gordon Henriksen | 34eb6d8 | 2007-12-19 22:30:40 +0000 | [diff] [blame^] | 13 | external register_exns : exn -> unit = "llvm_register_bitreader_exns" |
| 14 | let _ = register_exns (Error "") |
| Gordon Henriksen | 2b0eed2 | 2007-12-11 00:20:48 +0000 | [diff] [blame] | 15 | |
| Gordon Henriksen | 34eb6d8 | 2007-12-19 22:30:40 +0000 | [diff] [blame^] | 16 | external get_module_provider : Llvm.llmemorybuffer -> Llvm.llmoduleprovider |
| 17 | = "llvm_get_module_provider" |
| 18 | external parse_bitcode : Llvm.llmemorybuffer -> Llvm.llmodule |
| 19 | = "llvm_parse_bitcode" |