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

18
backends/BackendPasses.hs
View File

@ -84,15 +84,15 @@ 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)
findInnerVar wv@(A.SubscriptedVariable m sub v) = case sub of findInnerVar wv@(A.SubscriptedVariable m sub v) = case sub of