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

Make register names case insensitive

Browse source
This commit is contained in:
Joscha 2019-11-21 18:25:33 +00:00
parent 393b253d28
commit 396f07cdf1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Parse/Assembly/Directive.hs
View file

@ -40,7 +40,7 @@ lSetRegister =
<|> SetSP <$> sepBySpace "sp" address <|> SetSP <$> sepBySpace "sp" address
<|> SetFP <$> sepBySpace "fp" address <|> SetFP <$> sepBySpace "fp" address
where where
sepBySpace name parser = symbol name *> lSpace *> lexeme parser sepBySpace name parser = symbol' name *> lSpace *> lexeme parser
lWordArray :: Parser [MimaWord] lWordArray :: Parser [MimaWord]
lWordArray = open *> (word `sepBy` comma) <* close lWordArray = open *> (word `sepBy` comma) <* close