X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fstorage%2FSMinit.lc;h=6b1ec5f9440b4efff1a0b356a565e2a7ee0e0aa2;hb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;hp=cff23ba7a7c5c16d61b8111947a19a8881256ba3;hpb=a29ea442a7b893af60633b370bc7a0459cd3e072;p=ghc-hetmet.git

diff --git a/ghc/runtime/storage/SMinit.lc b/ghc/runtime/storage/SMinit.lc
index cff23ba..6b1ec5f 100644
--- 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;
-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_min      = 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;
 
+/*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 */