diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-19 02:36:56 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-19 02:36:56 -0600 |
| commit | 0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e (patch) | |
| tree | c0c58bc9d4ae044624c039b3004b86fdc7cbbdc7 /src/Language/Fiddle/Compiler/Backend/C.hs | |
| parent | e9ed9fe9aae2c0ac913cf1d175166e983e0a1b30 (diff) | |
| download | fiddle-0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e.tar.gz fiddle-0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e.tar.bz2 fiddle-0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e.zip | |
Change the AST to use Names instead of Identifiers for ObjDecls and BitsDecls
This is to make anonymous expansion better and cleaner. It gets rid of
the hash-mark hack introduced earlier.
Diffstat (limited to 'src/Language/Fiddle/Compiler/Backend/C.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Backend/C.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Language/Fiddle/Compiler/Backend/C.hs b/src/Language/Fiddle/Compiler/Backend/C.hs index f4132c6..79c81b1 100644 --- a/src/Language/Fiddle/Compiler/Backend/C.hs +++ b/src/Language/Fiddle/Compiler/Backend/C.hs @@ -284,7 +284,13 @@ writeRegSet tell $ Text.pack $ printf " o->%s[%d] = in[%d];\n" fieldName i i tell "}\n\n" -pattern DefinedBitsP :: Modifier f a -> String -> QualifiedPath String -> N Bits -> RegisterBitsTypeRef Checked f a -> RegisterBitsDecl Checked f a +pattern DefinedBitsP :: + Modifier f a -> + String -> + QualifiedPath String -> + N Bits -> + RegisterBitsTypeRef Checked f a -> + RegisterBitsDecl Checked f a pattern DefinedBitsP modifier bitsName bitsFullPath offset typeRef <- ( DefinedBits { qBitsMetadata = |