From 83cfdf2bd4f9815a67576a0e34ef8b2bf19492aa Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Wed, 27 Nov 2024 11:21:40 -0700
Subject: Fix bug where fiddle was incorrectly calculating the size of
 sub-bitfields structs

---
 src/Language/Fiddle/Compiler/ConsistencyCheck.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Language/Fiddle/Compiler')

diff --git a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
index c34007f..f85d9d4 100644
--- a/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
+++ b/src/Language/Fiddle/Compiler/ConsistencyCheck.hs
@@ -258,7 +258,7 @@ advanceRegisterBody
       Union {} -> do
         checkJagged decls'
         return $ maximum (map fst decls')
-      Struct {} -> return structSize
+      Struct {} -> return (structSize - startOffset)
 
     return (calcSize, RegisterBodyPattern us (map snd $ toList decls') a b)
 
-- 
cgit