mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-09-08 08:54:58 +00:00
bbc6597f02
Thompson. Usage should be something like this:
open Llvm
open Llvm_bitreader
match read_bitcode_file fn with
| Bitreader_failure msg ->
prerr_endline msg
| Bitreader_success m ->
...;
dispose_module m
Compile with: ocamlc llvm.cma llvm_bitreader.cma
ocamlopt llvm.cmxa llvm_bitreader.cmxa
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@44824 91177308-0d34-0410-b5e6-96231b3b80d8
26 lines
1010 B
OCaml
26 lines
1010 B
OCaml
(*===-- llvm_bitreader.mli - LLVM Ocaml Interface ---------------*- C++ -*-===*
|
|
*
|
|
* The LLVM Compiler Infrastructure
|
|
*
|
|
* This file was developed by Gordon Henriksen and is distributed under the
|
|
* University of Illinois Open Source License. See LICENSE.TXT for details.
|
|
*
|
|
*===----------------------------------------------------------------------===
|
|
*
|
|
* This interface provides an ocaml API for the LLVM bitcode reader, the
|
|
* classes in the Bitreader library.
|
|
*
|
|
*===----------------------------------------------------------------------===*)
|
|
|
|
|
|
type bitreader_result =
|
|
| Bitreader_success of Llvm.llmodule
|
|
| Bitreader_failure of string
|
|
|
|
|
|
(** [read_bitcode_file path] reads the bitcode for module [m] from the file at
|
|
[path]. Returns [Reader_success m] if successful, and [Reader_failure msg]
|
|
otherwise, where [msg] is a description of the error encountered. **)
|
|
external read_bitcode_file : string -> bitreader_result
|
|
= "llvm_read_bitcode_file"
|