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

Fixed a small problem with the types of arrays of channel-ends in the C++ generation

Browse Source
This commit is contained in:
Neil Brown 2009-02-10 22:21:13 +00:00
parent 6d5c01ac69
commit 18f23bf767
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
backends/GenerateC.hs
View File

@ -1319,8 +1319,12 @@ cintroduceSpec (A.Specification _ n (A.IsExpr _ am t e))
rhs
tell [";\n"]
cintroduceSpec (A.Specification _ n (A.IsChannelArray _ (A.Array _ c) cs))
= do call genType c
tell ["*"]
= do call genType c
case c of
A.Chan _ _ -> tell ["*"]
-- Channel ends don't need an extra indirection; in C++ they are not
-- pointers, and in C they are already pointers
_ -> return ()
call genArrayStoreName n
tell ["[]={"]
seqComma (map (call genVariable) cs)