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

Realised that my optimisation for the usage checking had the condition the wrong way round

Browse Source 
This explains why all the usage tests began to fail...
This commit is contained in:
Neil Brown 2009-04-17 19:27:41 +00:00
parent 026eb737b6
commit 4ecc8077ce
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
checks/ArrayUsageCheck.hs
View File

@ -100,10 +100,11 @@ findRepSolutions reps bks
-- for any overlapping array indices. -- for any overlapping array indices.
checkArrayUsage :: forall m. (Die m, CSMR m, MonadIO m) => NameAttr -> (Meta, ParItems (BK, UsageLabel)) -> m () checkArrayUsage :: forall m. (Die m, CSMR m, MonadIO m) => NameAttr -> (Meta, ParItems (BK, UsageLabel)) -> m ()
checkArrayUsage sharedAttr (m,p) checkArrayUsage sharedAttr (m,p)
= do debug $ "checkArrayUsage: " ++ show m = do indexes <- groupArrayIndexes $ fmap (transformPair id nodeVars) p
indexes <- groupArrayIndexes $ fmap (transformPair id nodeVars) p let filteredIndexes = Map.toList $ Map.filter
mapM_ (checkIndexes m) $ Map.toList $ Map.filter ((>= 1) . length . map (\(_,w,r) -> w++r) . F.toList) indexes
((<= 1) . length . map (\(_,w,r) -> w++r) . F.toList) indexes debug $ "checkArrayUsage: " ++ show m ++ ", " ++ show (length filteredIndexes)
mapM_ (checkIndexes m) filteredIndexes
where where
getDecl :: UsageLabel -> Maybe String getDecl :: UsageLabel -> Maybe String
getDecl = join . fmap getScopeIn . nodeDecl getDecl = join . fmap getScopeIn . nodeDecl