Fixed retyping non-packed records into arrays

2009-03-31 16:08:24 +00:00 · 2009-03-31 16:08:24 +00:00 · 3566c6206f
commit 3566c6206f
parent 9f5b685c02
1 changed files with 3 additions and 0 deletions
--- a/backends/BackendPasses.hs
+++ b/backends/BackendPasses.hs
@ -287,6 +287,9 @@ declareSizesArray = occamOnlyPass "Declare array-size arrays"
                                -- element of its _sizes array.
                                A.UnknownDimension -> A.ExprVariable m $ specificDimSize i v
                              | (d, i) <- zip ds [0..]]
+                -- Must be an unpacked record if it's not BIJust:
+                (_, A.Record {}) ->
+                  return $ A.BytesInType m tSrc
                _ -> dieP m "Cannot compute size of source type"

            -- Build the _sizes array for the destination.