diff options
| author | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 15:55:44 +0000 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2016-02-07 20:26:42 +0000 |
| commit | 7362809b4e934d7d2024cf72ffddab7de0eab24b (patch) | |
| tree | 12ee34a2e65c7013491cf23e3f74ecf9643534d5 /rts/sm | |
| parent | 66fa0ed7087588b9c1577f44836f712f093089c1 (diff) | |
| download | haskell-7362809b4e934d7d2024cf72ffddab7de0eab24b.tar.gz | |
rts: drop unused calcLiveBlocks, calcLiveWords
Use of these helper functions was removed by
commit 18896fa2b06844407fd1e0d3f85cd3db97a96ff4
Author: Simon Marlow <marlowsd@gmail.com>
Date: Wed Feb 2 15:49:55 2011 +0000
Noticed by uselex.rb:
calcLiveBlocks: [R]: exported from:
./rts/dist/build/sm/Storage.o
calcLiveWords: [R]: exported from:
./rts/dist/build/sm/Storage.o
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/Storage.c | 26 | ||||
| -rw-r--r-- | rts/sm/Storage.h | 3 |
2 files changed, 0 insertions, 29 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 65f5b70c21..c815b9993e 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -1204,32 +1204,6 @@ W_ gcThreadLiveBlocks (nat i, nat g) return blocks; } -// Return an accurate count of the live data in the heap, excluding -// generation 0. -W_ calcLiveWords (void) -{ - nat g; - W_ live; - - live = 0; - for (g = 0; g < RtsFlags.GcFlags.generations; g++) { - live += genLiveWords(&generations[g]); - } - return live; -} - -W_ calcLiveBlocks (void) -{ - nat g; - W_ live; - - live = 0; - for (g = 0; g < RtsFlags.GcFlags.generations; g++) { - live += genLiveBlocks(&generations[g]); - } - return live; -} - /* Determine which generation will be collected next, and approximate * the maximum amount of memory that will be required to do the GC, * taking into account data that will be copied, and the space needed diff --git a/rts/sm/Storage.h b/rts/sm/Storage.h index d0094b60fb..3dd3ec0472 100644 --- a/rts/sm/Storage.h +++ b/rts/sm/Storage.h @@ -124,9 +124,6 @@ W_ gcThreadLiveBlocks (nat i, nat g); W_ genLiveWords (generation *gen); W_ genLiveBlocks (generation *gen); -W_ calcLiveBlocks (void); -W_ calcLiveWords (void); - /* ---------------------------------------------------------------------------- Storage manager internal APIs and globals ------------------------------------------------------------------------- */ |