From 0a0f200a79a9e78b97addda6bd8e879d8c1c5d3e Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sat, 19 Oct 2024 02:36:56 -0600 Subject: 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. --- src/Language/Fiddle/Compiler/Backend/C.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/Language/Fiddle/Compiler/Backend') 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 = -- cgit