projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-01-10 12:38:57 by partain]
[ghc-hetmet.git]
/
ghc
/
runtime
/
storage
/
SMinit.lc
diff --git
a/ghc/runtime/storage/SMinit.lc
b/ghc/runtime/storage/SMinit.lc
index
cff23ba
..
6b1ec5f
100644
(file)
--- a/
ghc/runtime/storage/SMinit.lc
+++ b/
ghc/runtime/storage/SMinit.lc
@@
-19,18
+19,19
@@
A filehandle to which any storage-manager statistics should be written.
/* global vars to hold some storage-mgr details; */
/* decls for these are in SMinternal.h */
I_ SM_force_gc = 0;
/* global vars to hold some storage-mgr details; */
/* decls for these are in SMinternal.h */
I_ SM_force_gc = 0;
-I_ SM_word_heap_size = DEFAULT_HEAP_SIZE;
-I_ SM_alloc_min = 0;
-StgFloat SM_pc_free_heap = DEFAULT_PC_FREE;
I_ SM_alloc_size = 0;
I_ SM_alloc_size = 0;
+I_ SM_alloc_min = 0;
I_ SM_major_gen_size = 0;
I_ SM_major_gen_size = 0;
-I_ SM_word_stk_size = DEFAULT_STACKS_SIZE;
FILE *SM_statsfile = NULL;
I_ SM_trace = 0;
I_ SM_stats_summary = 0;
I_ SM_stats_verbose = 0;
I_ SM_ring_bell = 0;
FILE *SM_statsfile = NULL;
I_ SM_trace = 0;
I_ SM_stats_summary = 0;
I_ SM_stats_verbose = 0;
I_ SM_ring_bell = 0;
+/*To SizeHooks: I_ SM_word_heap_size = DEFAULT_HEAP_SIZE; */
+/*To SizeHooks: StgFloat SM_pc_free_heap = DEFAULT_PC_FREE; */
+extern I_ SM_word_stk_size; /*To SizeHooks: = DEFAULT_STACKS_SIZE; */
+
I_ MaxResidency = 0; /* in words; for stats only */
I_ ResidencySamples = 0; /* for stats only */
I_ MaxResidency = 0; /* in words; for stats only */
I_ ResidencySamples = 0; /* for stats only */