backend_ocaml.c revision 2bdf881ee403c0493acdb3253bc697f3bd914cca
1/*===-- backend_ocaml.c - LLVM OCaml Glue -----------------------*- C++ -*-===*\ 2|* *| 3|* The LLVM Compiler Infrastructure *| 4|* *| 5|* This file is distributed under the University of Illinois Open Source *| 6|* License. See LICENSE.TXT for details. *| 7|* *| 8|*===----------------------------------------------------------------------===*| 9|* *| 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. *| 12|* *| 13|* Note that these functions intentionally take liberties with the CAMLparamX *| 14|* macros, since most of the parameters are not GC heap objects. *| 15|* *| 16\*===----------------------------------------------------------------------===*/ 17 18#include "llvm-c/Target.h" 19#include "caml/alloc.h" 20#include "caml/memory.h" 21 22#define INITIALIZER1(target) \ 23 CAMLprim value llvm_initialize_ ## target(value Unit) { \ 24 LLVMInitialize ## target ## TargetInfo(); \ 25 LLVMInitialize ## target ## Target(); \ 26 LLVMInitialize ## target ## TargetMC(); \ 27 // TODO: Figure out how to call these only for targets \ 28 // which support them. \ 29 // LLVMInitialize ## target ## AsmPrinter(); \ 30 // LLVMInitialize ## target ## AsmParser(); \ 31 // LLVMInitialize ## target ## Disassembler(); \ 32 return Val_unit; \ 33 } 34 35#define INITIALIZER(target) INITIALIZER1(target) 36 37INITIALIZER(TARGET) 38