diff options
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 |