From d6f8b66b2328afb3e12da034044b2fc7db392310 Mon Sep 17 00:00:00 2001
From: sof <unknown>
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 38706e60281a..ab67e9f74f5a 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':
--
GitLab