diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-06-18 10:57:29 (GMT) |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-06-18 22:27:06 (GMT) |
| commit | 0be38a22059ef761ff0f5487e88c18a9fd6df53b (patch) | |
| tree | aec6692b153d71b7493f6d038703b2206daaabe6 | |
| parent | f4b0488dba4c97630ed1e4417eef546abd5c3df5 (diff) | |
| download | ghc-0be38a22059ef761ff0f5487e88c18a9fd6df53b.zip ghc-0be38a22059ef761ff0f5487e88c18a9fd6df53b.tar.gz ghc-0be38a22059ef761ff0f5487e88c18a9fd6df53b.tar.bz2 | |
llvmGen: Add strictness to metadata fields
| -rw-r--r-- | compiler/llvmGen/Llvm/MetaData.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/llvmGen/Llvm/MetaData.hs b/compiler/llvmGen/Llvm/MetaData.hs index 3bdcd60..6f3ced5 100644 --- a/compiler/llvmGen/Llvm/MetaData.hs +++ b/compiler/llvmGen/Llvm/MetaData.hs @@ -65,9 +65,9 @@ instance Outputable MetaId where ppr (MetaId n) = char '!' <> int n -- | LLVM metadata expressions -data MetaExpr = MetaStr LMString - | MetaNode MetaId - | MetaVar LlvmVar +data MetaExpr = MetaStr !LMString + | MetaNode !MetaId + | MetaVar !LlvmVar | MetaStruct [MetaExpr] deriving (Eq) @@ -87,7 +87,7 @@ data MetaAnnot = MetaAnnot LMString MetaExpr data MetaDecl -- | Named metadata. Only used for communicating module information to -- LLVM. ('!name = !{ [!<n>] }' form). - = MetaNamed LMString [MetaId] + = MetaNamed !LMString [MetaId] -- | Metadata node declaration. -- ('!0 = metadata !{ <metadata expression> }' form). - | MetaUnnamed MetaId MetaExpr + | MetaUnnamed !MetaId !MetaExpr |