From 673c99472da3de2d52bd29fec91978166f008766 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Wed, 27 Nov 2024 13:16:06 -0700 Subject: Add metadata information to the BitsSubStructure and compile it correctly. --- src/Language/Fiddle/Compiler/ConsistencyCheck.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/Language/Fiddle/Compiler/ConsistencyCheck.hs') diff --git a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs index f85d9d4..c4924da 100644 --- a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs +++ b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs @@ -299,9 +299,11 @@ advanceDecl offset = \case (size,) <$> (DefinedBits qmeta' mod ident <$> advanceStage () typ <*> pure annot) - BitsSubStructure subBody subName ann -> do - (sz, body') <- advanceRegisterBody offset subBody - return (sz, BitsSubStructure body' subName ann) + BitsSubStructure qmeta modifier subBody subName ann -> do + (size, body') <- advanceRegisterBody offset subBody + let span = Present (FieldSpan offset size) + qmeta' = fmap (\q -> q {bitsSpan = span}) qmeta + return (size, BitsSubStructure qmeta' modifier body' subName ann) bitsTypeSize :: RegisterBitsTypeRef S F A -> M (N Bits) bitsTypeSize (RegisterBitsArray tr nExpr _) = do -- cgit