/* Llvm.llmodule -> CodeGenFileType.t -> string -> TargetMachine.t -> unit */
CAMLprim value llvm_targetmachine_emit_to_file(LLVMModuleRef Module,
value FileType, value FileName, value Machine) {
char *ErrorMessage;
if(LLVMTargetMachineEmitToFile(TargetMachine_val(Machine), Module,
String_val(FileName), Int_val(FileType),
&ErrorMessage)) {
llvm_raise(*caml_named_value("Llvm_target.Error"), ErrorMessage);
}
return Val_unit;
}
const char* genobj(compile_t* c)
{
errors_t* errors = c->opt->check.errors;
/*
* Could store the pony runtime as a bitcode file. Build an executable by
* amalgamating the program and the runtime.
*
* For building a library, could generate a .o without the runtime in it. The
* user then has to link both the .o and the runtime. Would need a flag for
* PIC or not PIC. Could even generate a .a and maybe a .so/.dll.
*/
if(c->opt->limit == PASS_LLVM_IR)
{
const char* file_o = suffix_filename(c, c->opt->output, "", c->filename,
".ll");
PONY_LOG(c->opt, VERBOSITY_MINIMAL, ("Writing %s\n", file_o));
char* err;
if(LLVMPrintModuleToFile(c->module, file_o, &err) != 0)
{
errorf(errors, NULL, "couldn't write IR to %s: %s", file_o, err);
LLVMDisposeMessage(err);
return NULL;
}
return file_o;
}
if(c->opt->limit == PASS_BITCODE)
{
const char* file_o = suffix_filename(c, c->opt->output, "", c->filename,
".bc");
PONY_LOG(c->opt, VERBOSITY_MINIMAL, ("Writing %s\n", file_o));
if(LLVMWriteBitcodeToFile(c->module, file_o) != 0)
{
errorf(errors, NULL, "couldn't write bitcode to %s", file_o);
return NULL;
}
return file_o;
}
LLVMCodeGenFileType fmt;
const char* file_o;
if(c->opt->limit == PASS_ASM)
{
fmt = LLVMAssemblyFile;
file_o = suffix_filename(c, c->opt->output, "", c->filename, ".s");
} else {
fmt = LLVMObjectFile;
#ifdef PLATFORM_IS_WINDOWS
file_o = suffix_filename(c, c->opt->output, "", c->filename, ".obj");
#else
file_o = suffix_filename(c, c->opt->output, "", c->filename, ".o");
#endif
}
PONY_LOG(c->opt, VERBOSITY_MINIMAL, ("Writing %s\n", file_o));
char* err;
if(LLVMTargetMachineEmitToFile(
c->machine, c->module, (char*)file_o, fmt, &err) != 0
)
{
errorf(errors, NULL, "couldn't create file: %s", err);
LLVMDisposeMessage(err);
return NULL;
}
return file_o;
}
