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

Format a NameDef constant more nicely.

Browse Source
This commit is contained in:
Adam Sampson 2008-05-26 17:17:59 +00:00
parent a7877ecd68
commit d9e00294f9
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backends/BackendPasses.hs
View File

@ -84,14 +84,14 @@ declareSizesArray = applyDepthSM doStructured
where where
defineSizesName :: Meta -> A.Name -> A.SpecType -> PassM () defineSizesName :: Meta -> A.Name -> A.SpecType -> PassM ()
defineSizesName m n spec defineSizesName m n spec
= defineName n $ A.NameDef { = defineName n $ A.NameDef { A.ndMeta = m
A.ndMeta = m
, A.ndName = A.nameName n , A.ndName = A.nameName n
, A.ndOrigName = A.nameName n , A.ndOrigName = A.nameName n
, A.ndNameType = A.VariableName , A.ndNameType = A.VariableName
, A.ndSpecType = spec , A.ndSpecType = spec
, A.ndAbbrevMode = A.ValAbbrev , A.ndAbbrevMode = A.ValAbbrev
,A.ndPlacement = A.Unplaced} , A.ndPlacement = A.Unplaced
}
-- Strips all the array subscripts from a variable: -- Strips all the array subscripts from a variable:
findInnerVar :: A.Variable -> (Maybe A.Expression, A.Variable) findInnerVar :: A.Variable -> (Maybe A.Expression, A.Variable)