opt_MaxContextReductionDepth,
opt_IrrefutableTuples,
opt_Parallel,
- opt_SMP,
opt_RuntimeTypes,
opt_Flatten,
opt_IrrefutableTuples = lookUp FSLIT("-firrefutable-tuples")
opt_MaxContextReductionDepth = lookup_def_int "-fcontext-stack" mAX_CONTEXT_REDUCTION_DEPTH
opt_Parallel = lookUp FSLIT("-fparallel")
-opt_SMP = lookUp FSLIT("-fsmp")
opt_Flatten = lookUp FSLIT("-fflatten")
-- optimisation opts
"fdicts-strict",
"firrefutable-tuples",
"fparallel",
- "fsmp",
"fflatten",
"fsemi-tagging",
"flet-no-escape",
WayThreaded `allowedWith` WayProf = True
WayProf `allowedWith` WayUnreg = True
- WayProf `allowedWith` WaySMP = True
WayProf `allowedWith` WayNDP = True
_ `allowedWith` _ = False
, "-optc-DGRAN"
, "-package concurrent" ]),
- (WaySMP, Way "s" False "SMP"
- [ "-fsmp"
+ (WaySMP, Way "s" True "SMP"
+ [
#if !defined(mingw32_TARGET_OS)
- , "-optc-pthread"
+ "-optc-pthread"
#endif
#if !defined(mingw32_TARGET_OS) && !defined(freebsd_TARGET_OS)
, "-optl-pthread"
#endif
- , "-optc-DSMP" ]),
+ ]),
(WayNDP, Way "ndp" False "Nested data parallelism"
[ "-fparr"