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 | |
| parent | fc2de303e0a53392d4ab987131608bc6bdbd81db (diff) | |
| download | haskell-wip/llvm-debug-info.tar.gz | |
Fix distinctionwip/llvm-debug-info
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Base.hs | 2 | ||||
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Ppr.hs | 22 |
2 files changed, 12 insertions, 12 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 = [] }) diff --git a/compiler/llvmGen/LlvmCodeGen/Ppr.hs b/compiler/llvmGen/LlvmCodeGen/Ppr.hs index 31982ef7e0..fe0afadbef 100644 --- a/compiler/llvmGen/LlvmCodeGen/Ppr.hs +++ b/compiler/llvmGen/LlvmCodeGen/Ppr.hs @@ -83,22 +83,22 @@ pprLlvmCmmDecl debug_map (CmmProc (label, mb_info) entry_lbl live (ListGraph blk subprogMeta <- getMetaUniqueId fileMeta <- getMetaUniqueId typeMeta <- getMetaUniqueId - let fileDef = MetaUnnamed fileMeta + let fileDef = MetaUnnamed fileMeta NotDistinct $ MetaDIFile { difFilename = srcSpanFile span - , difDirectory = fsLit "TODO" - } + , difDirectory = fsLit "TODO" + } typeMetaDef = - MetaUnnamed typeMeta + MetaUnnamed typeMeta NotDistinct $ MetaDISubroutineType [MetaVar $ LMLitVar $ LMNullLit i1] subprog = MetaDISubprogram { disName = fsLit name - , disLinkageName = fsLit $ showPpr dflags defName - , disScope = fileMeta - , disFile = fileMeta - , disLine = srcSpanStartLine span - , disType = typeMeta - , disIsDefinition = True - } + , disLinkageName = fsLit $ showPpr dflags defName + , disScope = fileMeta + , disFile = fileMeta + , disLine = srcSpanStartLine span + , disType = typeMeta + , disIsDefinition = True + } addMetaDecl fileDef addMetaDecl typeMetaDef addSubprogram subprogMeta subprog |