projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't overwrite old memory with 0xaa when doing a realloc
[ghc-hetmet.git]
/
rts
/
sm
/
Compact.c
diff --git
a/rts/sm/Compact.c
b/rts/sm/Compact.c
index
f50c994
..
683dfe6
100644
(file)
--- a/
rts/sm/Compact.c
+++ b/
rts/sm/Compact.c
@@
-1,9
+1,14
@@
/* -----------------------------------------------------------------------------
*
/* -----------------------------------------------------------------------------
*
- * (c) The GHC Team 2001
+ * (c) The GHC Team 2001-2006
*
* Compacting garbage collector
*
*
* Compacting garbage collector
*
+ * Documentation on the architecture of the Garbage Collector can be
+ * found in the online commentary:
+ *
+ * http://hackage.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
+ *
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
@@
-11,8
+16,6
@@
#include "RtsUtils.h"
#include "RtsFlags.h"
#include "OSThreads.h"
#include "RtsUtils.h"
#include "RtsFlags.h"
#include "OSThreads.h"
-#include "Storage.h"
-#include "Stable.h"
#include "BlockAlloc.h"
#include "MBlock.h"
#include "GC.h"
#include "BlockAlloc.h"
#include "MBlock.h"
#include "GC.h"
@@
-398,10
+401,6
@@
thread_TSO (StgTSO *tso)
if ( tso->why_blocked == BlockedOnMVar
|| tso->why_blocked == BlockedOnBlackHole
|| tso->why_blocked == BlockedOnException
if ( tso->why_blocked == BlockedOnMVar
|| tso->why_blocked == BlockedOnBlackHole
|| tso->why_blocked == BlockedOnException
-#if defined(PAR)
- || tso->why_blocked == BlockedOnGA
- || tso->why_blocked == BlockedOnGA_NoSend
-#endif
) {
thread_(&tso->block_info.closure);
}
) {
thread_(&tso->block_info.closure);
}
@@
-703,10
+702,6
@@
update_fwd( bdescr *blocks )
bd = blocks;
bd = blocks;
-#if defined(PAR)
- barf("update_fwd: ToDo");
-#endif
-
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;
@@
-735,10
+730,6
@@
update_fwd_compact( bdescr *blocks )
free_bd = blocks;
free = free_bd->start;
free_bd = blocks;
free = free_bd->start;
-#if defined(PAR)
- barf("update_fwd: ToDo");
-#endif
-
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;
@@
-818,10
+809,6
@@
update_bkwd_compact( step *stp )
free = free_bd->start;
free_blocks = 1;
free = free_bd->start;
free_blocks = 1;
-#if defined(PAR)
- barf("update_bkwd: ToDo");
-#endif
-
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;
// cycle through all the blocks in the step
for (; bd != NULL; bd = bd->link) {
p = bd->start;