summaryrefslogtreecommitdiff
path: root/tiger-compiler/tcsh/src/tiger_llvmtranslate.i
blob: 70fade9db017f2e11c384d4f4fb683a4872f0df8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
// -*- C++ -*-

%module tiger_llvmtranslate

%include "std_string.i"

%{
  #include <llvmtranslate/libllvmtranslate.hh>
  #include <llvmtranslate/tasks.hh>
  #include <llvm/IR/IRPrintingPasses.h>
  #include <llvm/Linker/Linker.h>
  #include <llvm/IR/Module.h>
%}

%inline
{
  std::string translate(const ast::Ast& tree)
  {
    auto module = llvmtranslate::translate(tree);
    auto runtime = llvmtranslate::runtime_get(*module.first);
#if LLVM_VERSION_MAJOR == 3 && LLVM_VERSION_MINOR <= 7
    auto link = llvm::Linker::LinkModules(module.second.get(), runtime.get());
#else
    auto link = llvm::Linker::linkModules(*module.second, std::move(runtime));
#endif
    postcondition(!link); // Returns true on error

    std::string str;
    llvm::raw_string_ostream out(str);
    llvm::PrintModulePass printer{out};
#if LLVM_VERSION_MAJOR == 3 && LLVM_VERSION_MINOR <= 8
    printer.run(*module.second);
#else
    llvm::ModuleAnalysisManager dummy_mam;
    printer.run(*module.second, dummy_mam);
#endif
    return out.str();
  }
}