suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed the implicit mobility module (it was only broken for Rain anyway)

Browse Source
This commit is contained in:
Neil Brown 2009-04-08 12:15:11 +00:00
parent 1ea35c6715
commit adf046a30e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
transformations/ImplicitMobility.hs
View File

@ -62,10 +62,12 @@ effectDecision targetVar (Copy _) (AlterProcess wrapper) = routeModify wrapper a
then return $ A.CloneMobile m' $ A.ExprVariable m' v then return $ A.CloneMobile m' $ A.ExprVariable m' v
else return e else return e
-- TODO handle concat expressions with repeated vars -- TODO handle concat expressions with repeated vars
{-
A.Dyadic m A.Concat lhs rhs -> A.Dyadic m A.Concat lhs rhs ->
do lhs' <- derefExp lhs do lhs' <- derefExp lhs
rhs' <- derefExp rhs rhs' <- derefExp rhs
return $ A.Dyadic m A.Concat lhs' rhs' return $ A.Dyadic m A.Concat lhs' rhs'
-}
_ -> return e _ -> return e
alterProc :: A.Process -> PassM A.Process alterProc :: A.Process -> PassM A.Process
alterProc (A.Assign m lhs (A.ExpressionList m' [e])) alterProc (A.Assign m lhs (A.ExpressionList m' [e]))