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

Yet another fix for channel array reference generation

Browse Source
This commit is contained in:
Adam Sampson 2007-04-19 17:19:20 +00:00
parent 05aad0602c
commit 67e83ad801
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fco2/GenerateC.hs
View File

@ -259,10 +259,13 @@ genVariable v
= do ps <- get
am <- checkJust $ abbrevModeOfVariable ps v
t <- checkJust $ typeOfVariable ps v
let isSub = case v of
A.Variable _ _ -> False
A.SubscriptedVariable _ _ _ -> True
let prefix = case (am, t) of
(_, A.Array _ _) -> ""
(A.Original, A.Chan _) -> "&"
(A.Original, A.Chan _) -> if isSub then "" else "&"
(A.Abbrev, A.Chan _) -> ""
(A.Original, A.UserDataType _) -> "&"
(A.Abbrev, A.UserDataType _) -> ""