Permalink
Browse files

fix warning

  • Loading branch information...
1 parent 7db26e0 commit 190c555e25d3f70dd3c806f764fea07a50621520 @simonmar simonmar committed Aug 3, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 compiler/cmm/CmmSink.hs
View
@@ -316,7 +316,7 @@ tryToInline live node assigs = go usages node [] assigs
usages :: UniqFM Int
usages = foldRegsUsed addUsage emptyUFM node
- go _usages node skipped [] = (node, [])
+ go _usages node _skipped [] = (node, [])
go usages node skipped (a@(l,rhs,_) : rest)
| can_inline = inline_and_discard
@@ -373,7 +373,7 @@ addUsage :: UniqFM Int -> LocalReg -> UniqFM Int
addUsage m r = addToUFM_C (+) m r 1
regsUsedIn :: [LocalReg] -> CmmExpr -> Bool
-regsUsedIn [] e = False
+regsUsedIn [] _ = False
regsUsedIn ls e = wrapRecExpf f e False
where f (CmmReg (CmmLocal l)) _ | l `elem` ls = True
f (CmmRegOff (CmmLocal l) _) _ | l `elem` ls = True

0 comments on commit 190c555

Please sign in to comment.