diff options
-rw-r--r-- | compiler/GHC/Builtin/primops.txt.pp | 2 |
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 |