diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-09-15 19:14:02 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-09-15 19:42:04 -0400 |
| commit | 6448322d7bc56c2b435b9bfda50430c0d0748a22 (patch) | |
| tree | 32c5f411494fc58aa1cfecab2c08208ba62af0ad /compiler/llvmGen/LlvmCodeGen/Base.hs | |
| parent | fc2de303e0a53392d4ab987131608bc6bdbd81db (diff) | |
| download | haskell-wip/llvm-debug-info.tar.gz | |
Fix distinctionwip/llvm-debug-info
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 = [] }) |