Fixed array constructor types that have been lifted to mobile arrays

2009-03-22 21:05:05 +00:00 · 2009-03-22 21:05:05 +00:00 · 9913bddb28
commit 9913bddb28
parent 12b3c4cd89
1 changed files with 2 additions and 0 deletions
--- a/frontends/OccamPasses.hs
+++ b/frontends/OccamPasses.hs
@ -83,6 +83,8 @@ fixConstructorTypes = occamOnlyPass "Fix the types of array constructors"
        doExpr _ dims s = diePC (findMeta s) $ formatCode
          ("fixConstructorTypes found unexpected: %, " ++ show s) dims

+    doExpression (A.AllocMobile m _ e@(Just (A.Literal _ t (A.ArrayListLiteral {}))))
+       = return $ A.AllocMobile m (A.Mobile t) e
    doExpression e = return e

 -- | Handle ambiguities in the occam syntax that the parser can't resolve.