104 lines
3.6 KiB
C++
104 lines
3.6 KiB
C++
|
//===-- Flang.cpp - Flang+LLVM ToolChain Implementations --------*- C++ -*-===//
|
||
|
|
//
|
||
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
||
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
||
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
||
|
|
//
|
||
|
|
//===----------------------------------------------------------------------===//
|
||
|
|
|
||
|
|
|
||
|
|
#include "Flang.h"
|
||
|
|
#include "CommonArgs.h"
|
||
|
|
|
||
|
|
#include "clang/Driver/Options.h"
|
||
|
|
|
||
|
|
#include <cassert>
|
||
|
|
|
||
|
|
using namespace clang::driver;
|
||
|
|
using namespace clang::driver::tools;
|
||
|
|
using namespace clang;
|
||
|
|
using namespace llvm::opt;
|
||
|
|
|
||
|
|
void Flang::AddPreprocessingOptions(const ArgList &Args,
|
||
|
|
ArgStringList &CmdArgs) const {
|
||
|
|
Args.AddAllArgs(CmdArgs, {options::OPT_D, options::OPT_U, options::OPT_I});
|
||
|
|
}
|
||
|
|
|
||
|
|
void Flang::ConstructJob(Compilation &C, const JobAction &JA,
|
||
|
|
const InputInfo &Output, const InputInfoList &Inputs,
|
||
|
|
const ArgList &Args, const char *LinkingOutput) const {
|
||
|
|
const auto &TC = getToolChain();
|
||
|
|
// TODO: Once code-generation is available, this will need to be commented
|
||
|
|
// out.
|
||
|
|
// const llvm::Triple &Triple = TC.getEffectiveTriple();
|
||
|
|
// const std::string &TripleStr = Triple.getTriple();
|
||
|
|
|
||
|
|
ArgStringList CmdArgs;
|
||
|
|
|
||
|
|
// Invoke ourselves in -fc1 mode.
|
||
|
|
CmdArgs.push_back("-fc1");
|
||
|
|
|
||
|
|
// TODO: Once code-generation is available, this will need to be commented
|
||
|
|
// out.
|
||
|
|
// Add the "effective" target triple.
|
||
|
|
// CmdArgs.push_back("-triple");
|
||
|
|
// CmdArgs.push_back(Args.MakeArgString(TripleStr));
|
||
|
|
|
||
|
|
if (isa<PreprocessJobAction>(JA)) {
|
||
|
|
if (C.getArgs().hasArg(options::OPT_test_io))
|
||
|
|
CmdArgs.push_back("-test-io");
|
||
|
|
else
|
||
|
|
CmdArgs.push_back("-E");
|
||
|
|
} else if (isa<CompileJobAction>(JA) || isa<BackendJobAction>(JA)) {
|
||
|
|
if (JA.getType() == types::TY_Nothing) {
|
||
|
|
CmdArgs.push_back("-fsyntax-only");
|
||
|
|
} else if (JA.getType() == types::TY_AST) {
|
||
|
|
CmdArgs.push_back("-emit-ast");
|
||
|
|
} else if (JA.getType() == types::TY_LLVM_IR ||
|
||
|
|
JA.getType() == types::TY_LTO_IR) {
|
||
|
|
CmdArgs.push_back("-emit-llvm");
|
||
|
|
} else if (JA.getType() == types::TY_LLVM_BC ||
|
||
|
|
JA.getType() == types::TY_LTO_BC) {
|
||
|
|
CmdArgs.push_back("-emit-llvm-bc");
|
||
|
|
} else if (JA.getType() == types::TY_PP_Asm) {
|
||
|
|
CmdArgs.push_back("-S");
|
||
|
|
} else {
|
||
|
|
assert(false && "Unexpected output type!");
|
||
|
|
}
|
||
|
|
} else if (isa<AssembleJobAction>(JA)) {
|
||
|
|
CmdArgs.push_back("-emit-obj");
|
||
|
|
} else {
|
||
|
|
assert(false && "Unexpected action class for Flang tool.");
|
||
|
|
}
|
||
|
|
|
||
|
|
const InputInfo &Input = Inputs[0];
|
||
|
|
types::ID InputType = Input.getType();
|
||
|
|
|
||
|
|
// Add preprocessing options like -I, -D, etc. if we are using the
|
||
|
|
// preprocessor (i.e. skip when dealing with e.g. binary files).
|
||
|
|
if (types::getPreprocessedType(InputType) != types::TY_INVALID)
|
||
|
|
AddPreprocessingOptions(Args, CmdArgs);
|
||
|
|
|
||
|
|
if (Output.isFilename()) {
|
||
|
|
CmdArgs.push_back("-o");
|
||
|
|
CmdArgs.push_back(Output.getFilename());
|
||
|
|
} else {
|
||
|
|
assert(Output.isNothing() && "Invalid output.");
|
||
|
|
}
|
||
|
|
|
||
|
|
assert(Input.isFilename() && "Invalid input.");
|
||
|
|
CmdArgs.push_back(Input.getFilename());
|
||
|
|
|
||
|
|
const auto& D = C.getDriver();
|
||
|
|
// TODO: Replace flang-new with flang once the new driver replaces the
|
||
|
|
// throwaway driver
|
||
|
|
const char *Exec = Args.MakeArgString(D.GetProgramPath("flang-new", TC));
|
||
|
|
C.addCommand(std::make_unique<Command>(JA, *this,
|
||
|
|
ResponseFileSupport::AtFileUTF8(),
|
||
|
|
Exec, CmdArgs, Inputs, Output));
|
||
|
|
}
|
||
|
|
|
||
|
|
Flang::Flang(const ToolChain &TC) : Tool("flang-new", "flang frontend", TC) {}
|
||
|
|
|
||
|
|
Flang::~Flang() {}
|