Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix parsing of labels whose name starts with an instruction

Browse source
This commit is contained in:
Joscha 2019-11-21 19:16:27 +00:00
parent fa4cd218ab
commit e546996e82
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Mima/Parse/Assembly/Statement.hs
View file

@ -27,9 +27,9 @@ lLabel = lexeme $ try $ labelName <* symbol ":"
lStatement :: Parser (Statement Address) lStatement :: Parser (Statement Address)
lStatement = lStatement =
SDirective <$> lDirective <* lNewlines try (SDirective <$> lDirective <* lNewlines)
<|> SRawInstruction <$> lRawInstruction <* lNewlines <|> try (SRawInstruction <$> lRawInstruction <* lNewlines)
<|> SLabel <$> lLabel <* many lNewline <|> (SLabel <$> lLabel <* many lNewline)
lStatements :: Parser [WithOffset (Statement Address)] lStatements :: Parser [WithOffset (Statement Address)]
lStatements = many (withOffset lStatement) lStatements = many (withOffset lStatement)