summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2021-11-01 21:18:04 -0400
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-12-21 01:46:00 -0500
commit00b55bfcd982bed2c9fc02d9c3ca66ba9d41bb5c (patch)
tree7bb39528df6cdb359a45a6726f14e3abd2626157
parent8ea79a16c57a9fcfd091ab7f4aa457e100fa42b5 (diff)
downloadhaskell-00b55bfcd982bed2c9fc02d9c3ca66ba9d41bb5c.tar.gz
Introduce -dlint flag
As suggested in #20601, this is a short-hand for enabling the usual GHC-internal sanity checks one typically leans on when debugging runtime crashes.
-rw-r--r--compiler/GHC/Driver/Session.hs18
-rw-r--r--docs/users_guide/debugging.rst12
2 files changed, 30 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs
index be30e36052..d1c29bc824 100644
--- a/compiler/GHC/Driver/Session.hs
+++ b/compiler/GHC/Driver/Session.hs
@@ -2535,6 +2535,8 @@ dynamic_flags_deps = [
(setDumpFlag Opt_D_dump_hi_diffs)
, make_ord_flag defGhcFlag "ddump-rtti"
(setDumpFlag Opt_D_dump_rtti)
+ , make_ord_flag defGhcFlag "dlint"
+ (NoArg enableDLint)
, make_ord_flag defGhcFlag "dcore-lint"
(NoArg (setGeneralFlag Opt_DoCoreLinting))
, make_ord_flag defGhcFlag "dlinear-core-lint"
@@ -3922,6 +3924,22 @@ enableUnusedBinds = mapM_ setWarningFlag unusedBindsFlags
disableUnusedBinds :: DynP ()
disableUnusedBinds = mapM_ unSetWarningFlag unusedBindsFlags
+-- | Things you get with `-dlint`.
+enableDLint :: DynP ()
+enableDLint = do
+ mapM_ setGeneralFlag dLintFlags
+ addWayDynP WayDebug
+ where
+ dLintFlags :: [GeneralFlag]
+ dLintFlags =
+ [ Opt_DoCoreLinting
+ , Opt_DoStgLinting
+ , Opt_DoCmmLinting
+ , Opt_DoAsmLinting
+ , Opt_CatchNonexhaustiveCases
+ , Opt_LlvmFillUndefWithGarbage
+ ]
+
enableGlasgowExts :: DynP ()
enableGlasgowExts = do setGeneralFlag Opt_PrintExplicitForalls
mapM_ setExtensionFlag glasgowExtsFlags
diff --git a/docs/users_guide/debugging.rst b/docs/users_guide/debugging.rst
index 50a6c279a4..f0a929df5e 100644
--- a/docs/users_guide/debugging.rst
+++ b/docs/users_guide/debugging.rst
@@ -920,6 +920,18 @@ Checking for consistency
single: consistency checks
single: lint
+.. ghc-flag:: -dlint
+ :shortdesc: Enable several common internal sanity checkers
+ :type: dynamic
+
+ :implies: -dcore-lint, -dstg-lint, -dcmm-lint, -dasm-lint, -fllvm-fill-undef-with-garbage, -debug
+ :since: 9.4.1
+
+ Turn on various heavy-weight intra-pass sanity-checking measures within GHC
+ and its runtime system. Notably, this does not include
+ :ghc-flag:`-falignment-sanitisation` as it incurs a rather hefty runtime
+ cost.
+
.. ghc-flag:: -dcore-lint
:shortdesc: Turn on internal sanity checking
:type: dynamic