[commit: ghc] master: Ensure gc_type is StgWord8. (37e3f3f)

[Austin Seipp]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/37e3f3ff74600be7eebf67f97cd5bedbfb59aaf5

>---------------------------------------------------------------

commit 37e3f3ff74600be7eebf67f97cd5bedbfb59aaf5
Author: Austin Seipp <aseipp at pobox.com>
Date:   Fri Jun 21 00:21:21 2013 -0500

    Ensure gc_type is StgWord8.
    
    Again, the range of gc_type is actually 1-3, which is technically
    outside the range of rtsBool.
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>

>---------------------------------------------------------------

 rts/Schedule.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index abd317c..a024926 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1437,7 +1437,7 @@ scheduleDoGC (Capability **pcap, Task *task USED_IF_THREADS,
     rtsBool heap_census;
     nat collect_gen;
 #ifdef THREADED_RTS
-    rtsBool gc_type;
+    StgWord8 gc_type;
     nat i, sync;
     StgTSO *tso;
 #endif