X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fhooks%2FSizeHooks.lc;h=acf0d2edcf2e1652709a4ba3952e0d03ada13264;hb=f7ecf7234c224489be8a5e63fced903b655d92ee;hp=43059c11a4a3223d934e7d28601b898183136a05;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/runtime/hooks/SizeHooks.lc b/ghc/runtime/hooks/SizeHooks.lc
index 43059c1..acf0d2e 100644
--- a/ghc/runtime/hooks/SizeHooks.lc
+++ b/ghc/runtime/hooks/SizeHooks.lc
@@ -1,8 +1,15 @@
 \begin{code}
 #include "rtsdefs.h"
-#include "storage/SMinternal.h" /* DEFAULT_* here */
 
-I_   SM_word_heap_size   = DEFAULT_HEAP_SIZE;
-StgFloat SM_pc_free_heap = DEFAULT_PC_FREE;
-I_   SM_word_stk_size    = DEFAULT_STACKS_SIZE;
+void
+defaultsHook (void)
+{ /* this is called *after* RTSflags has had
+     its defaults set, but *before* we start
+     processing the RTS command-line options.
+
+     This default version does *nothing*.
+     The user may provide a more interesting
+     one.
+  */
+}
 \end{code}