[project @ 2002-11-05 09:26:04 by simonmar]

[ghc-hetmet.git] / ghc / rts / RtsFlags.c

diff --git a/ghc/rts/RtsFlags.c b/ghc/rts/RtsFlags.c
index 26e3578..36d5ee1 100644 (file)
--- a/ghc/rts/RtsFlags.c
+++ b/ghc/rts/RtsFlags.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.59 2002/08/05 10:11:04 simonmar Exp $
+ * $Id: RtsFlags.c,v 1.61 2002/10/05 22:18:45 panne Exp $
  *
  * (c) The AQUA Project, Glasgow University, 1994-1997
  * (c) The GHC Team, 1998-1999
@@ -436,7 +436,7 @@ usage_text[] = {
 "",
 "  -R<size>       Set the maximum retainer set size (default: 8)",
 "",
-"  -i<msec>       Time between heap samples (msec, default: 100)",
+"  -i<sec>        Time between heap samples (seconds, default: 0.1)",
 "",
 "  -xc      Show current cost centre stack on raising an exception",
 # endif
@@ -1439,8 +1439,7 @@ process_gran_option(int arg, int *rts_argc, char *rts_argv[], rtsBool *error)
              } else if (RtsFlags.GranFlags.proc > MAX_PROC || 
                         RtsFlags.GranFlags.proc < 1)
                {
-                 fprintf(stderr,"setupRtsFlags: no more than %u processors
-allowed\n", 
+                 fprintf(stderr,"setupRtsFlags: no more than %u processors allowed\n",
                          MAX_PROC);
                  *error = rtsTrue;
                }