Skip to content
GitLab
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
f20fe8de
Commit
f20fe8de
authored
Mar 06, 2009
by
Ian Lynagh
Browse files
Make LDV_FILL_SLOP use a forwards loop rather than a backwards loop
parent
ea145221
Changes
2
Hide whitespace changes
Inline
Side-by-side
rts/LdvProfile.h
View file @
f20fe8de
...
...
@@ -24,11 +24,11 @@ extern void LdvCensusKillAll ( void );
// Invoked when:
// 1) Hp is incremented and exceeds HpLim (in Updates.hc).
// 2) copypart() is called (in GC.c).
#define LDV_FILL_SLOP(from, howMany
Backwards
) \
#define LDV_FILL_SLOP(from, howMany) \
if (era > 0) { \
int i; \
for (i =
1
;i <
=
(howMany
Backwards
); i++) \
((StgWord *)(from))[
-
i] = 0; \
for (i =
0
;i < (howMany); i++) \
((StgWord *)(from))[i] = 0; \
}
// Informs the LDV profiler that closure c has just been evacuated.
...
...
rts/sm/Evac.c
View file @
f20fe8de
...
...
@@ -212,7 +212,7 @@ spin:
SET_EVACUAEE_FOR_LDV
(
from
,
size_to_reserve
);
// fill the slop
if
(
size_to_reserve
-
size_to_copy
>
0
)
LDV_FILL_SLOP
(
to
+
size_to_
reserve
,
(
int
)(
size_to_reserve
-
size_to_copy
));
LDV_FILL_SLOP
(
to
+
size_to_
copy
,
(
int
)(
size_to_reserve
-
size_to_copy
));
#endif
return
rtsTrue
;
...
...
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