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
90490258
Commit
90490258
authored
May 26, 2010
by
Marco Túlio Gontijo e Silva
Browse files
rts/sm/GC.c: Annotate constants.
parent
d06fb840
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/sm/GC.c
View file @
90490258
...
...
@@ -1115,8 +1115,8 @@ gcWorkerThread (Capability *cap)
void
waitForGcThreads
(
Capability
*
cap
USED_IF_THREADS
)
{
nat
n_threads
=
RtsFlags
.
ParFlags
.
nNodes
;
nat
me
=
cap
->
no
;
const
nat
n_threads
=
RtsFlags
.
ParFlags
.
nNodes
;
const
nat
me
=
cap
->
no
;
nat
i
,
j
;
rtsBool
retry
=
rtsTrue
;
...
...
@@ -1190,8 +1190,8 @@ shutdown_gc_threads (nat n_threads USED_IF_THREADS, nat me USED_IF_THREADS)
void
releaseGCThreads
(
Capability
*
cap
USED_IF_THREADS
)
{
nat
n_threads
=
RtsFlags
.
ParFlags
.
nNodes
;
nat
me
=
cap
->
no
;
const
nat
n_threads
=
RtsFlags
.
ParFlags
.
nNodes
;
const
nat
me
=
cap
->
no
;
nat
i
;
for
(
i
=
0
;
i
<
n_threads
;
i
++
)
{
if
(
i
==
me
)
continue
;
...
...
@@ -1478,8 +1478,8 @@ resize_generations (void)
if
(
major_gc
&&
RtsFlags
.
GcFlags
.
generations
>
1
)
{
nat
live
,
size
,
min_alloc
,
words
;
nat
max
=
RtsFlags
.
GcFlags
.
maxHeapSize
;
nat
gens
=
RtsFlags
.
GcFlags
.
generations
;
const
nat
max
=
RtsFlags
.
GcFlags
.
maxHeapSize
;
const
nat
gens
=
RtsFlags
.
GcFlags
.
generations
;
// live in the oldest generations
if
(
oldest_gen
->
live_estimate
!=
0
)
{
...
...
@@ -1568,7 +1568,7 @@ resize_generations (void)
static
void
resize_nursery
(
void
)
{
lnat
min_nursery
=
RtsFlags
.
GcFlags
.
minAllocAreaSize
*
n_capabilities
;
const
lnat
min_nursery
=
RtsFlags
.
GcFlags
.
minAllocAreaSize
*
n_capabilities
;
if
(
RtsFlags
.
GcFlags
.
generations
==
1
)
{
// Two-space collector:
...
...
@@ -1628,7 +1628,7 @@ resize_nursery (void)
if
(
RtsFlags
.
GcFlags
.
heapSizeSuggestion
)
{
long
blocks
;
nat
needed
=
calcNeeded
();
// approx blocks needed at next GC
const
nat
needed
=
calcNeeded
();
// approx blocks needed at next GC
/* Guess how much will be live in generation 0 step 0 next time.
* A good approximation is obtained by finding the
...
...
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