projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dcecd7a
)
add a ToDo, reference bug #1147
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 14 Feb 2007 14:47:16 +0000
(14:47 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 14 Feb 2007 14:47:16 +0000
(14:47 +0000)
rts/sm/Compact.c
patch
|
blob
|
history
diff --git
a/rts/sm/Compact.c
b/rts/sm/Compact.c
index
683dfe6
..
5cef816
100644
(file)
--- a/
rts/sm/Compact.c
+++ b/
rts/sm/Compact.c
@@
-766,6
+766,10
@@
update_fwd_compact( bdescr *blocks )
// know the destination without the size, because we may
// spill into the next block. So we have to run down the
// threaded list and get the info ptr first.
+ //
+ // ToDo: one possible avenue of attack is to use the fact
+ // that if (p&BLOCK_MASK) >= (free&BLOCK_MASK), then we
+ // definitely have enough room. Also see bug #1147.
info = get_threaded_info(p);
q = p;