Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
ddd8dea0
Commit
ddd8dea0
authored
Jun 04, 2008
by
Simon Marlow
Browse files
fix pointer tagging bug in removeIndirections (fixes stableptr003)
parent
bf0ab2d9
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Stable.c
View file @
ddd8dea0
...
...
@@ -195,9 +195,11 @@ removeIndirections(StgClosure* p)
get_itbl
(
q
)
->
type
==
IND_OLDGEN
||
get_itbl
(
q
)
->
type
==
IND_PERM
||
get_itbl
(
q
)
->
type
==
IND_OLDGEN_PERM
)
{
q
=
((
StgInd
*
)
q
)
->
indirectee
;
tag
=
GET_CLOSURE_TAG
(
q
);
q
=
UNTAG_CLOSURE
(
((
StgInd
*
)
q
)
->
indirectee
);
q
=
UNTAG_CLOSURE
(
q
);
}
return
TAG_CLOSURE
(
tag
,
q
);
}
...
...
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