mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-01-05 12:31:33 +00:00
Let SetValue Take and Init Name
Convert SetValue to take the value name as an Init. This allows us to set values for variables whose names are not yet fully resolved. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@142499 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
30c2225b3c
commit
917924d991
@ -79,7 +79,7 @@ bool TGParser::AddValue(Record *CurRec, SMLoc Loc, const RecordVal &RV) {
|
||||
|
||||
/// SetValue -
|
||||
/// Return true on error, false on success.
|
||||
bool TGParser::SetValue(Record *CurRec, SMLoc Loc, const std::string &ValName,
|
||||
bool TGParser::SetValue(Record *CurRec, SMLoc Loc, Init *ValName,
|
||||
const std::vector<unsigned> &BitList, Init *V) {
|
||||
if (!V) return false;
|
||||
|
||||
@ -87,13 +87,14 @@ bool TGParser::SetValue(Record *CurRec, SMLoc Loc, const std::string &ValName,
|
||||
|
||||
RecordVal *RV = CurRec->getValue(ValName);
|
||||
if (RV == 0)
|
||||
return Error(Loc, "Value '" + ValName + "' unknown!");
|
||||
return Error(Loc, "Value '" + ValName->getAsUnquotedString()
|
||||
+ "' unknown!");
|
||||
|
||||
// Do not allow assignments like 'X = X'. This will just cause infinite loops
|
||||
// in the resolution machinery.
|
||||
if (BitList.empty())
|
||||
if (VarInit *VI = dynamic_cast<VarInit*>(V))
|
||||
if (VI->getName() == ValName)
|
||||
if (VI->getNameInit() == ValName)
|
||||
return false;
|
||||
|
||||
// If we are assigning to a subset of the bits in the value... then we must be
|
||||
@ -103,7 +104,8 @@ bool TGParser::SetValue(Record *CurRec, SMLoc Loc, const std::string &ValName,
|
||||
if (!BitList.empty()) {
|
||||
BitsInit *CurVal = dynamic_cast<BitsInit*>(RV->getValue());
|
||||
if (CurVal == 0)
|
||||
return Error(Loc, "Value '" + ValName + "' is not a bits type");
|
||||
return Error(Loc, "Value '" + ValName->getAsUnquotedString()
|
||||
+ "' is not a bits type");
|
||||
|
||||
// Convert the incoming value to a bits type of the appropriate size...
|
||||
Init *BI = V->convertInitializerTo(BitsRecTy::get(BitList.size()));
|
||||
@ -123,7 +125,7 @@ bool TGParser::SetValue(Record *CurRec, SMLoc Loc, const std::string &ValName,
|
||||
unsigned Bit = BitList[i];
|
||||
if (NewBits[Bit])
|
||||
return Error(Loc, "Cannot set bit #" + utostr(Bit) + " of value '" +
|
||||
ValName + "' more than once");
|
||||
ValName->getAsUnquotedString() + "' more than once");
|
||||
NewBits[Bit] = BInit->getBit(i);
|
||||
}
|
||||
|
||||
@ -135,9 +137,10 @@ bool TGParser::SetValue(Record *CurRec, SMLoc Loc, const std::string &ValName,
|
||||
}
|
||||
|
||||
if (RV->setValue(V))
|
||||
return Error(Loc, "Value '" + ValName + "' of type '" +
|
||||
RV->getType()->getAsString() +
|
||||
"' is incompatible with initializer '" + V->getAsString() +"'");
|
||||
return Error(Loc, "Value '" + ValName->getAsUnquotedString() + "' of type '"
|
||||
+ RV->getType()->getAsString() +
|
||||
"' is incompatible with initializer '" + V->getAsString()
|
||||
+ "'");
|
||||
return false;
|
||||
}
|
||||
|
||||
|
@ -14,6 +14,7 @@
|
||||
#ifndef TGPARSER_H
|
||||
#define TGPARSER_H
|
||||
|
||||
#include "llvm/TableGen/Record.h"
|
||||
#include "TGLexer.h"
|
||||
#include "llvm/TableGen/Error.h"
|
||||
#include "llvm/ADT/Twine.h"
|
||||
@ -72,8 +73,12 @@ public:
|
||||
}
|
||||
private: // Semantic analysis methods.
|
||||
bool AddValue(Record *TheRec, SMLoc Loc, const RecordVal &RV);
|
||||
bool SetValue(Record *TheRec, SMLoc Loc, const std::string &ValName,
|
||||
bool SetValue(Record *TheRec, SMLoc Loc, Init *ValName,
|
||||
const std::vector<unsigned> &BitList, Init *V);
|
||||
bool SetValue(Record *TheRec, SMLoc Loc, const std::string &ValName,
|
||||
const std::vector<unsigned> &BitList, Init *V) {
|
||||
return SetValue(TheRec, Loc, StringInit::get(ValName), BitList, V);
|
||||
}
|
||||
bool AddSubClass(Record *Rec, SubClassReference &SubClass);
|
||||
bool AddSubMultiClass(MultiClass *CurMC,
|
||||
SubMultiClassReference &SubMultiClass);
|
||||
|
Loading…
Reference in New Issue
Block a user