#include
#include
#include
#include
#include
#include
#ifdef HAVE_LFORTRAN_LLVM
#include
#include
#else
namespace LCompilers {
class LLVMEvaluator {};
}
#endif
namespace LCompilers {
/* ------------------------------------------------------------------------- */
// PythonEvaluator
PythonCompiler::PythonCompiler(CompilerOptions compiler_options)
:
al{1024*1024},
#ifdef HAVE_LFORTRAN_LLVM
e{std::make_unique()},
eval_count{0},
#endif
compiler_options{compiler_options}
// symbol_table{nullptr}
{
}
PythonCompiler::~PythonCompiler() = default;
Result<:unique_ptr>> PythonCompiler::get_llvm3(
#ifdef HAVE_LFORTRAN_LLVM
ASR::TranslationUnit_t &asr, LCompilers::PassManager& lpm,
diag::Diagnostics &diagnostics, const std::string &infile
#else
ASR::TranslationUnit_t &/*asr*/, LCompilers::PassManager&/*lpm*/,
diag::Diagnostics &/*diagnostics*/,const std::string &/*infile*/
#endif
)
{
#ifdef HAVE_LFORTRAN_LLVM
eval_count++;
run_fn = "__lfortran_evaluate_" + std::to_string(eval_count);
if (compiler_options.emit_debug_info) {
if (!compiler_options.emit_debug_line_column) {
diagnostics.add(LCompilers::diag::Diagnostic(
"The `emit_debug_line_column` is not enabled; please use the "
"`--debug-with-line-column` option to get the correct "
"location information",
LCompilers::diag::Level::Error,
LCompilers::diag::Stage::Semantic, {})
);
Error err;
return err;
}
}
// ASR -> LLVM
std::unique_ptr<:llvmmodule> m;
Result<:unique_ptr>> res
= asr_to_llvm(asr, diagnostics,
e->get_context(), al, lpm, compiler_options,
run_fn, infile);
if (res.ok) {
m = std::move(res.result);
} else {
LCOMPILERS_ASSERT(diagnostics.has_error())
return res.error;
}
if (compiler_options.fast) {
e->opt(*m->m_m);
}
return m;
#else
throw LCompilersException("LLVM is not enabled");
#endif
}
} // namespace LCompilers::LPython