diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
| commit | 5924b745fbaf52000981c298ec8f18b3c0c4a1be (patch) | |
| tree | bfbc9398ab6b918eca35961c26126d92f748e8d3 /src/Language/Fiddle/Parser.hs | |
| parent | da0d596946cf21e2f275dd03b40c0a6c0824f66b (diff) | |
| download | fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.gz fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.bz2 fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.zip | |
Start implementing a bunch of the C backend.
Have basic implementations down for coarse registers. Working on getting
bitfields supported.
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
| -rw-r--r-- | src/Language/Fiddle/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index 8070c1c..ebbd51b 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -207,14 +207,14 @@ objTypeDeclP = ) <|> ( do tok_ KWReserved - ReservedDecl Vacant Vacant <$> exprInParenP + ReservedDecl Witness <$> exprInParenP ) <|> ( do bt <- bodyTypeP TypeSubStructure <$> defer body (objTypeBodyP bt) <*> optionMaybe ident ) <|> ( do - modifier <- optionMaybe modifierP + modifier <- Perhaps <$> optionMaybe modifierP tok_ KWReg RegisterDecl Vacant modifier . Perhaps <$> optionMaybe ident |