diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler/ConsistencyCheck.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/ConsistencyCheck.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |