Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8bd72007b7665d0629624adf6425a7d4085a3a8a

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

commit 8bd72007b7665d0629624adf6425a7d4085a3a8a
Author: Gabor Greif <[email protected]>
Date:   Mon Jan 9 23:06:58 2012 +0100

    use idiomatic (GHC) types

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

 includes/rts/Flags.h |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/includes/rts/Flags.h b/includes/rts/Flags.h
index 10421f0..da71a4b 100644
--- a/includes/rts/Flags.h
+++ b/includes/rts/Flags.h
@@ -77,7 +77,7 @@ struct DEBUG_FLAGS {
 };
 
 struct COST_CENTRE_FLAGS {
-    unsigned int           doCostCentres;
+    nat            doCostCentres;
 # define COST_CENTRES_SUMMARY  1
 # define COST_CENTRES_VERBOSE  2 /* incl. serial time profile */
 # define COST_CENTRES_ALL      3
@@ -88,7 +88,7 @@ struct COST_CENTRE_FLAGS {
 };
 
 struct PROFILING_FLAGS {
-    unsigned int       doHeapProfile;
+    nat        doHeapProfile;
 # define NO_HEAP_PROFILING     0       /* N.B. Used as indexes into arrays */
 # define HEAP_BY_CCS           1
 # define HEAP_BY_MOD           2
@@ -160,18 +160,18 @@ struct MISC_FLAGS {
 struct PAR_FLAGS {
   nat            nNodes;         /* number of threads to run simultaneously */
   rtsBool        migrate;        /* migrate threads between capabilities */
-  unsigned int   maxLocalSparks;
+  nat            maxLocalSparks;
   rtsBool        parGcEnabled;   /* enable parallel GC */
-  unsigned int   parGcGen;       /* do parallel GC in this generation
+  nat            parGcGen;       /* do parallel GC in this generation
                                   * and higher only */
   rtsBool        parGcLoadBalancingEnabled; 
                                  /* enable load-balancing in the
                                   * parallel GC */
-  unsigned int   parGcLoadBalancingGen;
+  nat            parGcLoadBalancingGen;
                                  /* do load-balancing in this
                                   * generation and higher only */
 
-  unsigned int   parGcNoSyncWithIdle;
+  nat            parGcNoSyncWithIdle;
                                  /* if a Capability has been idle for
                                   * this many GCs, do not try to wake
                                   * it up when doing a



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to