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

Fixed generation of actuals that are ActualExpression (ExprVariable {})

Browse Source
This commit is contained in:
Neil Brown 2009-03-31 16:08:37 +00:00
parent 3566c6206f
commit 91ce2fe960
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backends/GenerateC.hs
View File

@ -1510,6 +1510,8 @@ cgenActual f a = seqComma $ realActuals f a id
-- | Return generators for all the real actuals corresponding to a single
-- actual.
realActuals :: A.Formal -> A.Actual -> (CType -> CType) -> [CGen ()]
realActuals (A.Formal am _ _) (A.ActualExpression (A.ExprVariable _ v)) fct
= [call genVariable' v am fct]
realActuals _ (A.ActualExpression e) _
= [call genExpression e]
realActuals (A.Formal am _ _) (A.ActualVariable v) fct