Add +RTS -vg flag for requesting some GC trace messages, outside DEBUG

[ghc-hetmet.git] / rts / sm / GC.h

diff --git a/rts/sm/GC.h b/rts/sm/GC.h
index f98e4a1..5183837 100644 (file)
--- a/rts/sm/GC.h
+++ b/rts/sm/GC.h
@@ -148,6 +148,14 @@ typedef struct gc_thread_ {
 #endif
 
     // -------------------
+    // stats
+
+    lnat copied;
+    lnat any_work;
+    lnat scav_global_work;
+    lnat scav_local_work;
+
+    // -------------------
     // workspaces
 
     // array of workspaces, indexed by stp->abs_no.  This is placed