From d9e00294f9675094d7d74b30fb80863f3c7d39b7 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Mon, 26 May 2008 17:17:59 +0000 Subject: [PATCH] Format a NameDef constant more nicely. --- backends/BackendPasses.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs index 0ea675c..2f53ba3 100644 --- a/backends/BackendPasses.hs +++ b/backends/BackendPasses.hs @@ -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