Allowed direction specifiers to be added to variables that are channel bundles when they are passed as arguments

2009-04-12 13:51:48 +00:00 · 2009-04-12 13:51:48 +00:00 · aa10b0113d
commit aa10b0113d
parent da43dcb3f5
1 changed files with 1 additions and 0 deletions
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@ -1914,6 +1914,7 @@ actual (A.Formal am t n)
              case stripArrayType t of
                A.Chan {} -> var directedChannel <|> chanArray
                A.ChanEnd {} -> var directedChannel <|> chanArray
+                A.ChanDataType {} -> var directedChannel
                A.Timer {} -> var timer
                A.Port _ -> var port
                _ -> var variable