projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
comments only
[ghc-hetmet.git]
/
rts
/
sm
/
BlockAlloc.c
diff --git
a/rts/sm/BlockAlloc.c
b/rts/sm/BlockAlloc.c
index
9d92c6b
..
484c0d4
100644
(file)
--- a/
rts/sm/BlockAlloc.c
+++ b/
rts/sm/BlockAlloc.c
@@
-26,9
+26,6
@@
static void initMBlock(void *mblock);
static void initMBlock(void *mblock);
-// The free_list is kept sorted by size, smallest first.
-// In THREADED_RTS mode, the free list is protected by sm_mutex.
-
/* -----------------------------------------------------------------------------
Implementation notes
/* -----------------------------------------------------------------------------
Implementation notes
@@
-123,6
+120,8
@@
static void initMBlock(void *mblock);
#define MAX_FREE_LIST 9
#define MAX_FREE_LIST 9
+// In THREADED_RTS mode, the free list is protected by sm_mutex.
+
static bdescr *free_list[MAX_FREE_LIST];
static bdescr *free_mblock_list;
static bdescr *free_list[MAX_FREE_LIST];
static bdescr *free_mblock_list;