From d6f8b66b2328afb3e12da034044b2fc7db392310 Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 24 Nov 1997 21:09:55 +0000 Subject: [PATCH] [project @ 1997-11-24 21:09:55 by sof] Changed default for GranFlags.max_fishes to MAX_FISHES --- ghc/runtime/main/RtsFlags.lc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ghc/runtime/main/RtsFlags.lc b/ghc/runtime/main/RtsFlags.lc index 38706e6..ab67e9f 100644 --- a/ghc/runtime/main/RtsFlags.lc +++ b/ghc/runtime/main/RtsFlags.lc @@ -92,7 +92,7 @@ initRtsFlagsDefaults (STG_NO_ARGS) RTSflags.ConcFlags.maxLocalSparks = 65536; #endif /* CONCURRENT only */ -#if GRAN +#ifdef GRAN RTSflags.ConcFlags.ctxtSwitchTime = CS_MIN_MILLISECS; /* In milliseconds */ RTSflags.ConcFlags.maxThreads = 32; RTSflags.ConcFlags.stkChunkSize = 1024; @@ -1082,10 +1082,10 @@ process_gran_option(int arg, int *rts_argc, char *rts_argv[], rtsBool *error) RTSflags.GranFlags.DoReScheduleOnFetch = rtsTrue; if (rts_argv[arg][3] != '\0') RTSflags.GranFlags.FetchStrategy = decode(rts_argv[arg]+3); + else + RTSflags.GranFlags.FetchStrategy = 2; if (RTSflags.GranFlags.FetchStrategy == 0) RTSflags.GranFlags.DoReScheduleOnFetch = rtsFalse; - else - RTSflags.GranFlags.FetchStrategy = 2; /* default: fetch everything */ break; case 'K': /* sort overhead (per elem in spark list) */ @@ -1130,7 +1130,7 @@ allowed\n", if (rts_argv[arg][3] != '\0') RTSflags.GranFlags.max_fishes = decode(rts_argv[arg]+3); else - RTSflags.GranFlags.max_fishes = 1; + RTSflags.GranFlags.max_fishes = MAX_FISHES; break; case 'w': -- 1.7.10.4