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

Fix for array abbreviations

Browse Source
This commit is contained in:
Adam Sampson 2007-04-19 00:24:29 +00:00
parent 4b9e3a1ed5
commit 3cfbcd6055
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fco2/GenerateC.hs
View File

@ -532,7 +532,7 @@ genSlice v (A.Variable _ on) start count ds
genArrayAbbrev :: A.Variable -> (CGen (), A.Name -> CGen ())
genArrayAbbrev v
= (genVariable v, genAASize v 0)
= (tell ["&"] >> genVariable v, genAASize v 0)
where
genAASize (A.SubscriptedVariable _ (A.Subscript _ _) v) arg
= genAASize v (arg + 1)
@ -557,6 +557,11 @@ genArraySize isPtr size n
noSize :: A.Name -> CGen ()
noSize n = return ()
genVariableAM :: A.Variable -> A.AbbrevMode -> CGen ()
genVariableAM v am
= do when (am == A.Abbrev) $ tell ["&"]
genVariable v
-- | Generate the right-hand side of an abbreviation of a variable.
abbrevVariable :: A.AbbrevMode -> A.Type -> A.Variable -> (CGen (), A.Name -> CGen ())
abbrevVariable am (A.Array _ _) v@(A.SubscriptedVariable _ (A.Subscript _ _) _)
@ -574,7 +579,7 @@ abbrevVariable am (A.Chan _) v
abbrevVariable am (A.UserDataType _) v
= (genVariable v, noSize)
abbrevVariable am t v
= (do { when (am == A.Abbrev) $ tell ["&"]; genVariable v }, noSize)
= (genVariableAM v am, noSize)
-- | Generate the right-hand side of an abbreviation of an expression.
abbrevExpression :: A.AbbrevMode -> A.Type -> A.Expression -> (CGen (), A.Name -> CGen ())