summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2022-06-08 16:32:56 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-06-09 09:13:29 -0400
commit8727be73296c16c11e01f42691ea27738436b28b (patch)
tree69f144a54198b23a759ff3a777e3eeb4efe04847
parent1fbba97b17d7bbfada0d9620d126f84b8d57be2d (diff)
downloadhaskell-8727be73296c16c11e01f42691ea27738436b28b.tar.gz
Document dataToTag# primop
-rw-r--r--compiler/GHC/Builtin/primops.txt.pp2
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/Builtin/primops.txt.pp b/compiler/GHC/Builtin/primops.txt.pp
index 964b8e6d8e..a7c7c3a4cf 100644
--- a/compiler/GHC/Builtin/primops.txt.pp
+++ b/compiler/GHC/Builtin/primops.txt.pp
@@ -3289,6 +3289,8 @@ section "Tag to enum stuff"
primop DataToTagOp "dataToTag#" GenPrimOp
a -> Int# -- Zero-indexed; the first constructor has tag zero
+ { Evaluates the argument and returns the tag of the result.
+ Tags are Zero-indexed; the first constructor has tag zero. }
with
strictness = { \ _arity -> mkClosedDmdSig [evalDmd] topDiv }
-- See Note [dataToTag# magic] in GHC.Core.Opt.ConstantFold