diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-05-16 16:28:32 +0300 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-10-22 12:20:15 -0400 |
| commit | 0f8fd3c6ad52dc057d192e3b84e9d10c5503662c (patch) | |
| tree | 571c1a2c7dbf44465ee158e23b407e692de85524 /rts/RtsFlags.c | |
| parent | c72e84c6afeadb0b29db181608ebfd2facd841e1 (diff) | |
| download | haskell-0f8fd3c6ad52dc057d192e3b84e9d10c5503662c.tar.gz | |
NonMoving: Implement -xns to disable selector optimizationwip/gc/shortcutting
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index c606d86418..0e28b980ac 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -157,6 +157,7 @@ void initRtsFlagsDefaults(void) RtsFlags.GcFlags.pcFreeHeap = 3; /* 3% */ RtsFlags.GcFlags.oldGenFactor = 2; RtsFlags.GcFlags.useNonmoving = false; + RtsFlags.GcFlags.nonmovingSelectorOpt = false; RtsFlags.GcFlags.generations = 2; RtsFlags.GcFlags.squeezeUpdFrames = true; RtsFlags.GcFlags.compact = false; @@ -1542,6 +1543,10 @@ error = true; OPTION_SAFE; RtsFlags.GcFlags.useNonmoving = true; unchecked_arg_start++; + if (rts_argv[arg][3] == 's') { + RtsFlags.GcFlags.nonmovingSelectorOpt = true; + unchecked_arg_start++; + } break; case 'c': /* Debugging tool: show current cost centre on |