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

Disabled the pass that checks for unused variables for now as it runs too slowly

Browse Source
This commit is contained in:
Neil Brown 2009-01-28 15:48:31 +00:00
parent 5a10e94c6a
commit effa8189b1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
checks/Check.hs
View File

@ -571,5 +571,5 @@ checkUnusedVar = forAnyASTStructBottomUpAccum doSpec
when (not $ A.nameName name `elem` map A.nameName usedNames) $ when (not $ A.nameName name `elem` map A.nameName usedNames) $
do warnPC mspec WarnUnusedVariable $ formatCode "Unused variable: %" name do warnPC mspec WarnUnusedVariable $ formatCode "Unused variable: %" name
modify (\st -> st { csNames = Map.delete (A.nameName name) (csNames st) }) modify (\st -> st { csNames = Map.delete (A.nameName name) (csNames st) })
substitute scope -- substitute scope
doSpec _ = return () doSpec _ = return ()

4
pass/PassList.hs
View File

@ -68,8 +68,8 @@ commonPasses opts = concat $
, enablePassesWhen csUsageChecking , enablePassesWhen csUsageChecking
[abbrevCheckPass] [abbrevCheckPass]
, backendPasses , backendPasses
-- , [pass "Removing unused variables" [] [] , [pass "Removing unused variables" [] []
-- (passOnlyOnAST "checkUnusedVar" (runChecks checkUnusedVar))] (passOnlyOnAST "checkUnusedVar" (runChecks checkUnusedVar))]
] ]
filterPasses :: CompState -> [Pass t] -> [Pass t] filterPasses :: CompState -> [Pass t] -> [Pass t]