Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
190c555e
Commit
190c555e
authored
Aug 03, 2012
by
Simon Marlow
Browse files
fix warning
parent
7db26e00
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmSink.hs
View file @
190c555e
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment