Skip to content
GitLab
Menu
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
68ded3ed
Commit
68ded3ed
authored
Apr 26, 2005
by
simonmar
Browse files
[project @ 2005-04-26 15:44:48 by simonmar]
resetStaticObjectForRetainerProfiling: catch up changes in ClosureMacros.h
parent
f6aa7ddc
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/RetainerProfile.c
View file @
68ded3ed
...
@@ -1851,19 +1851,19 @@ resetStaticObjectForRetainerProfiling( void )
...
@@ -1851,19 +1851,19 @@ resetStaticObjectForRetainerProfiling( void )
// Since we do not compute the retainer set of any
// Since we do not compute the retainer set of any
// IND_STATIC object, we don't have to reset its retainer
// IND_STATIC object, we don't have to reset its retainer
// field.
// field.
p
=
(
StgClosure
*
)
IND_STATIC_LINK
(
p
);
p
=
(
StgClosure
*
)
*
IND_STATIC_LINK
(
p
);
break
;
break
;
case
THUNK_STATIC
:
case
THUNK_STATIC
:
maybeInitRetainerSet
(
p
);
maybeInitRetainerSet
(
p
);
p
=
(
StgClosure
*
)
THUNK_STATIC_LINK
(
p
);
p
=
(
StgClosure
*
)
*
THUNK_STATIC_LINK
(
p
);
break
;
break
;
case
FUN_STATIC
:
case
FUN_STATIC
:
maybeInitRetainerSet
(
p
);
maybeInitRetainerSet
(
p
);
p
=
(
StgClosure
*
)
FUN_STATIC_LINK
(
p
);
p
=
(
StgClosure
*
)
*
FUN_STATIC_LINK
(
p
);
break
;
break
;
case
CONSTR_STATIC
:
case
CONSTR_STATIC
:
maybeInitRetainerSet
(
p
);
maybeInitRetainerSet
(
p
);
p
=
(
StgClosure
*
)
STATIC_LINK
(
get_itbl
(
p
),
p
);
p
=
(
StgClosure
*
)
*
STATIC_LINK
(
get_itbl
(
p
),
p
);
break
;
break
;
default:
default:
barf
(
"resetStaticObjectForRetainerProfiling: %p (%s)"
,
barf
(
"resetStaticObjectForRetainerProfiling: %p (%s)"
,
...
...
Write
Preview
Supports
Markdown
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