Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
47e0b5e5
Commit
47e0b5e5
authored
Apr 27, 2007
by
Simon Marlow
Browse files
add the constructor name field to the info table for RTS constructors
parent
b360a336
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmParse.y
View file @
47e0b5e5
...
...
@@ -224,7 +224,7 @@ info :: { ExtFCode (CLabel, [CmmLit],[CmmLit]) }
| 'INFO_TABLE_CONSTR' '(' NAME ',' INT ',' INT ',' INT ',' INT ',' STRING ',' STRING ')'
-- ptrs, nptrs, tag, closure type, description, type
{
std
Info $3 $5 $7 $9 $11 $13 $15 }
{
con
Info $3 $5 $7 $9 $11 $13 $15 }
| 'INFO_TABLE_SELECTOR' '(' NAME ',' INT ',' INT ',' STRING ',' STRING ')'
-- selector, closure type, description, type
...
...
@@ -716,6 +716,13 @@ stdInfo name ptrs nptrs srt_bitmap cl_type desc_str ty_str =
basicInfo name (packHalfWordsCLit ptrs nptrs)
srt_bitmap cl_type desc_str ty_str
conInfo name ptrs nptrs srt_bitmap cl_type desc_str ty_str = do
(lbl, info1, _) <- basicInfo name (packHalfWordsCLit ptrs nptrs)
srt_bitmap cl_type desc_str ty_str
desc_lit <- code $ mkStringCLit desc_str
let desc_field = makeRelativeRefTo lbl desc_lit
return (lbl, info1, [desc_field])
basicInfo name layout srt_bitmap cl_type desc_str ty_str = do
lit1 <- if opt_SccProfilingOn
then code $ mkStringCLit desc_str
...
...
compiler/codeGen/CgInfoTbls.hs
View file @
47e0b5e5
...
...
@@ -21,7 +21,7 @@ module CgInfoTbls (
getConstrTag
,
infoTable
,
infoTableClosureType
,
infoTablePtrs
,
infoTableNonPtrs
,
funInfoTable
funInfoTable
,
makeRelativeRefTo
)
where
...
...
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