rts: Don't default to single capability when profiled
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 11 Dec 2017 17:55:31 +0000 (12:55 -0500)
committerBen Gamari <ben@smart-cactus.org>
Mon, 11 Dec 2017 17:55:41 +0000 (12:55 -0500)
This was presumably a vestige of the days when the profiled RTS couldn't
run threaded. Fixes #14545.

Test Plan: simonmar

Reviewers: erikd, simonmar

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #14545

Differential Revision: https://phabricator.haskell.org/D4245

rts/RtsFlags.c

index 39b1273..26171cf 100644 (file)
@@ -1289,11 +1289,7 @@ error = true;
                 OPTION_SAFE;
                 THREADED_BUILD_ONLY(
                 if (rts_argv[arg][2] == '\0') {
-#if defined(PROFILING)
-                    RtsFlags.ParFlags.nCapabilities = 1;
-#else
                     RtsFlags.ParFlags.nCapabilities = getNumberOfProcessors();
-#endif
                 } else {
                     int nCapabilities;
                     OPTION_SAFE; /* but see extra checks below... */