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

18
backends/BackendPasses.hs
View File

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