summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2022-05-18 18:54:25 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-05-20 05:32:32 -0400
commit0b8481361bf87461f1f6f14ae74209d66e45ee82 (patch)
tree6b72944a728d0d4c29b90d396d3f109e6d62b119
parent05ed917bdb0a95596a722f995a0ddd97b81dcaa1 (diff)
downloadhaskell-0b8481361bf87461f1f6f14ae74209d66e45ee82.tar.gz
document fields of `DominatorSet`
-rw-r--r--compiler/GHC/Cmm/Dominators.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Cmm/Dominators.hs b/compiler/GHC/Cmm/Dominators.hs
index f9c98f1485..7e55440c3f 100644
--- a/compiler/GHC/Cmm/Dominators.hs
+++ b/compiler/GHC/Cmm/Dominators.hs
@@ -56,8 +56,8 @@ import GHC.Utils.Panic
-- dominator tree. In many circumstances the immediate dominator
-- will be the only dominator of interest.
-data DominatorSet = ImmediateDominator { ds_label :: Label
- , ds_parent :: DominatorSet
+data DominatorSet = ImmediateDominator { ds_label :: Label -- ^ Label of the immediate dominator.
+ , ds_parent :: DominatorSet -- ^ Set of nodes dominating the immediate dominator.
}
| EntryNode
deriving (Eq)