mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-07-26 20:26:07 +00:00
Implement irpc. Extracted from a patch by the PaX team. I just added the test.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@158604 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
@@ -277,6 +277,7 @@ private:
|
|||||||
raw_svector_ostream &OS);
|
raw_svector_ostream &OS);
|
||||||
bool ParseDirectiveRept(SMLoc DirectiveLoc); // ".rept"
|
bool ParseDirectiveRept(SMLoc DirectiveLoc); // ".rept"
|
||||||
bool ParseDirectiveIrp(SMLoc DirectiveLoc); // ".irp"
|
bool ParseDirectiveIrp(SMLoc DirectiveLoc); // ".irp"
|
||||||
|
bool ParseDirectiveIrpc(SMLoc DirectiveLoc); // ".irpc"
|
||||||
bool ParseDirectiveEndr(SMLoc DirectiveLoc); // ".endr"
|
bool ParseDirectiveEndr(SMLoc DirectiveLoc); // ".endr"
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -1280,6 +1281,8 @@ bool AsmParser::ParseStatement() {
|
|||||||
return ParseDirectiveRept(IDLoc);
|
return ParseDirectiveRept(IDLoc);
|
||||||
if (IDVal == ".irp")
|
if (IDVal == ".irp")
|
||||||
return ParseDirectiveIrp(IDLoc);
|
return ParseDirectiveIrp(IDLoc);
|
||||||
|
if (IDVal == ".irpc")
|
||||||
|
return ParseDirectiveIrpc(IDLoc);
|
||||||
if (IDVal == ".endr")
|
if (IDVal == ".endr")
|
||||||
return ParseDirectiveEndr(IDLoc);
|
return ParseDirectiveEndr(IDLoc);
|
||||||
|
|
||||||
@@ -3324,6 +3327,60 @@ bool AsmParser::ParseDirectiveIrp(SMLoc DirectiveLoc) {
|
|||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/// ParseDirectiveIrpc
|
||||||
|
/// ::= .irpc symbol,values
|
||||||
|
bool AsmParser::ParseDirectiveIrpc(SMLoc DirectiveLoc) {
|
||||||
|
std::vector<StringRef> Parameters;
|
||||||
|
StringRef Parameter;
|
||||||
|
|
||||||
|
if (ParseIdentifier(Parameter))
|
||||||
|
return TokError("expected identifier in '.irpc' directive");
|
||||||
|
|
||||||
|
Parameters.push_back(Parameter);
|
||||||
|
|
||||||
|
if (Lexer.isNot(AsmToken::Comma))
|
||||||
|
return TokError("expected comma in '.irpc' directive");
|
||||||
|
|
||||||
|
Lex();
|
||||||
|
|
||||||
|
std::vector<MacroArgument> A;
|
||||||
|
if (ParseMacroArguments(0, A))
|
||||||
|
return true;
|
||||||
|
|
||||||
|
if (A.size() != 1 || A.front().size() != 1)
|
||||||
|
return TokError("unexpected token in '.irpc' directive");
|
||||||
|
|
||||||
|
// Eat the end of statement.
|
||||||
|
Lex();
|
||||||
|
|
||||||
|
// Lex the irpc definition.
|
||||||
|
Macro *M = ParseMacroLikeBody(DirectiveLoc);
|
||||||
|
if (!M)
|
||||||
|
return true;
|
||||||
|
|
||||||
|
// Macro instantiation is lexical, unfortunately. We construct a new buffer
|
||||||
|
// to hold the macro body with substitutions.
|
||||||
|
SmallString<256> Buf;
|
||||||
|
raw_svector_ostream OS(Buf);
|
||||||
|
|
||||||
|
StringRef Values = A.front().front().getString();
|
||||||
|
std::size_t I, End = Values.size();
|
||||||
|
for (I = 0; I < End; ++I) {
|
||||||
|
MacroArgument Arg;
|
||||||
|
Arg.push_back(AsmToken(AsmToken::Identifier, Values.slice(I, I+1)));
|
||||||
|
|
||||||
|
std::vector<MacroArgument> Args;
|
||||||
|
Args.push_back(Arg);
|
||||||
|
|
||||||
|
if (expandMacro(OS, M->Body, Parameters, Args, getTok().getLoc()))
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
InstantiateMacroLikeBody(M, DirectiveLoc, OS);
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
bool AsmParser::ParseDirectiveEndr(SMLoc DirectiveLoc) {
|
bool AsmParser::ParseDirectiveEndr(SMLoc DirectiveLoc) {
|
||||||
if (ActiveMacros.empty())
|
if (ActiveMacros.empty())
|
||||||
return TokError("unexpected '.endr' directive, no current .rept");
|
return TokError("unexpected '.endr' directive, no current .rept");
|
||||||
|
9
test/MC/AsmParser/macro-irpc.s
Normal file
9
test/MC/AsmParser/macro-irpc.s
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
// RUN: llvm-mc -triple x86_64-unknown-unknown %s | FileCheck %s
|
||||||
|
|
||||||
|
.irpc foo,123
|
||||||
|
.long \foo
|
||||||
|
.endr
|
||||||
|
|
||||||
|
// CHECK: long 1
|
||||||
|
// CHECK: long 2
|
||||||
|
// CHECK: long 3
|
Reference in New Issue
Block a user