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

Fixed directed variables (for the C++ backend)

Browse Source
This commit is contained in:
Neil Brown 2009-03-21 21:01:25 +00:00
parent 8e768e2b25
commit b6b0577ecd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
backends/GenerateC.hs
View File

@ -761,7 +761,10 @@ cgenVariableWithAM checkValid v mam
return (tell ["("] >> cast >> tell ["(("] >> cg >> tell [")->data))"] return (tell ["("] >> cast >> tell ["(("] >> cg >> tell [")->data))"]
, Pointer $ innerCT) , Pointer $ innerCT)
_ -> inner v _ -> inner v
inner (A.DirectedVariable _ _ v) = inner v inner (A.DirectedVariable _ dir v)
= do (cg, ct) <- inner v
t <- astTypeOf v
return (call genDirectedVariable m t cg dir, ct)
inner sv@(A.SubscriptedVariable m sub v) inner sv@(A.SubscriptedVariable m sub v)
= case sub of = case sub of
A.Subscript _ subCheck _ A.Subscript _ subCheck _