diff options
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/Ppr.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Ppr.hs | 22 |
1 files changed, 11 insertions, 11 deletions
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 |