1 /*===-- bitwriter_ocaml.c - LLVM OCaml Glue ---------------------*- C++ -*-===*\
3 |* Part of the LLVM Project, under the Apache License v2.0 with LLVM *|
5 |* See https://llvm.org/LICENSE.txt for license information. *|
6 |* SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception *|
8 |*===----------------------------------------------------------------------===*|
10 |* This file glues LLVM's OCaml interface to its C interface. These functions *|
11 |* are by and large transparent wrappers to the corresponding C functions. *|
13 |* Note that these functions intentionally take liberties with the CAMLparamX *|
14 |* macros, since most of the parameters are not GC heap objects. *|
16 \*===----------------------------------------------------------------------===*/
18 #include "llvm-c/BitWriter.h"
19 #include "llvm-c/Core.h"
20 #include "caml/alloc.h"
21 #include "caml/mlvalues.h"
22 #include "caml/memory.h"
24 /* Llvm.llmodule -> string -> bool */
25 CAMLprim value
llvm_write_bitcode_file(LLVMModuleRef M
, value Path
) {
26 int Result
= LLVMWriteBitcodeToFile(M
, String_val(Path
));
27 return Val_bool(Result
== 0);
30 /* ?unbuffered:bool -> Llvm.llmodule -> Unix.file_descr -> bool */
31 CAMLprim value
llvm_write_bitcode_to_fd(value U
, LLVMModuleRef M
, value FD
) {
35 if (U
== Val_int(0)) {
38 Unbuffered
= Bool_val(Field(U
, 0));
41 Result
= LLVMWriteBitcodeToFD(M
, Int_val(FD
), 0, Unbuffered
);
42 return Val_bool(Result
== 0);
45 /* Llvm.llmodule -> Llvm.llmemorybuffer */
46 CAMLprim LLVMMemoryBufferRef
llvm_write_bitcode_to_memory_buffer(LLVMModuleRef M
) {
47 return LLVMWriteBitcodeToMemoryBuffer(M
);