summaryrefslogtreecommitdiff
path: root/compiler/llvmGen/Llvm/MetaData.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/llvmGen/Llvm/MetaData.hs')
-rw-r--r--compiler/llvmGen/Llvm/MetaData.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/compiler/llvmGen/Llvm/MetaData.hs b/compiler/llvmGen/Llvm/MetaData.hs
index 8215870a19..049d28733d 100644
--- a/compiler/llvmGen/Llvm/MetaData.hs
+++ b/compiler/llvmGen/Llvm/MetaData.hs
@@ -140,11 +140,14 @@ specialMetadata nodeName fields =
data MetaAnnot = MetaAnnot LMString MetaExpr
deriving (Eq)
+-- | Is a metadata node @distinct@?
+data Distinction = Distinct | NotDistinct
+
-- | Metadata declarations. Metadata can only be declared in global scope.
data MetaDecl
-- | Named metadata. Only used for communicating module information to
-- LLVM. ('!name = !{ [!<n>] }' form).
- = MetaNamed !LMString [MetaId]
+ = MetaNamed !LMString Distinction [MetaId]
-- | Metadata node declaration.
-- ('!0 = metadata !{ <metadata expression> }' form).
- | MetaUnnamed !MetaId !MetaExpr
+ | MetaUnnamed !MetaId Distinction !MetaExpr