| ... |
... |
@@ -280,6 +280,8 @@ ghcInternalArgs = package ghcInternal ? do |
|
280
|
280
|
libffiPackageArgs :: Args
|
|
281
|
281
|
libffiPackageArgs = package libffi ? do
|
|
282
|
282
|
rtsWays <- getRtsWays
|
|
|
283
|
+ -- noise when compiling libffi sources
|
|
|
284
|
+ let cArgs = mconcat [ arg "-Wno-deprecated-declarations" ]
|
|
283
|
285
|
mconcat
|
|
284
|
286
|
[ builder (Cabal Flags) ? mconcat
|
|
285
|
287
|
[ any (wayUnit Profiling) rtsWays `cabalFlag` "profiling"
|
| ... |
... |
@@ -287,6 +289,8 @@ libffiPackageArgs = package libffi ? do |
|
287
|
289
|
, any (wayUnit Dynamic) rtsWays `cabalFlag` "dynamic"
|
|
288
|
290
|
, any (wayUnit Threaded) rtsWays `cabalFlag` "threaded"
|
|
289
|
291
|
]
|
|
|
292
|
+ , builder (Cc (FindCDependencies CDep)) ? cArgs
|
|
|
293
|
+ , builder (Ghc CompileCWithGhc) ? map ("-optc" ++) <$> cArgs
|
|
290
|
294
|
]
|
|
291
|
295
|
|
|
292
|
296
|
-- | RTS-specific command line arguments.
|
| ... |
... |
@@ -377,9 +381,6 @@ rtsPackageArgs = package rts ? do |
|
377
|
381
|
, inputs ["**/Jumps_V32.c"] ? pure [ "-mavx2" | x86 ]
|
|
378
|
382
|
, inputs ["**/Jumps_V64.c"] ? pure [ "-mavx512f" | x86 ]
|
|
379
|
383
|
|
|
380
|
|
- -- inlining warnings happen in Compact
|
|
381
|
|
- , inputs ["**/Compact.c"] ? arg "-Wno-inline"
|
|
382
|
|
-
|
|
383
|
384
|
-- emits warnings about call-clobbered registers on x86_64
|
|
384
|
385
|
, inputs [ "**/StgCRun.c"
|
|
385
|
386
|
, "**/win32/ConsoleHandler.c", "**/win32/ThrIOManager.c"] ? arg "-w"
|
| ... |
... |
@@ -446,7 +447,6 @@ rtsWarnings = mconcat |
|
446
|
447
|
, arg "-Wstrict-prototypes"
|
|
447
|
448
|
, arg "-Wmissing-prototypes"
|
|
448
|
449
|
, arg "-Wmissing-declarations"
|
|
449
|
|
- , arg "-Winline"
|
|
450
|
450
|
, arg "-Wpointer-arith"
|
|
451
|
451
|
, arg "-Wmissing-noreturn"
|
|
452
|
452
|
, arg "-Wnested-externs"
|