diff options
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/Base.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Base.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Base.hs b/compiler/llvmGen/LlvmCodeGen/Base.hs index 2e62e91a94..079f81606f 100644 --- a/compiler/llvmGen/LlvmCodeGen/Base.hs +++ b/compiler/llvmGen/LlvmCodeGen/Base.hs @@ -368,7 +368,7 @@ getUniqMeta s = getEnv (flip lookupUFM s . envUniqMeta) addSubprogram :: MetaId -> MetaExpr -> LlvmM () addSubprogram metaId metaExpr = do modifyEnv $ \env -> env { envSubprograms = metaId : envSubprograms env } - addMetaDecl (MetaUnnamed metaId metaExpr) + addMetaDecl (MetaUnnamed metaId Distinct metaExpr) getSubprograms :: LlvmM [MetaId] getSubprograms = LlvmM $ \env -> return (envSubprograms env, env { envSubprograms = [] }) |