Stopped abbreviations of arrays of records being pulled up

2009-04-08 12:13:23 +00:00 · 2009-04-08 12:13:23 +00:00 · 1e21895276
commit 1e21895276
parent dc64b5e664
1 changed files with 1 additions and 0 deletions
--- a/transformations/Unnest.hs
+++ b/transformations/Unnest.hs
@ -236,6 +236,7 @@ removeNesting = pass "Pull nested definitions to top level"
    -- C doesn't allow us to pull up pointers to records to the top-level
    abbrevRecord :: A.SpecType -> Bool
    abbrevRecord (A.Is _ _ (A.Record {}) _) = True
+    abbrevRecord (A.Is _ _ (A.Array _ (A.Record {})) _) = True
    abbrevRecord _ = False