mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-29 13:29:28 +00:00
04bcc11905
derived classes. Since global data alignment, layout, and mangling is often based on the DataLayout, move it to the TargetMachine. This ensures that global data is going to be layed out and mangled consistently if the subtarget changes on a per function basis. Prior to this all targets(*) have had subtarget dependent code moved out and onto the TargetMachine. *One target hasn't been migrated as part of this change: R600. The R600 port has, as a subtarget feature, the size of pointers and this affects global data layout. I've currently hacked in a FIXME to enable progress, but the port needs to be updated to either pass the 64-bitness to the TargetMachine, or fix the DataLayout to avoid subtarget dependent features. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@227113 91177308-0d34-0410-b5e6-96231b3b80d8
287 lines
11 KiB
C++
287 lines
11 KiB
C++
//===- CallingConvEmitter.cpp - Generate calling conventions --------------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This tablegen backend is responsible for emitting descriptions of the calling
|
|
// conventions supported by this target.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "CodeGenTarget.h"
|
|
#include "llvm/TableGen/Error.h"
|
|
#include "llvm/TableGen/Record.h"
|
|
#include "llvm/TableGen/TableGenBackend.h"
|
|
#include <cassert>
|
|
using namespace llvm;
|
|
|
|
namespace {
|
|
class CallingConvEmitter {
|
|
RecordKeeper &Records;
|
|
public:
|
|
explicit CallingConvEmitter(RecordKeeper &R) : Records(R) {}
|
|
|
|
void run(raw_ostream &o);
|
|
|
|
private:
|
|
void EmitCallingConv(Record *CC, raw_ostream &O);
|
|
void EmitAction(Record *Action, unsigned Indent, raw_ostream &O);
|
|
unsigned Counter;
|
|
};
|
|
} // End anonymous namespace
|
|
|
|
void CallingConvEmitter::run(raw_ostream &O) {
|
|
std::vector<Record*> CCs = Records.getAllDerivedDefinitions("CallingConv");
|
|
|
|
// Emit prototypes for all of the non-custom CC's so that they can forward ref
|
|
// each other.
|
|
for (unsigned i = 0, e = CCs.size(); i != e; ++i) {
|
|
if (!CCs[i]->getValueAsBit("Custom")) {
|
|
O << "static bool " << CCs[i]->getName()
|
|
<< "(unsigned ValNo, MVT ValVT,\n"
|
|
<< std::string(CCs[i]->getName().size() + 13, ' ')
|
|
<< "MVT LocVT, CCValAssign::LocInfo LocInfo,\n"
|
|
<< std::string(CCs[i]->getName().size() + 13, ' ')
|
|
<< "ISD::ArgFlagsTy ArgFlags, CCState &State);\n";
|
|
}
|
|
}
|
|
|
|
// Emit each non-custom calling convention description in full.
|
|
for (unsigned i = 0, e = CCs.size(); i != e; ++i) {
|
|
if (!CCs[i]->getValueAsBit("Custom"))
|
|
EmitCallingConv(CCs[i], O);
|
|
}
|
|
}
|
|
|
|
|
|
void CallingConvEmitter::EmitCallingConv(Record *CC, raw_ostream &O) {
|
|
ListInit *CCActions = CC->getValueAsListInit("Actions");
|
|
Counter = 0;
|
|
|
|
O << "\n\nstatic bool " << CC->getName()
|
|
<< "(unsigned ValNo, MVT ValVT,\n"
|
|
<< std::string(CC->getName().size()+13, ' ')
|
|
<< "MVT LocVT, CCValAssign::LocInfo LocInfo,\n"
|
|
<< std::string(CC->getName().size()+13, ' ')
|
|
<< "ISD::ArgFlagsTy ArgFlags, CCState &State) {\n";
|
|
// Emit all of the actions, in order.
|
|
for (unsigned i = 0, e = CCActions->getSize(); i != e; ++i) {
|
|
O << "\n";
|
|
EmitAction(CCActions->getElementAsRecord(i), 2, O);
|
|
}
|
|
|
|
O << "\n return true; // CC didn't match.\n";
|
|
O << "}\n";
|
|
}
|
|
|
|
void CallingConvEmitter::EmitAction(Record *Action,
|
|
unsigned Indent, raw_ostream &O) {
|
|
std::string IndentStr = std::string(Indent, ' ');
|
|
|
|
if (Action->isSubClassOf("CCPredicateAction")) {
|
|
O << IndentStr << "if (";
|
|
|
|
if (Action->isSubClassOf("CCIfType")) {
|
|
ListInit *VTs = Action->getValueAsListInit("VTs");
|
|
for (unsigned i = 0, e = VTs->getSize(); i != e; ++i) {
|
|
Record *VT = VTs->getElementAsRecord(i);
|
|
if (i != 0) O << " ||\n " << IndentStr;
|
|
O << "LocVT == " << getEnumName(getValueType(VT));
|
|
}
|
|
|
|
} else if (Action->isSubClassOf("CCIf")) {
|
|
O << Action->getValueAsString("Predicate");
|
|
} else {
|
|
Action->dump();
|
|
PrintFatalError("Unknown CCPredicateAction!");
|
|
}
|
|
|
|
O << ") {\n";
|
|
EmitAction(Action->getValueAsDef("SubAction"), Indent+2, O);
|
|
O << IndentStr << "}\n";
|
|
} else {
|
|
if (Action->isSubClassOf("CCDelegateTo")) {
|
|
Record *CC = Action->getValueAsDef("CC");
|
|
O << IndentStr << "if (!" << CC->getName()
|
|
<< "(ValNo, ValVT, LocVT, LocInfo, ArgFlags, State))\n"
|
|
<< IndentStr << " return false;\n";
|
|
} else if (Action->isSubClassOf("CCAssignToReg")) {
|
|
ListInit *RegList = Action->getValueAsListInit("RegList");
|
|
if (RegList->getSize() == 1) {
|
|
O << IndentStr << "if (unsigned Reg = State.AllocateReg(";
|
|
O << getQualifiedName(RegList->getElementAsRecord(0)) << ")) {\n";
|
|
} else {
|
|
O << IndentStr << "static const MCPhysReg RegList" << ++Counter
|
|
<< "[] = {\n";
|
|
O << IndentStr << " ";
|
|
for (unsigned i = 0, e = RegList->getSize(); i != e; ++i) {
|
|
if (i != 0) O << ", ";
|
|
O << getQualifiedName(RegList->getElementAsRecord(i));
|
|
}
|
|
O << "\n" << IndentStr << "};\n";
|
|
O << IndentStr << "if (unsigned Reg = State.AllocateReg(RegList"
|
|
<< Counter << ", " << RegList->getSize() << ")) {\n";
|
|
}
|
|
O << IndentStr << " State.addLoc(CCValAssign::getReg(ValNo, ValVT, "
|
|
<< "Reg, LocVT, LocInfo));\n";
|
|
O << IndentStr << " return false;\n";
|
|
O << IndentStr << "}\n";
|
|
} else if (Action->isSubClassOf("CCAssignToRegWithShadow")) {
|
|
ListInit *RegList = Action->getValueAsListInit("RegList");
|
|
ListInit *ShadowRegList = Action->getValueAsListInit("ShadowRegList");
|
|
if (ShadowRegList->getSize() >0 &&
|
|
ShadowRegList->getSize() != RegList->getSize())
|
|
PrintFatalError("Invalid length of list of shadowed registers");
|
|
|
|
if (RegList->getSize() == 1) {
|
|
O << IndentStr << "if (unsigned Reg = State.AllocateReg(";
|
|
O << getQualifiedName(RegList->getElementAsRecord(0));
|
|
O << ", " << getQualifiedName(ShadowRegList->getElementAsRecord(0));
|
|
O << ")) {\n";
|
|
} else {
|
|
unsigned RegListNumber = ++Counter;
|
|
unsigned ShadowRegListNumber = ++Counter;
|
|
|
|
O << IndentStr << "static const MCPhysReg RegList" << RegListNumber
|
|
<< "[] = {\n";
|
|
O << IndentStr << " ";
|
|
for (unsigned i = 0, e = RegList->getSize(); i != e; ++i) {
|
|
if (i != 0) O << ", ";
|
|
O << getQualifiedName(RegList->getElementAsRecord(i));
|
|
}
|
|
O << "\n" << IndentStr << "};\n";
|
|
|
|
O << IndentStr << "static const MCPhysReg RegList"
|
|
<< ShadowRegListNumber << "[] = {\n";
|
|
O << IndentStr << " ";
|
|
for (unsigned i = 0, e = ShadowRegList->getSize(); i != e; ++i) {
|
|
if (i != 0) O << ", ";
|
|
O << getQualifiedName(ShadowRegList->getElementAsRecord(i));
|
|
}
|
|
O << "\n" << IndentStr << "};\n";
|
|
|
|
O << IndentStr << "if (unsigned Reg = State.AllocateReg(RegList"
|
|
<< RegListNumber << ", " << "RegList" << ShadowRegListNumber
|
|
<< ", " << RegList->getSize() << ")) {\n";
|
|
}
|
|
O << IndentStr << " State.addLoc(CCValAssign::getReg(ValNo, ValVT, "
|
|
<< "Reg, LocVT, LocInfo));\n";
|
|
O << IndentStr << " return false;\n";
|
|
O << IndentStr << "}\n";
|
|
} else if (Action->isSubClassOf("CCAssignToStack")) {
|
|
int Size = Action->getValueAsInt("Size");
|
|
int Align = Action->getValueAsInt("Align");
|
|
|
|
O << IndentStr << "unsigned Offset" << ++Counter
|
|
<< " = State.AllocateStack(";
|
|
if (Size)
|
|
O << Size << ", ";
|
|
else
|
|
O << "\n" << IndentStr
|
|
<< " State.getMachineFunction().getTarget().getDataLayout()"
|
|
"->getTypeAllocSize(EVT(LocVT).getTypeForEVT(State.getContext())),"
|
|
" ";
|
|
if (Align)
|
|
O << Align;
|
|
else
|
|
O << "\n" << IndentStr
|
|
<< " State.getMachineFunction().getTarget().getDataLayout()"
|
|
"->getABITypeAlignment(EVT(LocVT).getTypeForEVT(State.getContext()"
|
|
"))";
|
|
O << ");\n" << IndentStr
|
|
<< "State.addLoc(CCValAssign::getMem(ValNo, ValVT, Offset"
|
|
<< Counter << ", LocVT, LocInfo));\n";
|
|
O << IndentStr << "return false;\n";
|
|
} else if (Action->isSubClassOf("CCAssignToStackWithShadow")) {
|
|
int Size = Action->getValueAsInt("Size");
|
|
int Align = Action->getValueAsInt("Align");
|
|
ListInit *ShadowRegList = Action->getValueAsListInit("ShadowRegList");
|
|
|
|
unsigned ShadowRegListNumber = ++Counter;
|
|
|
|
O << IndentStr << "static const MCPhysReg ShadowRegList"
|
|
<< ShadowRegListNumber << "[] = {\n";
|
|
O << IndentStr << " ";
|
|
for (unsigned i = 0, e = ShadowRegList->getSize(); i != e; ++i) {
|
|
if (i != 0) O << ", ";
|
|
O << getQualifiedName(ShadowRegList->getElementAsRecord(i));
|
|
}
|
|
O << "\n" << IndentStr << "};\n";
|
|
|
|
O << IndentStr << "unsigned Offset" << ++Counter
|
|
<< " = State.AllocateStack("
|
|
<< Size << ", " << Align << ", "
|
|
<< "ShadowRegList" << ShadowRegListNumber << ", "
|
|
<< ShadowRegList->getSize() << ");\n";
|
|
O << IndentStr << "State.addLoc(CCValAssign::getMem(ValNo, ValVT, Offset"
|
|
<< Counter << ", LocVT, LocInfo));\n";
|
|
O << IndentStr << "return false;\n";
|
|
} else if (Action->isSubClassOf("CCPromoteToType")) {
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
MVT::SimpleValueType DestVT = getValueType(DestTy);
|
|
O << IndentStr << "LocVT = " << getEnumName(DestVT) <<";\n";
|
|
if (MVT(DestVT).isFloatingPoint()) {
|
|
O << IndentStr << "LocInfo = CCValAssign::FPExt;\n";
|
|
} else {
|
|
O << IndentStr << "if (ArgFlags.isSExt())\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::SExt;\n"
|
|
<< IndentStr << "else if (ArgFlags.isZExt())\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::ZExt;\n"
|
|
<< IndentStr << "else\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::AExt;\n";
|
|
}
|
|
} else if (Action->isSubClassOf("CCPromoteToUpperBitsInType")) {
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
MVT::SimpleValueType DestVT = getValueType(DestTy);
|
|
O << IndentStr << "LocVT = " << getEnumName(DestVT) << ";\n";
|
|
if (MVT(DestVT).isFloatingPoint()) {
|
|
PrintFatalError("CCPromoteToUpperBitsInType does not handle floating "
|
|
"point");
|
|
} else {
|
|
O << IndentStr << "if (ArgFlags.isSExt())\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::SExtUpper;\n"
|
|
<< IndentStr << "else if (ArgFlags.isZExt())\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::ZExtUpper;\n"
|
|
<< IndentStr << "else\n"
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::AExtUpper;\n";
|
|
}
|
|
} else if (Action->isSubClassOf("CCBitConvertToType")) {
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
O << IndentStr << "LocVT = " << getEnumName(getValueType(DestTy)) <<";\n";
|
|
O << IndentStr << "LocInfo = CCValAssign::BCvt;\n";
|
|
} else if (Action->isSubClassOf("CCPassIndirect")) {
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
O << IndentStr << "LocVT = " << getEnumName(getValueType(DestTy)) <<";\n";
|
|
O << IndentStr << "LocInfo = CCValAssign::Indirect;\n";
|
|
} else if (Action->isSubClassOf("CCPassByVal")) {
|
|
int Size = Action->getValueAsInt("Size");
|
|
int Align = Action->getValueAsInt("Align");
|
|
O << IndentStr
|
|
<< "State.HandleByVal(ValNo, ValVT, LocVT, LocInfo, "
|
|
<< Size << ", " << Align << ", ArgFlags);\n";
|
|
O << IndentStr << "return false;\n";
|
|
} else if (Action->isSubClassOf("CCCustom")) {
|
|
O << IndentStr
|
|
<< "if (" << Action->getValueAsString("FuncName") << "(ValNo, ValVT, "
|
|
<< "LocVT, LocInfo, ArgFlags, State))\n";
|
|
O << IndentStr << IndentStr << "return false;\n";
|
|
} else {
|
|
Action->dump();
|
|
PrintFatalError("Unknown CCAction!");
|
|
}
|
|
}
|
|
}
|
|
|
|
namespace llvm {
|
|
|
|
void EmitCallingConv(RecordKeeper &RK, raw_ostream &OS) {
|
|
emitSourceFileHeader("Calling Convention Implementation Fragment", OS);
|
|
CallingConvEmitter(RK).run(OS);
|
|
}
|
|
|
|
} // End llvm namespace
|