2007-02-27 23:05:51 +01:00
|
|
|
//===- CallingConvEmitter.cpp - Generate calling conventions --------------===//
|
|
|
|
//
|
|
|
|
// The LLVM Compiler Infrastructure
|
|
|
|
//
|
2007-12-29 21:37:13 +01:00
|
|
|
// This file is distributed under the University of Illinois Open Source
|
|
|
|
// License. See LICENSE.TXT for details.
|
2007-02-27 23:05:51 +01:00
|
|
|
//
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
//
|
|
|
|
// This tablegen backend is responsible for emitting descriptions of the calling
|
|
|
|
// conventions supported by this target.
|
|
|
|
//
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
|
|
|
|
#include "CodeGenTarget.h"
|
2012-10-25 22:33:17 +02:00
|
|
|
#include "llvm/TableGen/Error.h"
|
2011-10-01 18:41:13 +02:00
|
|
|
#include "llvm/TableGen/Record.h"
|
2012-06-11 17:37:55 +02:00
|
|
|
#include "llvm/TableGen/TableGenBackend.h"
|
|
|
|
#include <cassert>
|
2007-02-27 23:05:51 +01:00
|
|
|
using namespace llvm;
|
|
|
|
|
2012-06-11 17:37:55 +02:00
|
|
|
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
|
|
|
|
|
2009-07-03 02:10:29 +02:00
|
|
|
void CallingConvEmitter::run(raw_ostream &O) {
|
2007-02-27 23:05:51 +01:00
|
|
|
|
|
|
|
std::vector<Record*> CCs = Records.getAllDerivedDefinitions("CallingConv");
|
|
|
|
|
|
|
|
// Emit prototypes for all of the CC's so that they can forward ref each
|
|
|
|
// other.
|
|
|
|
for (unsigned i = 0, e = CCs.size(); i != e; ++i) {
|
|
|
|
O << "static bool " << CCs[i]->getName()
|
2010-11-04 11:49:57 +01:00
|
|
|
<< "(unsigned ValNo, MVT ValVT,\n"
|
2007-02-27 23:05:51 +01:00
|
|
|
<< std::string(CCs[i]->getName().size()+13, ' ')
|
2010-11-03 12:35:31 +01:00
|
|
|
<< "MVT LocVT, CCValAssign::LocInfo LocInfo,\n"
|
2007-02-28 05:43:48 +01:00
|
|
|
<< std::string(CCs[i]->getName().size()+13, ' ')
|
2008-03-21 10:14:45 +01:00
|
|
|
<< "ISD::ArgFlagsTy ArgFlags, CCState &State);\n";
|
2007-02-27 23:05:51 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
// Emit each calling convention description in full.
|
|
|
|
for (unsigned i = 0, e = CCs.size(); i != e; ++i)
|
|
|
|
EmitCallingConv(CCs[i], O);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2009-07-03 02:10:29 +02:00
|
|
|
void CallingConvEmitter::EmitCallingConv(Record *CC, raw_ostream &O) {
|
2011-07-30 00:43:06 +02:00
|
|
|
ListInit *CCActions = CC->getValueAsListInit("Actions");
|
2007-02-27 23:05:51 +01:00
|
|
|
Counter = 0;
|
|
|
|
|
|
|
|
O << "\n\nstatic bool " << CC->getName()
|
2010-11-04 11:49:57 +01:00
|
|
|
<< "(unsigned ValNo, MVT ValVT,\n"
|
2007-02-28 05:43:48 +01:00
|
|
|
<< std::string(CC->getName().size()+13, ' ')
|
2010-11-03 12:35:31 +01:00
|
|
|
<< "MVT LocVT, CCValAssign::LocInfo LocInfo,\n"
|
2007-02-27 23:05:51 +01:00
|
|
|
<< std::string(CC->getName().size()+13, ' ')
|
2008-03-21 10:14:45 +01:00
|
|
|
<< "ISD::ArgFlagsTy ArgFlags, CCState &State) {\n";
|
2007-02-27 23:05:51 +01:00
|
|
|
// 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,
|
2009-07-03 02:10:29 +02:00
|
|
|
unsigned Indent, raw_ostream &O) {
|
2007-02-27 23:05:51 +01:00
|
|
|
std::string IndentStr = std::string(Indent, ' ');
|
|
|
|
|
|
|
|
if (Action->isSubClassOf("CCPredicateAction")) {
|
|
|
|
O << IndentStr << "if (";
|
|
|
|
|
2007-02-28 06:29:06 +01:00
|
|
|
if (Action->isSubClassOf("CCIfType")) {
|
2011-07-30 00:43:06 +02:00
|
|
|
ListInit *VTs = Action->getValueAsListInit("VTs");
|
2007-02-27 23:05:51 +01:00
|
|
|
for (unsigned i = 0, e = VTs->getSize(); i != e; ++i) {
|
|
|
|
Record *VT = VTs->getElementAsRecord(i);
|
2007-02-28 05:43:48 +01:00
|
|
|
if (i != 0) O << " ||\n " << IndentStr;
|
2007-02-27 23:05:51 +01:00
|
|
|
O << "LocVT == " << getEnumName(getValueType(VT));
|
|
|
|
}
|
|
|
|
|
2007-02-28 06:29:06 +01:00
|
|
|
} else if (Action->isSubClassOf("CCIf")) {
|
2007-02-27 23:05:51 +01:00
|
|
|
O << Action->getValueAsString("Predicate");
|
|
|
|
} else {
|
|
|
|
Action->dump();
|
2012-10-25 22:33:17 +02:00
|
|
|
PrintFatalError("Unknown CCPredicateAction!");
|
2007-02-27 23:05:51 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
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")) {
|
2011-07-30 00:43:06 +02:00
|
|
|
ListInit *RegList = Action->getValueAsListInit("RegList");
|
2007-02-27 23:05:51 +01:00
|
|
|
if (RegList->getSize() == 1) {
|
|
|
|
O << IndentStr << "if (unsigned Reg = State.AllocateReg(";
|
|
|
|
O << getQualifiedName(RegList->getElementAsRecord(0)) << ")) {\n";
|
|
|
|
} else {
|
2012-03-11 08:57:25 +01:00
|
|
|
O << IndentStr << "static const uint16_t RegList" << ++Counter
|
2007-02-27 23:05:51 +01:00
|
|
|
<< "[] = {\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";
|
2008-04-02 07:23:57 +02:00
|
|
|
} else if (Action->isSubClassOf("CCAssignToRegWithShadow")) {
|
2011-07-30 00:43:06 +02:00
|
|
|
ListInit *RegList = Action->getValueAsListInit("RegList");
|
|
|
|
ListInit *ShadowRegList = Action->getValueAsListInit("ShadowRegList");
|
2008-04-02 07:23:57 +02:00
|
|
|
if (ShadowRegList->getSize() >0 &&
|
|
|
|
ShadowRegList->getSize() != RegList->getSize())
|
2012-10-25 22:33:17 +02:00
|
|
|
PrintFatalError("Invalid length of list of shadowed registers");
|
2008-04-02 07:23:57 +02:00
|
|
|
|
|
|
|
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;
|
|
|
|
|
2012-03-11 08:57:25 +01:00
|
|
|
O << IndentStr << "static const uint16_t RegList" << RegListNumber
|
2008-04-02 07:23:57 +02:00
|
|
|
<< "[] = {\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";
|
|
|
|
|
2012-03-11 08:57:25 +01:00
|
|
|
O << IndentStr << "static const uint16_t RegList"
|
2008-04-02 07:23:57 +02:00
|
|
|
<< 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";
|
2007-02-27 23:05:51 +01:00
|
|
|
} else if (Action->isSubClassOf("CCAssignToStack")) {
|
|
|
|
int Size = Action->getValueAsInt("Size");
|
|
|
|
int Align = Action->getValueAsInt("Align");
|
2007-11-14 09:29:13 +01:00
|
|
|
|
2008-01-15 04:10:35 +01:00
|
|
|
O << IndentStr << "unsigned Offset" << ++Counter
|
|
|
|
<< " = State.AllocateStack(";
|
2007-11-14 09:29:13 +01:00
|
|
|
if (Size)
|
2008-01-15 04:10:35 +01:00
|
|
|
O << Size << ", ";
|
2007-11-14 09:29:13 +01:00
|
|
|
else
|
2012-10-08 18:39:34 +02:00
|
|
|
O << "\n" << IndentStr << " State.getTarget().getDataLayout()"
|
2010-11-03 12:35:31 +01:00
|
|
|
"->getTypeAllocSize(EVT(LocVT).getTypeForEVT(State.getContext())), ";
|
2007-11-14 09:29:13 +01:00
|
|
|
if (Align)
|
|
|
|
O << Align;
|
|
|
|
else
|
2012-10-08 18:39:34 +02:00
|
|
|
O << "\n" << IndentStr << " State.getTarget().getDataLayout()"
|
2010-11-03 12:35:31 +01:00
|
|
|
"->getABITypeAlignment(EVT(LocVT).getTypeForEVT(State.getContext()))";
|
2010-08-06 17:35:32 +02:00
|
|
|
if (Action->isSubClassOf("CCAssignToStackWithShadow"))
|
|
|
|
O << ", " << getQualifiedName(Action->getValueAsDef("ShadowReg"));
|
2008-01-15 04:10:35 +01:00
|
|
|
O << ");\n" << IndentStr
|
2007-11-14 09:29:13 +01:00
|
|
|
<< "State.addLoc(CCValAssign::getMem(ValNo, ValVT, Offset"
|
2007-02-27 23:05:51 +01:00
|
|
|
<< Counter << ", LocVT, LocInfo));\n";
|
|
|
|
O << IndentStr << "return false;\n";
|
|
|
|
} else if (Action->isSubClassOf("CCPromoteToType")) {
|
2007-02-28 05:43:48 +01:00
|
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
|
|
O << IndentStr << "LocVT = " << getEnumName(getValueType(DestTy)) <<";\n";
|
2008-03-21 10:14:45 +01:00
|
|
|
O << IndentStr << "if (ArgFlags.isSExt())\n"
|
2007-03-07 17:25:09 +01:00
|
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::SExt;\n"
|
2008-03-21 10:14:45 +01:00
|
|
|
<< IndentStr << "else if (ArgFlags.isZExt())\n"
|
2007-03-07 17:25:09 +01:00
|
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::ZExt;\n"
|
|
|
|
<< IndentStr << "else\n"
|
|
|
|
<< IndentStr << IndentStr << "LocInfo = CCValAssign::AExt;\n";
|
2009-04-17 21:07:39 +02:00
|
|
|
} else if (Action->isSubClassOf("CCBitConvertToType")) {
|
|
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
|
|
O << IndentStr << "LocVT = " << getEnumName(getValueType(DestTy)) <<";\n";
|
|
|
|
O << IndentStr << "LocInfo = CCValAssign::BCvt;\n";
|
2009-08-03 10:13:56 +02:00
|
|
|
} else if (Action->isSubClassOf("CCPassIndirect")) {
|
|
|
|
Record *DestTy = Action->getValueAsDef("DestTy");
|
|
|
|
O << IndentStr << "LocVT = " << getEnumName(getValueType(DestTy)) <<";\n";
|
|
|
|
O << IndentStr << "LocInfo = CCValAssign::Indirect;\n";
|
2008-01-15 04:34:58 +01:00
|
|
|
} 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";
|
2007-08-10 16:44:42 +02:00
|
|
|
O << IndentStr << "return false;\n";
|
2009-04-17 21:07:39 +02:00
|
|
|
} else if (Action->isSubClassOf("CCCustom")) {
|
|
|
|
O << IndentStr
|
|
|
|
<< "if (" << Action->getValueAsString("FuncName") << "(ValNo, ValVT, "
|
|
|
|
<< "LocVT, LocInfo, ArgFlags, State))\n";
|
|
|
|
O << IndentStr << IndentStr << "return false;\n";
|
2007-02-27 23:05:51 +01:00
|
|
|
} else {
|
|
|
|
Action->dump();
|
2012-10-25 22:33:17 +02:00
|
|
|
PrintFatalError("Unknown CCAction!");
|
2007-02-27 23:05:51 +01:00
|
|
|
}
|
|
|
|
}
|
2007-02-27 23:08:27 +01:00
|
|
|
}
|
2012-06-11 17:37:55 +02:00
|
|
|
|
|
|
|
namespace llvm {
|
|
|
|
|
|
|
|
void EmitCallingConv(RecordKeeper &RK, raw_ostream &OS) {
|
|
|
|
emitSourceFileHeader("Calling Convention Implementation Fragment", OS);
|
|
|
|
CallingConvEmitter(RK).run(OS);
|
|
|
|
}
|
|
|
|
|
|
|
|
} // End llvm namespace
|