X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fsm%2FCompact.c;fp=rts%2FGCCompact.c;h=f50c994da8e59c3a4daf151ba0831312e7be294b;hp=da3c7a7c6200077f1defcc18b0d5b31832a23349;hb=ab0e778ccfde61aed4c22679b24d175fc6cc9bf3;hpb=2246c514eade324d70058ba3135dc0c51ee9353b

diff --git a/rts/GCCompact.c b/rts/sm/Compact.c
similarity index 99%
rename from rts/GCCompact.c
rename to rts/sm/Compact.c
index da3c7a7..f50c994 100644
--- a/rts/GCCompact.c
+++ b/rts/sm/Compact.c
@@ -12,9 +12,11 @@
 #include "RtsFlags.h"
 #include "OSThreads.h"
 #include "Storage.h"
+#include "Stable.h"
 #include "BlockAlloc.h"
 #include "MBlock.h"
-#include "GCCompact.h"
+#include "GC.h"
+#include "Compact.h"
 #include "Schedule.h"
 #include "Apply.h"
 #include "Trace.h"
@@ -476,7 +478,8 @@ update_fwd_large( bdescr *bd )
   }
 }
 
-STATIC_INLINE StgPtr
+// ToDo: too big to inline
+static /* STATIC_INLINE */ StgPtr
 thread_obj (StgInfoTable *info, StgPtr p)
 {
     switch (info->type) {
@@ -891,13 +894,13 @@ update_bkwd_compact( step *stp )
 }
 
 void
-compact( void (*get_roots)(evac_fn) )
+compact(void)
 {
     nat g, s, blocks;
     step *stp;
 
     // 1. thread the roots
-    get_roots((evac_fn)thread);
+    GetRoots((evac_fn)thread);
 
     // the weak pointer lists...
     if (weak_ptr_list != NULL) {