Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
52f50252
Commit
52f50252
authored
Dec 29, 2008
by
Ian Lynagh
Browse files
Fix warnings in CmmInfo
parent
79d422b3
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmInfo.hs
View file @
52f50252
{-# OPTIONS -w #-}
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
module
CmmInfo
(
emptyContInfoTable
,
cmmToRawCmm
,
...
...
@@ -28,7 +21,6 @@ import SMRep
import
ZipCfgCmmRep
import
Constants
import
Outputable
import
StaticFlags
import
Unique
import
UniqSupply
...
...
@@ -85,7 +77,7 @@ cmmToRawCmm cmm = do
-- * The SRT slot is only there if there is SRT info to record
mkInfoTable
::
Unique
->
CmmTop
->
[
RawCmmTop
]
mkInfoTable
uniq
(
CmmData
sec
dat
)
=
[
CmmData
sec
dat
]
mkInfoTable
_
(
CmmData
sec
dat
)
=
[
CmmData
sec
dat
]
mkInfoTable
uniq
(
CmmProc
(
CmmInfo
_
_
info
)
entry_label
arguments
blocks
)
=
case
info
of
-- Code without an info table. Easy.
...
...
@@ -133,7 +125,7 @@ mkInfoTable uniq (CmmProc (CmmInfo _ _ info) entry_label arguments blocks) =
layout
=
packHalfWordsCLit
ptrs
nptrs
-- A selector thunk.
ThunkSelectorInfo
offset
srt
->
ThunkSelectorInfo
offset
_
srt
->
mkInfoTableAndCode
info_label
std_info
[
{- no SRT -}
]
entry_label
arguments
blocks
where
...
...
@@ -193,7 +185,7 @@ mkSRTLit :: CLabel
->
C_SRT
->
([
CmmLit
],
-- srt_label
StgHalfWord
)
-- srt_bitmap
mkSRTLit
info_label
NoC_SRT
=
(
[]
,
0
)
mkSRTLit
_
NoC_SRT
=
(
[]
,
0
)
mkSRTLit
info_label
(
C_SRT
lbl
off
bitmap
)
=
([
makeRelativeRefTo
info_label
(
cmmLabelOffW
lbl
off
)],
bitmap
)
...
...
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