mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-10-11 07:24:06 +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
47 lines
1.8 KiB
C
47 lines
1.8 KiB
C
/*===-- bitwriter_ocaml.c - LLVM Ocaml Glue ---------------------*- 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 file glues LLVM's ocaml interface to its C interface. These functions *|
|
|
|* are by and large transparent wrappers to the corresponding C functions. *|
|
|
|* *|
|
|
\*===----------------------------------------------------------------------===*/
|
|
|
|
#include "llvm-c/BitReader.h"
|
|
#include "caml/alloc.h"
|
|
#include "caml/mlvalues.h"
|
|
#include "caml/memory.h"
|
|
|
|
/*===-- Modules -----------------------------------------------------------===*/
|
|
|
|
/* string -> bitreader_result
|
|
|
|
type bitreader_result =
|
|
| Bitreader_success of Llvm.llmodule
|
|
| Bitreader_failure of string
|
|
*/
|
|
CAMLprim value llvm_read_bitcode_file(value Path) {
|
|
LLVMModuleRef M;
|
|
char *Message;
|
|
CAMLparam1(Path);
|
|
CAMLlocal2(Variant, MessageVal);
|
|
|
|
if (LLVMReadBitcodeFromFile(String_val(Path), &M, &Message)) {
|
|
MessageVal = copy_string(Message);
|
|
LLVMDisposeBitcodeReaderMessage(Message);
|
|
|
|
Variant = alloc(1, 1);
|
|
Field(Variant, 0) = MessageVal;
|
|
} else {
|
|
Variant = alloc(1, 0);
|
|
Field(Variant, 0) = Val_op(M);
|
|
}
|
|
|
|
CAMLreturn(Variant);
|
|
}
|