Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a1f9036c
Commit
a1f9036c
authored
Jul 26, 2005
by
simonmar
Browse files
[project @ 2005-07-26 14:44:22 by simonmar]
add missing MUT_ARR_PTRS_FROZEN0 cases
parent
37ee58b0
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/LdvProfile.c
View file @
a1f9036c
...
...
@@ -128,6 +128,7 @@ processHeapClosureForDead( StgClosure *c )
case
MUT_ARR_PTRS
:
case
MUT_ARR_PTRS_FROZEN
:
case
MUT_ARR_PTRS_FROZEN0
:
size
=
mut_arr_ptrs_sizeW
((
StgMutArrPtrs
*
)
c
);
return
size
;
...
...
ghc/rts/RetainerProfile.c
View file @
a1f9036c
...
...
@@ -523,6 +523,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
// StgMutArrPtr.ptrs, no SRT
case
MUT_ARR_PTRS
:
case
MUT_ARR_PTRS_FROZEN
:
case
MUT_ARR_PTRS_FROZEN0
:
init_ptrs
(
&
se
.
info
,
((
StgMutArrPtrs
*
)
c
)
->
ptrs
,
(
StgPtr
)(((
StgMutArrPtrs
*
)
c
)
->
payload
));
*
first_child
=
find_ptrs
(
&
se
.
info
);
...
...
@@ -821,6 +822,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
// StgMutArrPtr.ptrs, no SRT
case
MUT_ARR_PTRS
:
case
MUT_ARR_PTRS_FROZEN
:
case
MUT_ARR_PTRS_FROZEN0
:
*
c
=
find_ptrs
(
&
se
->
info
);
if
(
*
c
==
NULL
)
{
popOff
();
...
...
@@ -990,6 +992,7 @@ isRetainer( StgClosure *c )
case
MUT_VAR
:
case
MUT_ARR_PTRS
:
case
MUT_ARR_PTRS_FROZEN
:
case
MUT_ARR_PTRS_FROZEN0
:
// thunks are retainers.
case
THUNK
:
...
...
@@ -2071,6 +2074,7 @@ sanityCheckHeapClosure( StgClosure *c )
case
MUT_ARR_PTRS
:
case
MUT_ARR_PTRS_FROZEN
:
case
MUT_ARR_PTRS_FROZEN0
:
return
mut_arr_ptrs_sizeW
((
StgMutArrPtrs
*
)
c
);
case
AP
:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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