diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-27 13:29:33 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-27 13:29:33 -0600 |
| commit | 5d3f21123b585fb1c43da9d854b04c61678405df (patch) | |
| tree | 955c07a1f6c78de943d3c87b4f29bab55d329dbc /src/Language/Fiddle/Parser.hs | |
| parent | a584a9ca11138bae15ebc1052d596af272b3fd79 (diff) | |
| download | fiddle-5d3f21123b585fb1c43da9d854b04c61678405df.tar.gz fiddle-5d3f21123b585fb1c43da9d854b04c61678405df.tar.bz2 fiddle-5d3f21123b585fb1c43da9d854b04c61678405df.zip | |
Finish implementing alpha-version of the C-backend.
This produces valid C code in a header file and also provides an INTF
macro which makes it much less obtuse to call the various functions to
set and unset bitfields.
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
| -rw-r--r-- | src/Language/Fiddle/Parser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index 066fd2e..1bc75bc 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -254,7 +254,7 @@ registerBodyP = withMeta $ RegisterBody <$> bitBodyTypeP <*> defer body deferred deferredRegisterBodyP :: Pa DeferredRegisterBody deferredRegisterBodyP = - withMeta $ + withMetaLeaveComments $ DeferredRegisterBody <$> many (directedP registerBitsDeclP <* tok TokSemi) registerBitsDeclP :: Pa RegisterBitsDecl |